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Symbol 

table 

MPCSR  = 

177746 

OF$OFF= 

000002 

OP$S  N= 

000010 

PS.PIC= 

000100 

SBP00L= 

***♦*♦  GX 

MRKfL 

OOOOAOR 

002 

OF  SON  = 

000000 

0P$STA= 

000004 

ps.srs= 

000040 

SBUF 

001776R 

MULP 

002536R 

003 

OF$SMC= 

000200 

OP$TPA= 

000020 

PUMR  = 

»*♦«**  GX 

SCHEL 

001140R 

003 

HUXP 

002530R 

003 

OF.PRO= 

000040 

0P$TRI= 

000040 

P$$P45= 

000000 

SCHELL 

000442R 

003 

MXCP 

00006AR 

002 

OF.RLU= 

000100 

0P$UCS= 

000020 

P$$WRO= 

000000 

SCHELO 

001130R 

003 

MttCRB= 

0001 2A 

OF.SI»C= 

000200 

OP$USE= 

000002 

P.BLKS 

000016 

SCHEL1 

000434R 

003 

Mt$CRX= 

000000 

ONAME 

00O032R 

002  OP$VEC= 

000040 

P. Busy 

000024 

SCTIM 

001116R 

003 

M$$FCS= 

000000 

OPNCFG 

005560R 

OPSVER= 

000040 

P. IOC 

000003 

SCTIMM 

000424R 

003 

Mt$MGE= 

000001 

OP$ADD= 

000200 

OP$XAC= 

00C001 

P.LNK 

000000 

:fg 

011220R 

Ml$NET= 

000000 

OP$ALL= 

000200 

OP$XPR= 

000002 

P. MAIN 

000012 

SERADO 

000140RG 

002 

l«l$$OVR= 

000000 

OP$CCS= 

000004 

0P$X5S= 

000004 

P.NAM 

000004 

SERALL 

014640R 

M.BFVH 

000011 

OP$CIE= 

004000 

0P$X9S= 

OOPOIO 

P.  OWN 

000026 

SERBEG 

00011  ORG 

002 

M.BfVL 

000012 

OP$C0N= 

000400 

OUTT 

010.52R 

P.PRI 

000002 

SERCIR 

000116RG 

002 

M.LGTH= 

oooou 

OP$COP= 

000001 

O.FLG 

00C003 

P.REL 

000014 

SERCR 

015356RG 

M.LNK 

000000 

OP$COS= 

000100 

O.LEN 

000012 

P. SIZE 

000016 

SERCUR 

000256RG 

002 

H.UMRA 

000002 

OP$DST= 

000200 

O.LNK 

000000 

P.STAT 

000030 

SERDCT 

0001 36RG 

002 

M.UMRN 

000004 

OP$DTE= 

000040 

O.MXC 

000004 

P.  sua 

000010 

SEROEV 

0001 20RG 

002 

W.UMVH 

000010 

OP$DUP= 

000002 

O.NAM 

000006 

P.SWSZ 

000022 

SERDF 

0021 70R 

003 

M.UMVL 

000006 

OP$EST= 

000100 

o.Trp 

000002 

P.TCB 

000026 

SEROMP 

000132RG 

002 

NA 

000076R 

002 

OP$EVE= 

01 0000 

PARSE 

006232R 

P. WAIT 

000020 

SERDV 

014414RG 

NAMBUF 

000022R 

002 

OP$FIL= 

000200 

PAS 

015204RG 

QF$ACT= 

000001 

SEREND 

014620RG 

NAME 

000030R 

002 

OP$GRP= 

000100 

PBLOX  = 

**»«**  GX 

QF$ALL= 

000002 

SERFIN 

000266RG 

002 

NAMED 

OOOOOOR 

002 

0P$HOS= 

000001 

PDVNAM= 

*««»«4  GX 

QF$KNO= 

000004 

SERFLG 

00011  ORG 

002 

NBEAJ 

000106R 

002 

OP$HTM= 

00000^' 

PJRO  = 

177772 

QF$LOO= 

000010 

SERHST 

0001 14RG 

002 

NBRA 

0001 02R 

002 

OP$INA= 

004000 

PMODE  = 

030000 

QINS 

017272R 

SERINI 

014532RG 

NC.FMO= 

000000 

OP$INC= 

001000 

PREFIX 

001734R 

QIO 

002006R 

SERMUL 

014314RG 

NC.FM1= 

000001 

OP$KDS= 

002000 

PRELEN= 

000016 

QUICK 

014102R 

SERMUX 

014324RG 

NC.FM2= 

000002 

OP$KDT= 

000400 

PREULN= 

000024 

Q$$OPT= 

000010 

SERNOD 

0001 12RG 

002 

NN 

0000 74 R 

002 

OP$KEV= 

001000 

PREWRN 

001752R 

Q.IOAE= 

000012 

SEROFF 

000260RC 

002 

NOAD 

014354RG 

OP$KGR= 

001000 

PROOF 

000712R 

003  G.IOEFr 

000006 

SERPAS 

000122RG 

002 

NOAR 

014334RG 

OP$KNT= 

010000 

PROOF  1 

000750R 

003  Q.lOFN= 

000002 

SERSLN 

014460RG 

NODC 

004620R 

OP$KSK= 

002000 

PROFLG 

000720R 

C03  Q.I0LU= 

000004 

SERSLT 

000262RG 

002 

NODCT 

010420R 

OP$LCT= 

000200 

PRONAM 

0017307 

003  O.IOPL= 

000014 

SERST 

00?520R 

003 

NODDF 

001266R 

003 

OP$LNE= 

000040 

PROTXT 

006256r.' 

Q.IOPR= 

000007 

SEFTMP 

000146RG 

002 

NONMAP= 

•♦•••*  GX 

OP$LOC= 

000001 

PRVUNM 

000002R 

002  Q.IOSB= 

000010 

SERUNI 

014304RG 

NS$DON= 

000000 

OP$LST= 

000002 

PRO   = 

000000 

RAO 

000104R 

002  SET8LK 

016040R 

NS$SDI= 

000002 

OP$LTM= 

000001 

PR1 

000040 

RBRA  = 

000076 

SETST 

016674RG 

NSSWDC= 

000004 

OP$LVL= 

000010 

PR2   = 

000100 

REMARE 

000100R 

002  SF.ACT= 

000200 

NTIERR 

OOUIOR 

OP$«AC= 

000010 

PR3   = 

000140 

REMDF 

001522R 

003  SF.CIR= 

000010 

NTPNAM= 

......  GX 

OP$firo= 

000002 

PR4 

000200 

REQNTL 

020140R 

SF.DEV= 

000020 

NTPPAR= 

......  GX 

OP$MDE= 

000400 

PR5   = 

000240 

RETF 

011146R 

SF.DIA= 

004000 

NTPSAV= 

......  GX 

OP$MLI= 

000004 

PR6   = 

000300 

RF.LOO= 

100000 

SF.OPA= 

000100 

NTP5CN 

005606R 

OP$MON= 

000100 

PR7   = 

000340 

ROUPF 

001632R 

003  SF.DPC= 

000200 

NTPSI2= 

......  GX 

OP$MST= 

000020 

PS 

177776 

ROB   i 

«**«*.  GX 

SF.DUM= 

010000 

NTUARN 

001554S 

OP$NAM= 

000004 

PSTART= 

*»*»»*  GX 

R$$OER= 

000000 

SF.ENA= 

000100 

N$$ACC= 

000001 

OP$NET= 

004000 

PS.APRr 

000007 

R$$K11= 

000001 

SF.HAO= 

000004 

N$$ajF= 

000001 

0P$NL1= 

000002 

PS.CHK= 

010000 

R$$SND= 

000000 

SF.HST= 

000002 

N$JLDV= 

000001 

OPSNOD^ 

000020 

PS.CKP= 

040000 

R$$11M= 

000000 

SF.L0A= 

002000 

N$$MCP= 

000001 

OP$OUT= 

002000 

PS.CKR= 

020000 

R.AOD 

000010 

SF.LP8= 

000004 

Nt$MLL= 

000001 

0P$OWN= 

000020 

PS.COM= 

0C1200 

R.FLAG 

000012 

SF.MFL= 

000040 

Mt$MOV= 

000010 

OP$PAR= 

0C0010 

PS.DEL= 

000010 

R.LEN 

000014 

SF.PAC= 

000020 

NStNC: 

000001 

op$pr;= 

000010 

PS.ORV= 

000020 

F  LNK 

000000 

SF.PH3= 

020000 

N$$Pf«1= 

cooor- 

OP$RET= 

010000 

PS.FXD= 

004000 

R.NAM 

000002 

SF.PSS= 

000040 

OBJO"^ 

00134.  ( 

003 

OP$RPA= 

000010 

PS.LIO= 

001000 

SBFLG  = 

..*»»*  GX 

SF.REA= 

000010 

OB.'" 

001366R 

003 

OP$SCO= 

000001 

PS.NSF= 

000400 

SBNAM  = 

•»»...  GX 

SF.SEC= 

000400 

OHl*iS  = 

000001 

OP$SEG= 

000400 

ps.our= 

100000 

SBPAR  = 

*.*».»  GX 

SF.SER= 

000001 

OF$lOG= 

000100 

OP$SFR= 

000400 

PS.PER= 

002000 

SBPCB  = 

♦•♦♦•♦  GX 

SF.SVC= 

000002 
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CR':f   OA.OO 


SYMBOL  VALUE 


OPSINIC 

OP$<DS 

OPtK-DT 

GPSKEV 

OPSICGR 

OPSKNT 

OPSKSK 

OPSLCT 

OPSLNE 

OPSLOC 

OPSLST 

OPSLTM 

OP$LVL 

OPSMAC 

OPSMCO 

OPSMDE 

OPSMLI 

OPSMON 

OPSMST 

OPSNAM 

OPSNET 

OPINLI 

OPSNOD 

OPSOUT 

DPSOWN 

OPSPAR 

OPSPRl 

OPSPET 

OPSRPA 

OPSSCO 

OPSSEG 

OPSSER 

OPSSIN 

OPSSTA 

OPS'PA 

OPSTRI 

OPSUCS 

OPSUSE 

OPSVEC 

OPSVER 

OPSXAC 

OPSXPR 

0P$X5S 

0P$X9S 

OUTT 

O.FLG 

O.LEN 

G.MXC 

O.NAM 

O.TYP 

PARSE 

PAS 


=  OO'.OOO 
=  002000 
=  OOOAOO 
=  001000 
=  001000 
=  010000 
=  002000 
=  000200 
=  0000^0 
=  000001 
=  000002 
--  000001 
=  000010 
=  000010 
=  000002 

=  oocoo 

=  OOOOOA 

=  000100 

=  000020 

=  000004 

=  OOAOOO 

=  000002 

=  000020 

=  002000 

=  000020 

--   000010 

=  000010 

=  010000 

=  000010 

-  000001 

=  OOOAOO 

=  OOOAOO 

=  000010 

=  OOOOOA 

=  000020 

=  OOOOAO 

=  000020 

=  000002 

=  OOOOAO 

=  OOOOAO 

=  000001 

=  000002 

=  000004 

=  000010 

010552 

000003 

000012 

OOOOOA 

000006 

000002 

006232 

015204 


R 
RG 


REFERENCES 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#S-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

75-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#67-3044 

»86-3682 

86-3674 
*86-5683 
•86-3680 
•86-3679 

30-1769 
#95-4095 


VNT 
MAC 
MAC 


RES 
RET 


#5-78 


#5-78 


#5-78 


RNE 
SA'j 
SCE 
SEK 
SLT 
SOE 
STA 


86-3686 


87-3726 


•86-3681 

86-3691  i7-V27 

30-1772  30-1775 


30-1784 


30-1799 


30-1812       #30-1842 
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CREF   04.00 


MACRO  NAME 


RESRG 
RETURN 


RNBDFS 

SAVRG 

SCBDF$ 

SERDFS 

SLTDFS 

SOB 

STATES 


REFERENCES 

#76-3396 
#86-3686 
#94-A063 
#102-AA5A 
#103-A536 
#5-58 
8-227 
17-1  IDA 
2A-1A85 
29-1731 
56-26A8 
62-2802 
65-2966 
67-3096 
70-3245 
75-3362 
80-3547 
89-3791 
91-3901 
95-4131 
101-4414 
107-4793 
#5-57 
«-58 
#5-56 
#5-53 
#5-55 

59-2697 
#5-56 
#18-1128 
#19-1153 
#19-1173 
#20-1203 
#21-1236 
#23-1269 
#23-1294 
#23-1321 
#34-1941 
#35-1973 
56-2009 
#38-2046 
#39-2073 
#40-2112 
#40-2142 
#40-2172 
#42-2212 
#44-2255 
#44-2275 
#45-2312 
#46-2361 
#48-2404 
#A8-2442 


76-3396 

86-3686 

94-4063 

102-4454 

103-4536 

97-4236 

8-528 

24-1329 

24-1489 

30-1837 

57-2661 

62-2823 

66-3006 

67-3106 

71-326^ 

75-3378 

81-3566 

89-3799 

91-3904 

96-4145 

102-4439 

108-4337 

5-64 

97-4211 

5-76 

5-81 

5-73 

18-1110 
#18-1130 
#19-1155 

20-1180 
#20-1206 
#21-1239 
#23-1271 
#23-1296 

32-18?n 
#34-1944 
#35-1975 
#36-2011 
#38-2048 
#39-2076 
#40-2115 
#40-2145 
#40-2175 
#42-22:5 
#44-2257 
#44-2277 
#45-2315 
#46-2365 
#48-2409 
#48-2445 


#76-3408 
#87-3726 
#9',-4076 
*1 02-4467 
#105-4707 
98-4266 
9-564 
24-1332 
25-1500 
30-1848 
58-2671 
62-2826 
67-3021 
67-3113 
71-3268 
75-3381 
82-3589 
90-3829 
91-3910 
96-4166 
102-4471 
'09-4865 

98-4256 


#18-1112 
#18-1132 
#19-1157 
#20-1182 
#20-1209 
#21-1242 
#23-1273 
#23-1298 
#32-1  C'r9 
#34-1946 
#35-1977 
#36-2013 
#38-20'^0 
#39-2080 
#40-2118 
#40-2148 
41-2184 
#42-2218 
#44-2259 
#44-2279 
#45-2317 
#46-2368 
#48-2412 
#48-2449 


76-3408 

87-3726 

94-4076 

102-4467 

105-4707 

98-4285 

10-607 

24-1335 

25-1503 

31-1876 

59-2678 

63-2846 

67-3031 

68-3141 

72-3289 

76-3398 

83-3615 

90-3860 

91-3915 

96-4195 

103-4555 

110-4884 


102-4431        103-4521        105-4701 


#76-3420 
#88-3747 
#98-4258 
#103-4524 
#105-4709 
102-4437 
11-745 
24-1338 
25-1506 
50-2542 
59-2715 
63-2849 
67-3040 
68-5146 
72-3295 
76-5401 
84-3633 
90-3863 
91-3918 
97-4238 
105-4576 


76-3420 

88-3747 

98-4258 

103-4524 

105-4709 

102-4469 

12-802 

24-1344 

25-1509 

51-2557 

60-2726 

65-2870 

67-5049 

69-3194 

73-3507 

76-3422 

85-5655 

91-5880 

92-3951 

98-4267 

103-4602 


#18-1114 
#18-1134 
#19-1159 
#20-1185 
#20-1211 
#21-1245 
#23-1275 
#23-1301 

33-1916 
#34-1949 
#55-1980 
#36-2015 
#38-2052 
#39-2083 
#40-2121 
#40-2151 
#41-2187 
#42-2221 
#44-2261 
#44-2281 

46-2332 
#47-2373 
#48-2416 
#48-2453 


#18-1116 
19-1141 
#19-1161 
#20-1187 
#20-1214 
22-1252 
#23-1277 
#23-1304 
#35-1919 
55-1956 
#35-1983 
#36-2018 
#38-2054 
#39-2086 
#40-2124 
#40-2154 
#41-2190 
#42-2224 
#44-2263 
#44-2283 
#46-2337 
#47-2378 
#48-2420 
#48-2457 


#18-1118 
#19-1143 
#19-1163 
#20-1190 
#20-1216 
#22-1254 
#23-1279 
#25-1507 
#33-1922 
#35-1958 
#35-1986 
57-2030 
#58-2056 
#59-2089 
#40-2127 
#40-2157 
#41-2193 
#42-2232 
#44-2265 
#44-2285 
#46-2341 
#47-2381 
#48-2424 
#49-2466 


#79-3506 
#88-3762 
#98-4272 
#105-4526 

105-4537 

15-845 

24-1348 

26-1627 

52-2573 

60-2737 

63-2873 

67-3059 

69-3200 

73-3510 

76-3425 

86-3696 

91-3885 

92-5971 

98-4287 

104-4655 


#18-1120 
#19-1145 
#19-1165 
#20-1192 

21-1222 
#22-1256 
#25-1281 
#23-1510 

34-1929 
#35-1960 
#35-1989 

38-2038 
#38-2058 
#59-2092 
#40-2130 
#40-2160 
#41-2196 
#42-2235 
#44-2267 

45-2294 
#46-2345 
#47-2384 
#48-242^ 
#49-2470 


79-3506 
88-3762 
98-4272 
103-4526 

105-4714 

14-890 

24-1376 

26-1639 

54-2612 

60-2740 

64-2898 

67-3068 

69-5216 

74-3552 

77-3451 

86-3701 

91-3886 

93-4006 

99-4324 

104-4679 


#18-1122 
#19-1147 
#19-1167 
#20-1194 
#21-1225 
#22-1258 
#23-1284 
#23-1315 
#54-1931 
#35-1962 
#55-1992 
#58-2040 
#38-2060 
#59-2095 
#40-2133 
#40-2163 
#41-2199 
43-2243 
744-2269 
#45-2302 
#46-2349 
#47-2390 
#48-2431 
#A9-2474 


#80-3542 
#94-4060 
#102-4451 
#103-4530 


15-924 

24-1455 

28-1709 

55-2626 

61-2780 

65-2957 

67-5077 

69-3219 

74-5535 

78-3471 

87-5730 

91-5892 

95-4013 

99-43^-7 

105-4715 


#18-1124 
#19-1149 
#19-1169 
#20-1197 
#21-1228 
#22-1261 
#23-1289 
#23-1316 
#34-1933 
#35-1964 
#55-1996 
#38-2042 
#58-2062 
#59-2098 
#40-2136 
#40-2166 
#41-2202 
44-2251 
#44-2271 
#45-2304 
#46-2353 
#47-2393 
#48-2435 
#49-2478 


80-3542 
94-4060 
102-4451 
105-4550 


16-1022 

24-1459 

28-1713 

56-2646 

62-2709 

65-2965 

67-3086 

70-3257 

75-5359 

79-5515 

88-5767 

91-5895 

94-4079 

100-4571 

106-4762 


#18-1126 
#19-1151 
#19-1171 
#20-1200 
#21-1231 

23-1267 
#23-1292 
#23-1319 
#34-1939 
#35-1971 
#35-1999 
#38-2044 

39-2070 
#39-2102 
#40-2139 
#40-2169 

42-2209 
#44-2253 
#44-2273 
#45-2306 
#46-2357 

48-2401 
#48-2439 
#49-2482 
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VPIO 
FNDP 


369 

370  000A40 

010100 

50$: 

MOV 

RI.RO 
60i 

;  COPV  PARTITION  ADDRESS 

371  000AA2 

001402 

BEQ 

;  If  NONE  -  BRANCH 

372  000AA4 

CALL 

$XPAR 

;  RELEASE  PARTI  HON 

373  000^50 

016700 

000152' 

60$: 

MOV 

TMPPCB.RO 

;  COPY  MICROCODE  PARTITION  ADDRESS 

37A  OOC'.SA 

CALL 

$XPAR 

;  DEALLOCATE  PARTITION 

375 

376  000A60 

005001 

CLR 

Rl 

;  INDICATE  NO  PARTITION 

377  000^62 

016700 

000250' 

MOV 

ERROR, RO 

;  STORE  ERROR  CODE 

378  000A66 

000261 

70$: 

ScC 

;  INDICATE  ERROR 

379  000A70 

380 

381  000A72 

RETURN 

032767 

000020 

OOOOOOG 

80$: 

BIT 

#fE.PLA,$FMASK 

;  PLAS  SUPPORT  ? 

582  000500 

001416 

BEQ 

85$ 

;  ;F  NO  -  BRANCH 

383  000502 

GETRV 

R1,.PLGTH 

;  READ  PC9 

38A  000520 

016702 

OOOOOOG 

MOV 

.PPR0,R2 

;  STORE  PARTITION  PROTECTION  OFFSET 

385  00052A 

012762 

1777/7 

OOOOOOG 

MOV 

#-1,$BFR(R2) 

;  NO  PLAS  ACCESS 

386  000532 

PUTRC 

;  WRITE  PCB  TO  IMAGE 

387  000536 

016767 

000152' 

000252' 

85$: 

MOV 

TMPPCB,PC6A 

;  STORE  MICROCODE  PCB  ADDRESS 

388  0005^4 

389 

390  000550 

016701 

000252' 

MOV 

PC8A,R1 

000241 

90$: 

CLC 

;  SUCCESS 

391  000552 

392 

393  000554 

RETURN 

005067 

000250' 

100$: 

CLR 

ERROR 

;  DO  NOT  TYPE  GENERAL  CASE  ERROR 

394  000560 

ERRPT$ 

UNA0P,MSGPR1 

;  TYPE  LOCAL  ERROR 

395  000570 

000413 

BR 

120$ 

396  000572 

110$: 

CALL 

$CLDEQ 

;  CLO. f  FiLt 

397  000576 

016777 

OOOOOOG 

OOOOOOG 

MOV 

$I0Se,S$CLI0S 

;  COPY  FILE  ERROR  CODE 

398  000604 

005067 

000250' 

CLR 

ERROR 

;  DO  NOT  TYPE  GENERAL  CASE  ERROR 

399  000610 

ERRPT$ 

UNARE,MSGPRI 

;  TYPE  READ  ERROR 

400  000620 

005001 

120$: 

CLR 

Rl 

;  INDICATE  NO  MICROCODE  PARTITION  SET 

401  000622 
402 

000706 

BR 

50$ 

;  CONTINUE 

C  4 
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PRMP 
PROM 


917 
918 
919 
Q?0 
921 
522 
923 
92A 
925 
926 
927 
928 
929 

930  003100 

931  003100 
9J2  003102 
933  003106 
93A  003112 

935  0031 K 

936  00^116 

937  v;oi-20 

938  0031 :'. 

939  003U_ 
9^0  003130 
9^1  003132 
942  0031 3A 
<5A3  003136 
9/,A  003:40 
9A5  003U2 
9'.6  0031A6 
9A7  003150 

950 
951 
952 
953 
95A 
955 
956 
957 
958 
959 

960  003152 

961  003156 

962  003162 

963  003166 
96A 

965  003172 

966 

967 


.SBTTL  FNDPDV  -  FIND  A  PDV  AD ; 
^ 
FNDPDV  -  TRY  TO  FIND  °DV 


5S 


0100A6 

016701  OOOOOOG 

016702  OOOOOOG 
0OK07 

012100 

001A03 

026016  OOOOOOG 

001 A03 

005302 

001371 

000261 

005226 

006016 

005741 

166701  OOOOOOG 

006316 


;  INPUTS: 

R0=RAD50   V  NAME 

;  OUTPUTS: 

C-BIT=SUCCESS/FA!lUkE 

R0=PDV 

ADDRESS 

R1=PDV 

INDEX 

R2=DESTR0YED 

FNDPDV: 

MOV 

R0,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

SEQ 

30$ 

10$: 

MOV 

(R1)+,R0 

BEQ 

20$ 

15$: 

CMP 

Z.NAM(RO)  (SP)   ; 

BEQ 

40$ 

20$: 

DEC 

R2 

BNE 

10$ 

30$: 

SEC 

40$: 

INC 

(SP)t 

ROR 

(SP) 

TST 

-(R1)          ; 

SUB 

$PDVTA,R1 

ASL 

(SP)           ; 

RETURN 

SAVE  NAME  TO  BE  MATCHED 

GET  PDV  TABLE  ADDRESS 

AND  NUMr :R  OF  PDV'S 

IF  ZERO,  NO  PDV'S! 

GET  PDV  ADDRESS 

IF  ZERO,  SKIP  THIS  ONE 

DOES  THE  NAME  MATCH? 

IF  EQ,  YES  (C-BIT  CLEAR) 

LOOP  $PDVNM  TIMES 
INDICATE  FAILURE 
PURGE  STACK 
SAVE  C-eiT 

calculate  pdv  index 
restore'c-bit 


MSGPRI  -  TYPE  ERROR  MESSAGE 

INPUTS: 

R2  -  ARGUMENT  BLOCK  ADDRESS 

OUTPUTS: 

TYPE  MESSAGE 


012700  000262' 


000001 


MSGPRI:  CALL  $SAVAL 

MOV  #MBUF,R0 

CALL  $ERMS6 

CALL  $TIOUT 

RETURN 

.END 


SAVE  REG'S 

GET  ERROR  BUFFER  ADDRESS 

f^ORMAT  ERROR 

TYPE  MESSAGE 


VPIO  -  VNP  PROCESS 


C  5 

I/O  ROUTINES  MACRO  VO5.03b  Wednesday  28-Aug-85  20:03  •'^age  17-1 


PRMF 


PRMPTS   -  VNP   PROMPT    STRINGS 
PROMPTS 

75 

76 

77 

78 

79  000000 

80 

81 

82 

83  000000 

8A 

85  000000 

86  000000 

87  000000 

88  000000 

89  000000 

90  000000 

91  000000 

92  viOOOOO 

93  000000 
9A  000000 

95  OCOOOO 

96  000000 

97  000000 

98  000000 

99  000000 
TOO  OOOOOO 

101  OOOOOO 

102  OOOOOO 

103  OOOOOO 

104  OOOOOO 

105  OOOOOO 

106  OOOOOO 

107  OOOOOO 
lOci  OOOOOO 

109  OOOOOO 

110  OOOOOO 

' ;  1  OOOOOO 

112  OOOOOO 

113  OOOOOO 
1U  OOOOOO 

115  OOOOOO 

116  OOOOOO 

117  OOOOOO 

118  OOOOOO 

119  OOOOOO 

120  OOOOCC 

121  OOOOOO 

122  GOOCOO 

123  OOOOOO 

124  OOOOOO 

125  OOOOOO 

126  OCOOOO 

:27  OOOOOO 

128  OOOOOO 

129  OOOOOO 

130  OOOOOO 

131  OOOOOO 
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.SBTTL  PROMPTS 
;  INITIALIZE  TABLE  PSECTS 

ISTATS  X,Y 
;  DEFINE  PROMPTS 

PRMPTS  •\"VNP>"\,P$VNP,<.-> 


VPRC 
LOC; 


PRMPTS 
PRMPTS 
ORMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 


'Account;  ">, 

Active  polling  ratio:  "> 

'Address;  ">,^ 

'Alias  name:  ">, 

'Circuit  identification:^^' 

Clear  circuit  options:  ": 

Clear  component:  ">, 

Clear  line  options:  ">, 

Clear  logging  options:  " 

Clear  node  options:  ">, 

Clear  object  options:  '> 

Cost:  ">, 

Component  type:  ">, 

Copies;  "> , 

CSR  dddress:  ">, 

'Dead  polling  ratio:  ">, 

'Destination  node:  ">, 

'Destination:  ">, 

'DTE   address:    ">, 

'Duplex:   ">, 

'Event    identification:    "> 

'Group  name:    ">, 

'Host   node   identification 

'Hello   timer    (sec):    "> 

line   identification:^ ">, 

Listen   timer    (sec) ;    "> 

line  state:    ">, 

Location    in  memory:    ">, 

Logging  sink   type:    ">, 

Logging  state:     '>, 

'Maximum  option:    ">, 

'Maximum  controllers:    ">, 

'Maximum   lines:    ">, 

'Module   identification;    '] 

'Multipoint   ratio   type; 

'Node   address:    ">, 

'Network:    ">, 

'Node   identification:    ">, 

'Node   nam?:    ">, 

'Node  state;   ">, 

Object  name:    ">, 

Object  number:     '>, 

Objec*:   user;    ">, 

'Object   ueri  f  ideation;    ">, 

'Owner  name:  ">, 

'Partition  name;  ">, 

'Priority:  "> , 


PSACC,<:> 

P$ACT,<:> 

PSADD,<::- 

P$AlD,<-:> 

'>,        PSCR1D,<:> 

>,          ?IClCI,<:> 

PSCLE,<:> 

P$CLLI,<:> 

>,          PSCLLO,<;> 

PSCLNO,<:> 

PSCLOe,<:> 

PSCOS,<;> 

PSPEN,<:> 

P$COP,<:> 

PSCSR,<:> 

PSDEA,<:> 

P$DES,<:> 

PSDST,<:> 

PSDTE,<;> 

PSDUP,<:> 

P$EVE,<:> 

PSGRP,<:> 

:    ">,    P$HOS,<:> 

P$HTM,<;> 

PSLNID,<:> 

PSLTM,<:> 

PSLIST,<:> 

PSLOC,<:> 

PSLGID,<:> 

PSLOST,<:> 

PSMAX,<:> 

PSMXCO,<;> 

PSMXLI,<;> 

>,          PSMOID,<:> 

>,          PSMUL,<:> 

PSNAD,<;> 

P$NET,<:> 

PSN1D,<:> 

PSNAM,<:> 

PSNOST,<:> 

PSOBNA,<;> 

f'SOID,<:> 

PSOBUS,<;> 

PSOBVE,<:> 

PSOWN,<:> 

PSPAR,<;> 

PSPRI,<:> 

;[T0001] 


;CTD001] 


PRMPTS  -  VNP  PROMPT  STRINGS 
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LOCAL  DATA 


B     7 

ROUTINES  MACRO  V05.03b  Wednesday  28-Aug-85  20:04     Page  7-1 


291  00021A 

292  000216 
293 

29A 
29'] 

296  000220 

297  000222 

298  000224 

299  000226 
300 

301 

302 

303  000232 

30A  000236 

305 

306 

307 

308  0OO2A0 

309  00026A 
3^0  000270 
311  000274 
312 

313  000320 

314  000324 

315  000326 
316 

317 
318 
319 

320  000330 

321  000332 

322  000340 

323  000344 
324 


VPI 
$C 


160102 
000405 


160^02 
005701 
001402 
066731     OOOOOOC 


010^60     OOOOOOG 
001430 


005067     OOOOOOG 
010267     C00002G 


103402 


016000  000230' 


SUB 
BR 


R1,R2 
40i 


UNMAPPED  SYSTEMS 


50$: 


SUB 
iST 
BEQ 
ADD 


R1,R2 

Rl 

40$ 

$BfR+P.RFL,R1 


CALCULATE  LENGTH  OF  FREE  SPACE 
CONTINUE  IN  COMMON  CODE 


CALCULATE  LENGTH  OF  FREE  SPACE 

WAS  THERE  A  LISTHEAD  ? 

IF  EQ,  NO 

POINT  AT  START  OF  FREE  SPACE 


COMMON  CODE  FOR  MAPPED  AND  UNMAPPED 


40$: 


MOV 
BEQ 


R1,Z.AVL(R0) 
50$ 


INITIALIZE  LISTHEAP 

IF  EO,  NO  LISTHEAU  -  I  EAVE 


UPDATE  FIRST  BLOCK  IN  PROCESS  PARTITION 


50$: 


GETAD 
CLR 
MOV 
PUTAD 

CALL 

BCS 

RETURN 


R1,/»4,$BIAS 
$BfR 

R2,$BFRt2 
R1,#4,$BIAS 

AXSYM 
70$ 


ERROR  CONDITIONS 


60$:    CRASH 
70$:    EMSG$R 
TSKERR:  MOV 

CALLR 


OX 

ETA82-2(R0),RO 

a(RO)t 


READ  IN  TWO  WORDS  POINTED  TO  BV  THE  LISTHEAD 

ZERO  THE  LINK  POINTER 

STORE  THE  FREE  SPACE  BYTE  COUNT 

WRITE  OUT  THE  BLOCK  POINTER 

FILL  IN  SPECIAL  SYMBOLS  IF  PROCESS  IS  AUX 
IF  CS,  AUX  TIMER  CELLS  MISSING 


$XFER  SHOULD  NOT  HAVE  BEEN  CALLED 
AUX  TIMER  CELLS  MISSING 
GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 
PRINT  ERROR  MESSAGE 


L 
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911  003110 

012704 

OOOOOOG 

912  0031H 

010005 

913  003116 

006300 

9H  003120 

005024 

915  003122 

916 

917  00.126 

918  003K6 

919 

920  0031A6 

016700 

OOOOOOG 

921  003152 

005C05 

922  0031 5A 

156005 

OOOOOOG 

923  003160 

016002 

OOOOOOG 

924 

925  00316A 

005305 

926  003166 

010500 

927  003170 

001511 

928  003172 

929  003210 

010567 

000100G 

930  00321A 

931 

932  003220 

012701 

000046 

933  003224 

93A  003230 

062701 

000077 

935  00323A 

042701 

000077 

936  003240 

937 

938  003254 

010204 

939  003256 

9',0  003262 

103455 

941  003264 

010405 

942  003266 

943 

944  003304 

010004 

945  003306 

010067 

000102G 

946  003312 

005000 

947  003314 

948  003324 

010067 

000104G 

949  003330 

950 

951  003334 

952  003356 

012702 

0000006 

953  003362 

012722 

177777 

954  003366 

012703 

000022 

955 

956  003372 

005022 

957  C03374 

958  003400 

959  C03404 

062700 

000046 

960 

961  003410 

962 

963  C03414 

964  003414 

965 

966  0C34'6 

967 

20$: 
25$: 

MOV 
MOV 
ASL 
CLR 
SOB 

#$8FR,R4              ; 

R0,R5 

RO 

(R4)  + 

R5.25$ 

30$: 

PUTAD 

P1,R0,R2 

MOV 
CLR 
BISB 
MOV 

$PDVA,RO 
R5 

Z.LLN(R0),R5 
Z.DAT(R0),R2 

DEC 
MOV 
BEQ 

GETRV 

MOV 

PUTRC 

R5 

R5,R0 

50$ 

R2,.W$XLEN            ; 

R5,N$TLCt$BFR 

MOV 

CALL 

ADD 

SIC 

ASRS 

#T$LLEN,R1            ; 

$MUL 

*77, R1 

#77, Rl 

6,R1 

MOV 

CALL 

BCS 

MOV 

GETRV 

R2,R4 

$ALN18               ; 

101$ 

R4,R2               ; 

R2,*N$XLEN 

MOV 
MOV 
CLR 
BIAS 

MOV 
WJTRC 

R0,R4 

R0,$8FR*"$TLC+2 

RO 

RO 

R0,$8FRtN$'LC+4 

40$: 

GETAD 
MOV 
MOV 
MOV 

R0,#T$LLEN,R'. 
*$8FR,R2 
#-l,(R2)t 
#«T$LLEN/2>-1>,R3 

45$: 

CLR 
SOB 
PUTAD 
ADD 

(R2)t 
R3,45$ 

#T$LLEN,RO             ! 

SOB 

R5,40$ 

50$: 

RETURN 

101$: 

EMSG$R 

9D 

POINT  TO  NODE  COUNTERS 
SAVE  COUNTERS  SIZE 
CONVERT  TO  BYTES 
INIT  XPT  NODE  COUNTERS 
IF  MORE  -  BRANCH 

WRITE  XPT  NODE  COUNTER  BLOCK 


GET  XPT  PDV  ADDRESS 
INIT  REG 

GET  XPT  CHANNELS 
GET  XPT  DDB  ADDRESS 

DON'T  INCLUDE  CHANNEL  0 

COPY  NUMBER  OF  CIRCUITS  FOR  $MUL 

IF  EQ,  NO  LINES  IN  SYSTEM 

READ  IN  XPT'S  DDB 

SAVE  IN  DATA  DESCRIPTOR 

WRITE  XPT  DD8 

GET  COUNTER  BLOCK  SIZE 
CALCULATE  TOTAL  SIZE 
ROUND  UP  TO  NEXT  BLOCK 

DEtERMINE  NUMBER  OF  BLOCKS 

SAVE  XPT'S  DDB  ADDRESS 
ALLOCATE  POOL.. 

IF  ALLOCATION  FAILURE  -  BRANCH 
RESTORE  XPT'S  DDB  ADDRESS 
READ  XPT'S  DDB 

SAVE  COUNTER  BIAS 
STORE  COUNTER  BIAS 
SET  UP  VIRTUE  ADDRESS 
SET  FOR  APR6 
STORE  VIRTUAL  ADDRESS 
WRITE  OUT  XPT'S  DDB 

READ  IN  COUNTER  BLOCK 
POINT  TO  COUNTER  BLOCK  AREA 
MARK  LINE  COUNTER  BLOCK  AS  FREE 
GET  REMAINING  SIZE  (IN  WORDS) 

ZERO  REMAINDER  01-  BLOCK 

REWRItE  UPDATED  COUNTER  BLOCK 
POINT  TO  NEXXT  COUNTER  BLOCI' 

INITIALISE  ALL  BLOCKS 


CIRCUIT    COUNTER   ALLOCATION  t-ARURE 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

LS.FRO 

=  000002 

*5-76 

LS.PWF 

=  OAOOOO 

#5-76 

lS.TOP 

=  002000 

#5-76 

LS.UNF 

=  020000 

#5-76 

LS.X25 

=  000012 

#5-76 

LS.IID 

=  OOAOOO 

#5-76 

LX.CEX 

=  000'.04 

#5-76 

LX.LIN 

=  000006 

#5-76 

LX.PRO 

=  000005 

#5-76 

L.C0S1 

000015 

#5-72 

L.CTL 

000012 

#5-72 

L.CVA 

177776 

#5-72 

L.DDM 

000002 

#5-72 

L.DDS 

OOOOOA 

#5-72 

L.DLC 

000003 

#5-73 

L.DLM 

000006 

#5-72 

L.D^S 

000010 

#5-72 

L.FLG 

000000 

#5-72 

11-531 

L.KRBA 

000016 

#5-72 

L.LEN 

=  000022 

#5-72 

L.MPF 

000022 

#5-72 

L.NMST 

000020 

#5-72 

L.NSTA 

OOOOU 

#5-72 

11-53A 

L.OWNR 

000021 

#5-72 

L.UNT 

000013 

#5-72 

MILBLK 

OOOUO  R 

6-177 

#6-181 

9-39A 

MSSMGE 

=  000000 

12-6A7 

15-9A7 

16-1018 

17-1117 

17-1127 

17-11A0 

NSADJ1 

J00072 

*1A-836 

N$ADJ2 

C00074 

*U-8A6 

NSCACH 

000062 

•13-722 

13-72A 

•13-789 

•13-790 

NSELEN 

00005/. 

17-1111 

17-11A1 

NSENC 

0000A2 

•17-1112 

•17-1118 

•I7-11A2 

NSMHCl 

000036 

•16-1013 

•16-1016 

•16-1019 

16-1038 

16-1059 

16-lOAO 

N$MHC2 

OOOOAA 

•16-1025 

♦16-1026 

•16-1027 

•16-1030 

•16-1051 

•16-1052 

NSROAI 

000022 

•12-6A1 

•12-6A5 

•12-6A8 

12-655 

12-657 

N$R0A2 

000030 

•12-65A 

•12-655 

•12-658 

NtTLC 

000100 

11-573 

11-57A 

11-576 

•15-929 

•15-9A5 

•15-9A8 

N$TNC 

0001  U 

15-878 

1'^-879 

NSXLEN 

00012A 

11-571 
16-1010 

12-6A0 
16-1065 

13-720 

13-788 

lA-835 

1A-8A5 

NSSVCT 

S      ****** 

8-350 

PBLK 

000032  R 

#6-131 

10-A78 

I0-A83 

PRSYM 

000600  R 

7-253 

#10-A13 

PR1SC 

000162  R 

#6-187 

9-397 

PR  1  COM 

000150  fi 

#6-183 

9-396 

PSYM 

C00036  R 

#6-136 

•10-A6A 

♦1C-A67 

PVAL 

000042  R 

#6-157 

7-276 

7-288 

P.BLKS 

=    »♦♦»*♦     GX 

7-272 

P.REL 

;    ,,*«*»     GX 

7-28A 

7-299 

RSSEIS 

r     ****** 

7-289 

7-290 

12-633 

15-956 

16-1003 

17-1105 

R$$MPL 

r     **«*♦♦ 

5-62 

6-98 

6-13C 

7-262 

10-A27 

19-1197 

R$$nD 

=     ****** 

7-289 

7-290 

12-633 

15-956 

16-1005 

17-1105 

16-1066 


15-877 


16-1068 


15-928 


16-1069 


15-9A2 
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VI 


K1 

U3 

UA  000716  000000 

K5  000720  000000 


.FVEN 

SGENST: :.W0RD   0 
SGENND: :.WORD   0 


GEN  PARTITION  START  ADDRESS 
GEN  PARTITION  END  ADDRESS 
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DATA  FOR    INPUT    PARAMETERS 


62?  003^16 

623 

62A 

625 

626 

627 

628 

629  003420 

630  003A22 
631 

632 
633 

634  003A24 

635  003430 
636 

637 
638 
639 
640 
641 
642 


000001 
000002 
000004 


$PFLAG:: 
°h.X[)F=  = 
PF.PSV== 
Pf  .XGA=  = 


,BLKW 


Page  15-3 
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vR 

to 


END  Of  TASK  BUFFER  POINTERS 


$XBUF2::.BLKW 
$XLEN2::.BLKW 


PSI  characteristics  word 
System  has  extended  data  formats 
System  contains  PSV  (gateway)  module 
System  contains  XGA  (host  access)  module 


ADDRESS  OF  REMAINDER  OF  XX8UF 
LENGTH  OF  BINARY  BUFFER 


CTDOOn 
[TD0013 
[TDOOn 
[TDOOU 


003430' 


176000 
00(^001 


LOAD  REQUEST  BLOCK 

$$LRB::  .8LKW   2 
ROB::    .BLKU   40. 
RQBST==  RQB+LR.STS 


AREA  SUPPORT  PARAMETERS 

ARAMSK==1 76000 
IEVL1==1 


REQUESTING  TASK'.  NAME 
INPUT  PARAMETERS 


wMD  Dnnr  MAron  v.-n^;  n'^K  TuocHa^  17-'^^n-HS  1^-lS   P;inp  1^ 
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B  12 


1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
i232 
1233 
1234 
1235 
1236 
1237 


004764 
004766 
004772 
004774 
004776 
005002 
005004 
005006 
005010 
005012 
005016 
005020 


103402 

042716     160000 

062603 

010301 

042703  177000 

105001 

000301 

006201 

060102 

062702  000003 

005001 

000C57 


65$: 


BLO 

SIC 

ADD 

MOV 

BIC 

CLRB 

SWAB 

ASR 

ADD 

ADD 

CLR 

BR 


65$ 

#160000, (SP) 

(SP)*,R3 

R3,R1 

*1/7000,R3 

R1 

R1 

R1 

R1,R2 

*3,R2 

R1 

27% 


BR  IF  NO 

CLEAR  MAPPING  BITS 

COMPUTE  OFFSET  (  VA  +  BLOCK  REMAINDER  ) 
COPY  OFFSET 

CONVERT  TO  OFFSET  INTO  512.  BYTE  BLOCK 
ALMOST  CLEAR  OFFSET  INTO  BLOCK 
ALIGN  BLOCKS  OF  OFFSET  WITH  STARTING 
BLOCK 
FORM  STARTING  BLOCK  OF  OFFSET 
F0R.1  VIRTUAL  BLOCK  NUMBER  WITHIN  FILE 
CLEAR  HIGH  ORDER  VBN  FOR  .POINT 


.DSABL  LS8 


lyMD    DnnT    jjinrar\    \/Ac:     n^k     T. 
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VRES 

CREATED 

BY 

MACRO  ON  17-SEP-85  AT 

16:16 

PAGE  A 

SYMBOL 

:ross  reference 

CREF   OA 

SYMBOL 

VALUE 

REFERENCES 

LR.ACO 

000052 

#5-80 

LR.ADD 

000012 

#5-80 

LR.ALl 

000002 

#5-80 

LR.BLK 

000010 

#5-80 

LR.CTL 

OOOOOA 

#5-80 

LR.DES 

000010 

#5-80 

LR.HLP 

000002 

#5-80 

LR.LIN 

000002 

#5-80      5-80 

5-80 

5-80 

L R.NAM 

000012 

#5-80 

LR.PAS 

OOOOAl 

#5-80 

LR.PRO 

000002 

#5-80 

LR.STS 

000000 

#5-80      15-636 

LR.TRI 

000006 

#5-80 

LR.TYP 

000002 

#5-80 

LR.UCB 

000016 

#5-80 

LR.UIC 

000020 

#5-80 

LR.UNT 

000005 

#5-80 

LS.ALI 

=  000016 

#5-80 

LS.CEX 

=  000001 

#5-80 

LS.CIR 

=  000033 

#5-80 

LS.CXO 

=  010000 

#5-80 

LS.CX5 

=  000400 

#5-80 

LS.ECH 

=  001000 

#5-80 

LS.FDX 

=  004000 

#5-80 

LS.HDX 

=  010000 

#5-80 

LS.HLP 

=  000012 

#5-80 

LS.LIN 

=  000003 

#5-80 

LS.LMC 

=  000007 

#5-80 

LS.LOG 

=  000020 

#5-80 

LS.MOD 

=  000036 

#5-80 

L5.N0D 

=  OOOOU 

#5-80 

LS.NTI 

=  000013 

#5-80 

LS.OBJ 

=  000022 

#5-80 

LS.OPT 

=  OOOAOO 

#5-80 

LS.PRO 

=  000002 

#5-80 

LS.TOP 

=  002000 

#5-80 

LS.TST 

=  000010 

#5-80 

LS.UNF 

=  020000 

#5-80 

LS.XIT 

=  000011 

#5-80 

LX.ALI 

=  000017 

#5-80 

LX.CEX 

=  OOOOOA 

#5-80 

LX.CIR 

-  000034 

#5-80 

LX.LIN 

=  000006 

#5-80 

LX.LOG 

-  000021 

#5-80 

LX.NOD 

=  000015 

#5-80 

LX.OBJ 

=  000023 

#5-80 

LX.PRO 

-  0OOCO5 

#5-80 

L.COST 

000015 

6 

#5-78 

L.CTL 

000012 

G 

#5-78 

L.CVA 

177776 

G 

#5-78 

L.DDM 

000002 

G 

#5-78 

L.DDS 

OOOOO'. 

G 

#5-78 

B  13 


5-80 
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B  U 


»FlLE"ID*«VRQB 


Li 

S5SSSSSS 

TTTTTITITT 

S5SSS5SS 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

v*y 

vv 

.<RRRRRRR 

QQQQQQ 

BBBBBB8B 

vv 

vv 

RRRRRRRR 

QQQQQQ 

BBB88888 

vv 

vv 

RR      RR 

QQ 

QQ 

BB      B8 

vv 

vv 

RR      RR 

QQ 

QQ 

BB      88 

vv 

vv 

RR      RR 

QQ 

QQ 

BB      88 

\/v 

vv 

RR      RR 

QQ 

QQ 

BB      B8 

vv 

V\/ 

RR'iRRRRR 

QQ 

QQ 

B88BBB8B 

vv 

vv 

RRRRRRRR 

QQ 

QQ 

BBBB8888 

vv 

vv 

RR   RR 

QQ 

QQ   QQ 

BB      88 

vv 

vv 

RR   RR 

QQ 

QQ  QQ 

BB      88 

\/v 

vv 

RR    RR 

QQ 

QQ 

BB      B8 

vv 

vv 

RR    RR 

QQ 

QQ 

BB      B8 

vv 

RR      RR 

QQQQ  QQ 

B8BB8888 

vv 

RR      RR 

QQQU   QQ 

BBBBBBBB 

C  H 
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581 

382 

383 

38^ 

385 

386 

387 

388 

389 

390 

391 

39? 

393  000234 

39A  000234 

395  000242 

396  000244 

397  000252 

398  000254 

399  000260 

400  000264 

401  000266 

402  000272 
403 

404  000274 

405  000302 

406  000304 

407  000312 

408  000314 

409  000322 

410  000324 

411  000330 

412  000334 

413  000336 


.S8TTL  CHKNOD  -  CHECK  NODE  PARMS 

CHKNOD  -  CHECK  NODE  PARAMETERS 

INPUTS: 

SOPTON  =  NODE  OPTIONS  SELECTED 

OUTPUTS: 

C-BIT=SUCCESS/FA!LURE 


032767 
001073 
032767 
001467 
012700 

103464 
C05760 
001464 

052767 
001453 
032767 
001447 
052767 
001061 
016746 

012603 
105456 


OOOOOOG  OCOOOOG 
000172  OOOOOOG 
114224 

OOOOOOG 

000002  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000246' 


CHKNOD: 


414  000340 

016700 

OOOOOOG 

415  000344 

016701 

OOOOOOG 

416  000550 

006501 

417  000552 

060100 

418  000554 

016701 

OOOOOOG 

419  000360 

00':710 

420  00056? 

100404 

421 

422 

425 

4?;.  000564 

105761 

OOOOOOG 

425  000570 

001030 

4?6  000572 

0o:-'-11 

427 

428 

429 

430  000574 

105761 

OOOOOOG 

451  000400 

001424 

432  000402 

011000 

435  000404 

006500 

454  000406 

016702 

OOOOOOG 

455  000412 

006502 

4  36  000414 

060200 

457 

BIT 

#Vf .PEM,$VFLAG 

BNE 

30$ 

BIT 

tfOPSNLllOPSRPAIOPSTPAl 

BEQ 

30$ 

MOV 

#«RXPT,RO 

CALL 

SFPDV 

BCS 

101$ 

TST 

Z.PCB(RO) 

BEQ 

111$ 

BIT 

*OP$NLI,$OPTON 

BEQ 

50$ 

BIT 

*CM$SET,$CMAND 

BEQ 

50$ 

BIT 

*VF.ADD,$VFLA6 

BNE 

141$ 

MOV 

PDVX,-(SP) 

CALL 

SLTA 

MOV 

(SP)+,R5 

BCS 

40$ 

MOV 

$LLCTA,RO 

MOV 

$SLN,R1 

ASL 

R1 

ADD 

R1,R0 

MOV 

$S.TA,R1 

TST 

(RO) 

BMI 

10$ 

';    PT-TO-PT  LINE 

TST6 

L.NSTA(RI) 

BNE 

121$ 

BR 

20$ 

;  MULTIPOINT 

LINE 

iO$:    TST6 

L.NSTA(RI) 

BLQ 

121$ 

MOV 

(RO),RO 

ASL 

RO 

MOV 

$TRI8,R2 

ASL 

R2 

ADD 

R2,R0 

IS  THIS  PROTCL  EMLTR  CMD  ? 
IF  NE,  YES  ..  SKIP  CHECKS 
OP$VERIOP$EST,$OPTON  ;  XPT  NEEDED  ? 
IF  EQ,  NO 
SEARCH  FOR  XPT'S 
..PDV  ADDRESS 
IF  CS,  XPT  NOT  FOUND 
IS  PROCESS  LOADED  ? 
IF  EQ,  NO 

IS  THIS  A  LOOPBACK  NODE  REQUEST  ? 

IF  EQ,  NO  ..  OKAY 

IS  THIS  A  SET  REQUEST  ? 

!F  EQ,  NO 

WAS  NODE  ID  GIVEN  AS  ADDRESS  ? 

IF  NE,  YES  ..  ERROR 

SAVE  PDV  INDEX  FOR  XPT 

ELSE,  GET  SLT  ADDRESS 

GET  XPT  PDV  INDEX 

IF  CS,  LINE  NOT  FOUND 

POINT  AT  REVERSE  TABLE 

GET  LINE  NUMBER 

CONVERT  TO  WORDS 

POINT  AT  ENTRY  IN  REVERSE  TABL" 

GET  SLT  ADDRESS 

IS  REVERSE  TABLE  POINTING  AT  SIATIONS 

IF  MI,  YES 


IS  THE  LINE  MULTIPOINT 
IF  NE,  YES  ..  ERROR 
ELSE,  CONTINUE 


IS  THIS  LINE  MULTIPOINT  ? 

IF  EQ,  NO  ..  ERROR 

GET  ADDRESS/2  OF  STATION  TABLE 

CONVERT  TO  STATION  TABLE  ADDRESS 

GET  TRIBUTARY  NUMBER 

CONVERT  TRIBUTARY  NUMBER  TO  WORD  INDEX 

POINT  AT  PDV  INDEX  AND  CHANNEL  N"MBER 
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779 
780 
781 
782 
783 
78A 
785 
786 
787 
788 
789 
790 
791 
792 
793 
79-; 

795  001672 

796  001 67A 

797  001700 

798  001 70A 

799  001706 

800  001710 
801 

802 

803  0017U 

JOA  001722 

805  001724 

806 

807  001732 

808  001 7A0 

809  001 7A2 
810 

811  001746 

812  001754 
813 

814  001756 

815  001762 

816  001766 

817  001770 

818  001776 

819  002000 

820  002002 
821 

822  002010 

823  002012 

824  002014 
825 

826  002016 

827  002020 

828  002022 

829  002026 

830  002030 

831  002032 
8"J2  002036 

833  002040 

834  002044 

835  002046 


005000 
016701 
005761 
001003 
005004 
000167 


022767 
001003 


032767 
001002 


022767 
001020 

016702 
016746 
012203 
032763 
001404 
005726 


005316 
001365 
005726 

000241 
005002 
156102 
001 '.46 
006302 
062701 
060102 
022721 
001435 
""5741 


.SBTTL   CPRO  -  CHECK  CLEAR  PROCESS  PARMS 

I -RO  -  CHECK  "CLEAR  PROCESS"  REQUEST  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  CHECK  THAT  A  CLEAR  PROCESS  REQUEST  IS  VALID.  IF 

THE  PROCESS  IS  AN  LLC,  ALL  ITS  CHANNELS  MUST  BE  INACTIVE  AND,  IF  IT  IS  ALSO 

AN  RSXllM  PSEUDO-DEVICE,  THE  DEVICE  MUST  3E  DISMOUNTED.  IF  THE  PROCESS  IS 

EITHER  A  DLC  OR  A  DDM,  ALL  LINES  WHICH  INCLUDE  THE  PROCESS  MUST  BE  NOT  READY. 

INPUTS: 


$PDVA=PDV  ADDRESS 

OUTPUTS: 

C-8IT=SUCCESS/FA1LURE 

R4  CLEARED  IF  PROCESS  IS  NON-RESIDENT 


OOOOOOG 
OOOOOOG 


000554 


CPRO: 


004640  OOOOOOG  10$: 


OOOOOOG  OOOOOOG  14$ 


114224  OOOOOOG  19$: 


OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 


5$: 


4$: 


15$: 


OOOOOOG 

OOOOOOG 
140000 


CLR 
MOV 
TST 
BNE 
CLR 
JMP 


CMP 
BNE 
EMSGSR 

BIT 
BNE 
CALLR 

CMP 
BNE 

MOV 
MOV 
MOV 
BIT 
BEQ 
TST 
EMSGSR 

DEC 
BNE 
TST 

ac 

CLR 

BIS8 

BEQ 

ASL 

ADD 

ADD 

CMP 

BEQ 

TST 


RO 

$PDVA,R1 

Z.PC8(R1) 

10$ 

R4 

150$ 


#»RAUX,$NAME 

14$ 

ZR 

#FL.LLC,$FLAGS 

19$ 

100$ 

*>RXPT,$NAME 
15$ 

$SLT|V|A,R2 

$SLTNM,-(SP) 

(R2)t,R3 

#LF.RDY,L.FLG(R3 

4$ 

(SP)  + 

78 

(SP) 
5$ 
(SP)  + 


R2 

Z.LLN(R1),R2 

40$ 

R2 

*Z.MAP,R1 

R1,R2 

#140000, (R1)  + 

30$ 

-(R1) 


USED  AS  ERROR  FLAG 

GET  PDV  ADDRESS 

IS  PROCESS  CORE  RESIDENT? 

IF  NE,  NO 

INDICATE  NO  WORK  TO  DO 


IS  IT  AUX  ? 

IF  NE,  NO 

PROCESS  MAY  NOT  BE  UNLOADED 

IS  THIS  AN  LLC? 
IF  YES  -  BRANCH 
CONTINUE 

IS  IT  XPT  ? 
IF  NO  BRANCH 

GET  SLT  TABLE  ADDRESS 
GET  NUMBER  OF  LINES 
GET  NEXT  SLT 
;  IS  LINE  LOADED  ? 
IF  NO  -  BRANCH 
CLEAN  UP  STACK 
LINE  IN  WRONG  STATE 

COUNT  ONE  LESS  SLT 

CLEAN  UP  STACK 

JUST  IN  CASE 

GET  CHANNEL  COUNT 

IF  ZERoTnONE  to  CHECK 

CONVERT  TO  A  WORD  INDEX 

POINT  AT  MAPPING  TABLE 

GIVING  END  OF  MAPPING  TABLE  ADDRESS 

IS  CHANNEL  0  ASSIGNED? 

IF  EQ,  NO 

RESET  CHANNEL  POINTER 
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Symbol 

table 

5f .TER= 

001000 

S.HAD 

000010 

T$T5 

000030 

ZF. ]NI  = 

040000 

$DtUMR= 

GX 

5F.0NL= 

OOOOAO 

S.HST 

000006 

T$T6 

000032 

ZF.KMX^ 

000020 

SDFUK 

****** 

GX 

SISDHO  = 

V2200 

S.ITM 

000007 

T$$KMG= 

000000 

ZF.LLC= 

000004 

$DIGn  = 

000024 

SLTDF 

00O776R 

003 

5.LEN 

OOOOOA 

T$$MIN= 

000000 

ZF.LMC= 

000100 

$DNUMB= 

000014 

SlTDFI 

000366R 

003 

S.LENG 

000052 

UBMPR  = 

17i;200 

ZF.MAN= 

020000 

$E0S  = 

000012 

5LTDf2 

00C374R 

003 

S.LHD 

000000 

UDSARO= 

177660 

ZF.MFL= 

000010 

$Exn  = 

000000 

SLTDF5 

00035OR 

003 

S.LNK 

000000 

UDSDRO^ 

177620 

ZF.MTM= 

000400 

SFAIL  = 

177777 

SlTFlG 

OOIOUR 

003 

S.LOA 

0O00A4 

UK 

002106R 

003 

ZF.MUX= 

000040 

$FILHD= 

****** 

GX 

5LTNUM= 

......  GX 

S.NMST 

000002 

UIC8UF 

000206RG 

002 

ZF.PSE= 

002000 

$FMASK= 

****** 

GX 

SPARE  = 

000010 

S.OUNR 

000003 

UISAfiO= 

177640 

ZF.SLI= 

010000 

$GCLEP= 

****** 

GX 

SPSAv  = 

•••«..  GX 

S.PKT 

OOOOU 

UISAR1= 

177642 

ZF.TIM= 

000200 

$GETAD= 

****** 

GX 

SP.E1P= 

000001 

S.PRI 

000004 

UISAR4= 

177650 

ZF.X3P= 

000000 

$GErRV= 

****** 

GX 

SP.ENlB= 

oooc^: 

S.P5S 

000022 

UISAR5=: 

177652 

ZS.ASN= 

100000 

$GTBUF 

0031 32RG                 1 

SP.LOG- 

f^cooo^ 

S.RCNT 

177772 

UISAR6= 

177654 

ZS.BSY= 

140000 

$HMBUF= 

****** 

GX 

5RHF^5 

015552R 

S.ROFF 

177773 

UISAfi7= 

177656 

Z.AVL 

000014 

$LAMDA= 

000000 

SRO   = 

177572 

S.5EC 

000040 

UISDRO= 

177600 

Z.D.M 

000016 

$LGSTT^ 

****** 

GX 

SR3   = 

172516 

S.SiS 

000011 

U1SDR4--: 

177610 

Z.DSP 

000000 

$LSTAD= 

****** 

GX 

3TADF 

001174R 

003 

S.TER 

000042 

UISDfi5= 

177612 

Z.FLG 

000010 

$L3TRM= 

****** 

GX 

STAOFi 

0012UR 

003 

S.VCT 

000005 

UISDR6= 

177614 

Z.LEN  = 

000016 

$MAC  = 

****** 

GX 

3  •  '■.i\ 

000036R 

002 

TER 

002000R 

003  UISDR7= 

177616 

Z.LLN 

000006 

$MAXOV= 

****** 

GX 

STRAD 

000332RG 

002 

TOK 

002126R 

003  UISZ  = 

000014  G 

Z.MAP 

000020 

$MFL 

017360RG                 i 

5TRADD 

000056R 

002 

TOPFLG= 

»»«..»  GX 

UMR8F 

000006R 

002 

Z.NAM 

000004 

SMUL  = 

****** 

GX 

STRADR 

01Q242R 

TPS   = 

177564 

UMRFLG= 

**•♦♦*  GX 

Z.PCB 

000012 

$NBIAS= 

****** 

GX 

STRING 

001735R 

003 

TYPE 

000063R 

002  UMRPTR= 

***«*»  GX 

Z.SCH 

000007 

$NTCFP= 

****** 

GX 

STRMAX 

01C2AOR 

TY$CHA= 

000400 

UNT 

000061 R 

002 

$ALL15= 

****** 

GX 

$NTCFS= 

****** 

GX 

STRNG1 

001746R 

003 

TV$EVE= 

001000 

USRUIC 

017142RG 

$ALL16= 

GX 

$NrLHB= 

****** 

GX 

STRPT 

000334RG 

002 

TY$STA= 

002000 

USRUI1 

017134RG 

$ALL22= 

****** 

GX 

$NUMBR= 

000002 

5TRPTR 

010236R 

TY$SUM= 

000000 

US$CNF= 

000002 

$ALPHA= 

000022 

$08JHD= 

****** 

GX 

STRS:Z 

000204RG 

002 

TSFLAG 

000044 

US$DIS= 

000006 

$ALPOL= 

****** 

GX 

$0PT0N= 

****** 

GX 

STtCC  = 

OOOOOA 

TSLIF 

000013 

US$D0N= 

000000 

$ANY  = 

000020 

$PARHD=^ 

****** 

GX 

5T$CIR= 

000006 

TSLIFL 

000013 

USSDSC^ 

000004 

$ASUMR= 

****** 

GX 

SPAVL  = 

****** 

GX 

ST$CIS= 

000002 

TtLIFO 

000013 

S$EAC= 

000012 

SAZFS  = 

****** 

GX 

$PDVNM= 

****** 

GX 

ST$DAT= 

000010 

T$LIFS 

000013 

US$WDS= 

000010 

$BFR  = 

****** 

GX 

$PDVTA= 

****** 

GX 

iT$DIP= 

000012 

TtLIN 

000000 

VF.DLX= 

*«*»**  GX 

$BLANK= 

000006 

$PUMR  = 

****** 

GX 

ST$PND= 

COOOU 

TSLIPS 

000006 

VF.NTI= 

*»*»**  GX 

$CAT5  = 

****** 

GX 

$PUTAD= 

****** 

GX 

SUBPART 

......  GX 

TSLLD 

000012 

VF.SS  = 

******   GX 

$CBDSG= 

****** 

GX 

$PUTRC= 

****** 

GX 

SWR 

177570 

T$LLDC 

000045 

V$$CTR= 

OOlOOf 

$CC8CT= 

****** 

GX 

$QB!AS= 

****** 

GX 

S''SFDB= 

..»»..  GX 

T$LLDL 

000012 

UC.CNT=: 

000400 

$CCBLH= 

****** 

GX 

$QSTRT= 

****** 

GX 

S$$JRG= 

OOOCOO 

TSLLDO 

000012 

WC.EVE= 

004000 

$CC8NM= 

****** 

GX 

SQUAL  = 

****** 

GX 

S$t¥CZ= 

007600 

TSLLDS 

000012 

UC.rRI= 

002000 

$CCBS 

002554RG 

$RADDR= 

****** 

GX 

5.  ADD 

OOOOOA 

TSLLEN 

000046 

uc.uNr= 

001000 

$CCBSZ= 

****** 

GX 

$RAD50= 

000016 

S.BIilStC 

177776 

T$LOPR 

000002 

XPCIfi 

004600R 

$CEACC= 

****** 

GX 

$RBLCK= 

****** 

GX 

S.BMSV 

177774 

TSLTCL 

000024 

XPTDF1 

000262R 

003 

$CET  = 

****** 

GX 

$RDBCT= 

****** 

GX 

S.fIR 

000016 

T$LT!M 

000026 

XPTLLN 

000066R 

002 

$CFG 

005410RG 

JRDBLH= 

****** 

GX 

S.CON 

000010 

TSLTPR 

000014 

X$$DBT= 

000000 

$CLBUF= 

****** 

GX 

$RDBNM=: 

****** 

GX 

S.COST 

000001 

TSLTPS 

000020 

X.FLG 

010244R 

$CLDEQ= 

****** 

GX 

$RDBS 

002644RG                 1 

5.CSR 

000012 

T$NAPL 

000004 

X.FLG1 

010336R 

$CLFLG= 

****** 

GX 

$RDBSZ= 

****** 

GX 

S.C^M 

000006 

TSNFE 

000000 

XI 

000144R 

003 

$CLIOS= 

****** 

GX 

$RDBTH= 

****** 

GX 

S .  DE  k' 

000020 

TSNLEN 

000010 

X2 

000156R 

003 

$CLQUE= 

****** 

GX 

SRETI 

001556RG 

S .  D I A 

0OOOA6 

TSNNUL 

000002 

X3 

000210R 

003 

$CLSAV= 

****** 

GX 

tRET2 

OOUOORG 

S.PMCS 

000020 

T$NOPL 

OOOOCo 

X4 

000224R 

003 

SCMAND 

****** 

GX 

$R5IZE= 

*  .V  *  *  *  * 

GX 

^.DPA 

000032 

T$tJRN. 

0000  ;2 

ZAS 

C02542R 

0C3 

SCRPAR 

003366R6 

SRSNTI 

020T56RG                  1 

S.DPf 

C00C36 

r$NRPL 

&00005 

ZF.COU= 

001000 

SCTIM  = 

****** 

GX 

$SAVAL= 

****** 

GX 

5.:''jf« 

000050 

T$NRUL 

00J007 

If.t)Of= 

000001 

$CXOPT= 

**  fc*** 

GX 

ISAV"G= 

****** 

GX 

s.flag 

000002 

TSNVR 

000001 

ZF.DIA= 

004000 

SDALCT 

0032C0RG 

$SAV''R-^ 

****** 

GX 

S.F.G 

000000 

TSRPR! 

000040 

ZF.DLC= 

000002 

$DEA16= 

****** 

GX 

$SDBCT= 

****** 

GX 

5. ran 

000016 

r$Si/C 

000034 

ZF.DVP= 

100000 

$DECPT= 

****** 

GX 

$SDBLH= 

GX 
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VNTI       CREATED  BV  MACRO  ON  29-JUN-85  AT  02:50 
SYMBOL  CROSS  REFERENCE 


SYI1B0L   VALUE 


PBLOX 

PDVNAM 

PIRQ 

PMODE 

PREFIX 

PRELEN 

PREWLN 

PREWRN 

PROTXT 

PRVUNM 

PRO 

PR1 

PR2 

PR3 

PRA 

PR5 

PR6 

PR7 

PS 

PSTART 

PS.COM 
PS.NSF 
PS. SYS 
PUMR 
■^.BLKS 
K.BUSY 
P. MAIN 
P.NAM 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

QFSACT 

QFSALL 

QFSKNO 

QfSLOO 

QINS 

QIO 


r  ****** 
r  ****** 

=  177772 
=  030000 

001 73A   R 
=  OOOOIb 
=  0000-4 

001  i  R 
006^36  R 

000002  R 
=  000000 

=  OOOOAO 
=  000100 
=  OOOKO 
=  000200 
^  0002AO 
=  000300 
=  000340 
=  177776 

r   ******* 

=  000200 
=  000400 
=  000040 

=  ****** 

000016 
000024 
000012 
000004 

OOOOU 

0000'. 

000030 

000010 

=  000001 

=  000002 

=  000004 

=  0000^0 

017272 

002006 


GX 
GX 


RAD 

RBRA 

REMARE 

REONTL 

RETF 

RF.LOO 


GX 


QUICK     014102  R 
Q.IOFN   =  000002 
Q.IOPL   =  000014 


00010;  R 
000076 
000100  R 
C20140  R 
0111'.6  R 
1C0000 


REFERENCES 

»8-304 
*55-2625 
#5-75 
#5-75 

9-542 

9-543 

10-585 

10-584 

28-1705 
#6-115 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
♦8-302 
♦26-1624 

8-275 

26-1556 

17-1057 
♦8-424 
♦26-1559 

8-278 

8-281 

8-271 
♦26-1557 

8-301 

8-303 

8-275 

26-1575 
#5-78 
#5-78 
#5-78 
#5-78 

69-3188 
♦9-542 
♦9-558 
♦10-594 

69-3178 

10-624 
♦1-542 

♦10-584 
.1-6-142 
#27-1667 
#6-140 

8-368 
#67-3^01 
#5-64 


8-377 
56-2642 


#10-612 

#10-613 

#10-615 

#10-614 

#31-1866 

♦80-3538 


8-367 
♦26-1635 
26-1566 

26-1566 
8-427 
26-1595 
8-289 
♦26-1558 
8-273 

17-1081 

17-:082 

1^-1057 

♦26-1586 


79-3514 
♦9-543 
♦9-559 

10-595 
#89-3788 

♦9-543 
♦10-585 
24-1383 

69-3170 
16-964 


C     2 
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CREF       04.00 


11-690  11-697 

59-2695 


10-613 

10-615 

80-3545   •87-3722 


8-376 


♦11-740 
26-1599 
8-291 

17-1063 

26-1574 

♦26-1566 
♦26-1610 


♦9-544 

•10-586 

♦25-1508 


i;-709 


•8-291 

17-1065 
26-1578 

•26-1615 


86-3695    94-4073 
*9-5A4     9-545 

9-560  •10-584 

•10-603  ♦10-60A 


♦9-551 
•10-592 


26-1552   *26-1560   ♦26-1625   •26-1636 


VNT 
MAC 
MAC 

SWT 
SWT 
TRA 


87-3729   •88-3754 


88-3765 


26-1553       ^26-1585       •26-1591       ♦26-1609         26-1623 


8-297 
17-1070 
♦26-1584 


102-4464 
♦9-551 
•10-585 
•10-605 


♦9-552 
•10-593 


•8-297 

17-1072 
♦26-1590 


#105-4700 
♦9-552 
♦10-586 
10-606 


♦9-553 
♦10-594 


♦26-1549 
26-1598 


♦26-1550 
♦26-1608 


♦26-1556 


♦9-553 
10-587 
#10-624 


♦9-557 
♦10-603 


9-554 
♦10-592 


•9-558 
•10-604 


•9-557 
•10-593 


•9-559 
♦10-605 


VN( 
V'Nf 


'69-3214 
107-4789   108-4827 


109-4861  #110-4877 


VNTI 
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MACRO  CROSS  REFERENCE 
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CREF   O'i.OO 


MACRO  NAME 

SWTCHI 
SWTCHO 
TRANS 


VNPBPT 
V'MPDFt 


REFERENCES 

#^9-2486 
#^9-252'^ 
*5-57 

69-3185 
#5-57 

65-2959 
#5-56 
#18-1129 
#19-1156 
#20-1183 
#20-1199 
#20-1215 
#22-1253 
#23-1280 
#23-1295 
#23-1311 
#32-1894 
#32-1904 
#3A-1932 
#34-1947 
#35-1969 
#35-1985 
#35-2000 
#36-2023 
#38-2053 
#39-2081 
#40-2116 
#40-2146 
#41-2185 
#42-2219 
#44-2254 
#44-2274 
#45-2313 
#46-2346 
#46-2366 
#47-2387 
#48-2414 
#48-2436 
#48-2458 
#49-2483 
#49-2509 
#8-217 
#5-55 


#49-2490       #49-2495       #49-2500       #49-2503       #49-2508       #49-2512       #49-2515       #49-2518       #49-2521 


8-286 

88-3746 

8-292 

65-2961 
#18-1111 
#18-1131 
#19-1158 
#20-1184 
#20-1201 
#21-1223 
#22-1255 
#23-1282 
#23-1297 
#23-1312 
#32-1895 
#32-1905 
#34-1934 
#34-1948 
#35-1970 
#35-1987 
#36-2010 
#36-2024 
#38-2055 
#39-2084 
#40-2119 
#40-2149 
#41-2188 
#42-2222 
#44-2256 
#44-2276 
#45-2314 
#46-2347 
#46-2369 
#47-2388 
#48-2417 
#48-2457 
#48-2459 
#49-2484 
#49-2510 

8-219 
5-78 


8-288 
88-3748 
8-294 
69-3190 
#18-1113 
#18-1133 
#19-1160 
#20-1186 
#20-1202 
#21-1226 
#22-1257 
#23-1283 
#23-1299 
#23-1314 
#32-1896 
#32-1906 
#34-1935 
#35-1957 
#35-1972 
#35-1988 
#36-2012 
#37-2031 
#38-203- 
#39-2087 
#40-2122 
#40-2152 
#41-2191 
#42-2225 
#44-2258 
#44-2278 
#45-2316 
#46-2350 
#47-2374 
#47-2391 
#48-2418 
#48-2440 
#49-2467 
#49-2487 
#49-2513 
#110-4882 


61-2752 
94-4062 
8-373 
r<9-3192 
#18-1115 
#19-1142 
#19-1162 
#20-1188 
#20-1204 
#21-1229 
#22-1259 
#23-1285 
#23-1300 
#23-1315 
#32-1897 
#32-1907 
#34-1936 
#35-1959 
#35-1974 
#35-1990 
#36-2014 
#38-2039 
#38-2059 
#39-2090 
#40-2125 
#40-2155 
#41-2194 
#42-2226 
#44-2260 
#44-2280 
#46-2333 
#46-2'51 
#47-2375 
#47-2394 
#48-2421 
#',8-2443 
#49-2468 
#49-2488 
#49-2516 
110-'853 


61-2754 
94-4064 
1  741 
94-i075 
#18-1117 
#19-1144 
#19-1164 
#20-1189 
#20-1205 
#21-1232 
#23-1268 
#23-1286 
#23-1302 
#23-1317 
#32-1898 
#32-1908 
#34-1937 
#35-1961 
#35-1976 
#35-1991 
#36-2016 
#38-2041 
#38-2061 
#39-2093 
#40-2128 
#40-2158 
#41-2^97 
#42-222^ 
#44-2262 
#44-2282 
#46-2334 
#46-2354 
#47-2376 
#48-2402 
#48-2422 
#48-2446 
#49-2471 
#49-2491 
#49-2519 


64-2888 
98-4257 
11-743 
94-4077 
#18-1119 
#19-1146 
#19-1166 
#20-1191 
#20-1207 
#21-1233 
#23-1270 
#23-1287 
#23-1303 
#23-1318 
#32-1899 
#33-1917 
#34-1938 
#35-1963 
#35-1978 
#35-1993 
#36-2017 
#38-2043 
#38-2063 
#39-2096 
#40-2131 
#40-2161 
#41-2200 
#42-2233 
#44-2264 
#44-2284 
#'.6-2335 
#46-2355 
#47-2379 
#48-2405 
#48-2425 
#48-2447 
#49-2472 
#49-2492 
#49-2522 


64-2890 
98-4259 
61-2777 
102-4466 
#18-1121 
#19-1148 
#19-1168 
#20-1193 
#20-1208 
#21-1234 
#23-1272 
#23-1288 
#23-1305 
#23-1320 
#32-1900 
#33-1918 
#34-1940 
#35-1965 
#35-1979 
#35-1994 
#36-2019 
#38-2045 
#39-2071 
#39-2099 
#40-2134 
#40-2164 
#41-2203 
#42-2236 
#44-2266 
#45-2295 
#46-2338 
#46-2358 
#47-2382 
#48-2406 
#48-2428 
#48-2450 
#49-2475 
#49-2496 


65-2919 
102-4453 
64-2892 
102-4468 
#18-1123 
#19-1150 
#19-1170 
#20-1195 
#20-1210 
#21-1237 
#23-1274 
#23-1290 
#23-1306 
#32-1891 
#32-1901 
#33-1920 
#34-1942 
#35-1966 
#35-1981 
#35-1995 
#36-2020 
#38-2047 
#39-2074 
#39-2100 
#40-2137 
#40-2167 
#42-2210 
#42-2237 
#44-2268 
#45-2296 
#46-2339 
#46-2359 
#47-2383 
#48-2407 
#48-2429 
#48-2451 
#49-2476 
#49-2497 


65-2922 

102-4455 

64-2895 

#18-1125 
#19-1152 
#19-1172 
#20-1196 
#20-1212 
#21-1240 
#23-1276 
#23-1291 
#23-1308 
#32-1892 
#32-1902 
#33-1921 
#34-1943 
#35-1967 
#35-1982 
#35-1997 
#36-2021 
#38-2049 
#39-2077 
#39-2103 
#40-2140 
#40-2170 
#42-2213 
#43-2244 
#44-2270 
#45-2303 
#46-2342 
#46-2362 
#47-2385 
#48-2410 
#48-2432 
#48-2454 
#49-2479 
#49-2501 


69-3183 

65-2923 

#18-1127 
#19-1154 
#20-1181 
#20-1198 
#20-1213 
#21-1243 
#23-1278 
#23-1293 
#23-1309 
#32-1893 
#32-1903 
#34-1930 
#34-1945 
#35-1968 
#35-1984 
#35-1998 
#36-2022 
#38-2051 
#39-2078 
#40-2113 
#40-2143 
#40-2173 
#42-2216 
#44-2252 
#44-2272 
#45-2305 
#46-2343 
#46-2363 
#47-2386 
#48-2413 
#48-2433 
#48-2455 
#49-2480 
#49-2504 


»»F1LE«MD««VPI0 
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CR.MC    -   CREATE    MICf-OCODL    PARTITION 


404 
405 
406 
407 
4CS 
409 
410 
411 
412 
413 
414 

415  000624 

416  000626 

417  000632 
418 

419  000636 

420  000640 

421  000642 

422  000644 

423  000646 
424 

425  000650 

426  000656 

427  000660 

428  000664 

429  000666 
4  30  000674 

431  000676 

432  000702 

433  000704 
434 

435  000710 

436  000712 

437  000714 

438  000716 

439  000720 
440 

441  000724 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454  000726 

455  000732 
4^6  000>36 
4  57  P00"40 
458  000744 
45c  000750 
46(!  000754 


SFIL  -  SET  UP  MICROCODE  TASK  FUESPEC 

INPUT): 

SDFUIC   -   DEFAULT   DEV:[UIC] 

OUTPUTS: 

FILE  SPEC  SET  UP  IN  MCFBF  BUFFER 


005C02  SFIL: 

012703  000212' 
012700  OCOOOOG 

005202  10$: 

112023 

001375 

005302 

005303 

022767  102561  OOOOOOG 

001003 

012700     000154' 

000411 

022767     042560     OOOOOOG   15$: 

001003 

012700  000166' 

000402 

012700  000200'        20$: 


005202 
112023 
001375 
005302 
012701  000212' 


40$: 


CLR 

R2 

;  FILESPEC  LENGTH  :=  0  ; 

MOV 

#MCF8F,R3 

;  STORE  BUFFER  ADDRESS 

MOV 

#$DFUIC,RO 

;  STORE  DEFAULT  UIC  ADDRE 

INC 

R2 

;  BUMP  LENGTH 

Move 

(R0)+,(R3)t 

;  COPY  BYTE 

BNE 

10$ 

;  IF  MORE  -  BRANCH 

DEC 

R2 

;  ADJUST  LENGTH 

DEC 

R3 

CMP 

#*RUNA,$NAME 

;  UNA  DE/ICE  ? 

BNE 

15$ 

;  11^  NO  -  BRANCH 

MOV 

#UNAMC,RO 

;  SET  FILE  NAME 

BR 

40$ 

;  CONTINUE 

CMP 

ff*RKDP,$NAME 

;  KDP  DEVICE  ? 

BNE 

20$ 

;  IF  NO  -  BRANCH 

MOV 

*KDPMC,RO 

;  SET  FILE  NAME 

BR 

40$ 

MOV 

*KDZMC,RO 

;  SET  FILE  NAME 

INC 

R2 

;  BUMi'  LENGTH 

MOVB 

(R0)+,(R3)+ 

;  COPY  BYTE 

BNE 

40$ 

;  IF  MORE  -  BRANCH 

DEC 

R2 

;  ADJUST  LENGTH 

MOV 

#mcfbf,r; 

;  STORE  BUFFER  ADDRESS 

RETURiJ 

y 
RMCLRL  -  READ  LABEL  BLOCK 

INPUTS: 

FILE  OPEN 

OUTPUTS: 

FILE  SIZE  SET  UP  FOR  TRANSFER 


012700  000000' 


'03420 
016001 
010167 
OIOlt.7 


OOOOOOG 
000260' 
000142' 


RMCLBL 

MOV 

#DSKBUF,R0 

STORE  BUFFER  ADDRE£S 

CALL 

$RL8l 

BEAD  LABEL  BLOCK 

BCS 

10$ 

IF  ERROR  -  BPANCH 

MOV 

L$eLDZ'RO),Rl 

COPY  SIZE 

MOV 

r:,$ldsiz 

MG^ 

H,3L0X 

ASL$ 

6,Ri 

CONVERT  ^0  SnES 
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AS.Di;L  = 

000010 

D$NN 

000060 

FE.EXTr 

000001 

HF.Q8  = 

000004 

N$DLA 

000020 

AS.tXT= 

000004 

DSOUTT 

000043 

FE.EXV= 

000004 

HF.UBM^ 

000001 

NSDLY 

000014 

AS.RED= 

000001 

D$RETf 

000050 

FE.FDT= 

0020CJ 

I$$RAR= 

000000 

N$ELE*' 

000054 

AS.WRT= 

000002 

OSRNN 

000002 

FE.LSI= 

000400 

I$$RDN= 

000000 

N$ENC 

000042 

A$$CHK= 

000000 

DSRTMR 

000076 

FE.MUP^ 

000002 

KDPMC 

000166R 

002  NSERRC 

000022 

A$$CPS= 

nooooo 

D$SEG 

000036 

FE.MXT= 

040000 

KDSARO= 

172360 

N$FLG 

000005 

A$$PRI= 

'^0000 

DSSER 

000032 

FE.NLG= 

1000CO 

KDSDRO=: 

172320 

N$FNC 

000006 

A$$TRP- 

0000 

DSSQRL 

000052 

FE  OFF= 

001000 

KD2HC 

000200R 

002  NSGENQ 

000052 

A. IOC 

0003 

D$$BUG= 

177514 

FE.PKT= 

000100 

KIiMARO= 

172340 

N$GTM 

000015 

A.LGTH= 

OOOOK 

D$$ISK= 

000000 

FE.PLA= 

000020 

KINAR5= 

172352 

NSHIGH 

000033 

A.MPCT 

000011 

D$$L11= 

000001 

FE.X25= 

004000 

KINAR6= 

172354 

NSLLT 

000026 

A.PCB 

000012 

D$$YNC= 

000000 

FL.CEX= 

******   GX 

KINAR7= 

172356 

NSLLTM 

000024 

A.PCBL 

000000 

D$$YNIM= 

000000 

FL.LLC= 

******   GX 

KISARO= 

172340 

NSLVC 

000036 

A.-'RI 

000002 

ERROR 

000250R 

002  FL.LMC= 

******  GX 

K1SAR5= 

172352 

NSMBXQ 

000050 

A.STAT 

000010 

ERR10 

000012 

FL.r0P= 

******  GX 

K!SAR6= 

172354 

NSPLLT 

000030 

A.TCB 

000004 

ERR12 

000014 

F.NDPDV 

003100R 

KISAR7^ 

172356 

N$SLA 

000016 

A.TCBL 

000006 

ERRI4 

000016 

F$$LVL= 

000001 

KISDRC= 

172300 

NSSNOD 

000012 

BLOX 

000U2R 

002  ERR16 

000020 

F.H]BK= 

******  GX 

KISDR6= 

172314 

N$TIM 

000004 

BYTES 

0001 '.AR 

002  ERR18 

000022 

F.RSIZ= 

******  GX 

KISDR7= 

172316 

N$VCB 

000010 

CMODE  = 

UOOOO 

ERR2 

000002 

F2.ACN= 

000020 

K$$CNT= 

177546 

N$$ACC= 

000001 

CR.MC 

000220R 

ERR20 

000024 

F2.AHR= 

010000 

K$$CSR= 

177546 

N$$BUF= 

000001 

CSLEN 

000012 

ERR22 

000026 

F2.DAS= 

000001 

K$$LDC= 

000000 

N$SLDV= 

OGOOOl 

CSNID 

OOCOOO 

ERR24 

000030 

F2.DPR^ 

000400 

K$$TPS=: 

000074 

,\;$$MCP= 

000001 

CSNXH 

000002 

ERR26 

000032 

F2.EVT= 

000010 

LD$LP  = 

000000 

N$$MLL= 

000001 

CSTIM 

000010 

ERR28 

000034 

F2.GGF= 

002000 

L$BEXT= 

******  GX 

N$$MOV= 

000010 

C$SCKP= 

OOCOOO 

ERR30 

000036 

F2.1RR= 

001000 

L$SFLG= 

******  GX 

N$$NCT= 

000001 

C$$ORF= 

000400 

ERR32 

000040 

F2.LIB= 

000002 

L$BLDZ= 

******  GX 

N$$PEM= 

000001 

C$iR5H= 

177564 

ERR3A 

000042 

F2.MP  = 

000004 

L$BMXZ= 

******  GX 

PCBA 

000252R 

OSKBUF 

OOOOOOR 

003  ERR4 

000004 

F2.P0L= 

000100 

L$BPAR= 

******  GX 

PIRQ  = 

177772 

OiAMXC 

0C0072 

ERR6 

000006 

F2.RAS= 

004000 

LSBSA  = 

******  GX 

PMODE  = 

030000 

DSAMXH 

00J0^4 

ERRS 

000010 

F2.RBN= 

020000 

L$$ASG= 

000000 

PR.LBL 

001002R 

DSANN 

000000 

EXTEND 

000146R 

002  F2.SDW= 

000040 

L$$DRV= 

000000 

PR. PAR 

001540R 

DSSRPR 

000102 

EXTXPT 

001424R 

F2.STP= 

100000 

L$$P11= 

000001 

PR. SUB 

002334R 

DSBRTM 

000100 

ESNBR 

000014 

F2.SWP- 

040000 

L$$11R= 

OOCOOO 

PR.XFR 

003C26R 

OSDELF 

000045 

ESNSS 

000020 

F2.UND= 

000200 

MSUF 

000262R 

002  PRO   = 

OOCOOO 

DSDELW 

000046 

E$NCR 

000034 

F3.AST= 

000200 

MCFBF 

CCC212R 

002  PRl 

000040 

DSEND  - 

000104 

E$NCS 

000036 

F3.CLI= 

001000 

HCFLG 

C00150R 

002  PR4 

000200 

0$FN8 

000034 

ESNIC 

000044 

F3.CRA= 

000001 

MCLOA  = 

000001 

PR5 

000240 

OSriIOR 

000024 

ESNLEN 

000050 

F3.EIS= 

000004 

MPAR  = 

172100 

PR6   = 

00C300 

OSHCST 

000022 

ESNLLA 

000012 

F3.NWK= 

000002 

MPCSR  = 

177746 

PR7   = 

000340 

DSINAC 

000044 

ESNLNK 

000000 

F3.PMN= 

004000 

MSGPRI 

003152R 

PS 

177776 

DSINCT 

000042 

E$NML 

000040 

F3.PR0= 

0C0040 

M$$CRB= 

000124 

PS.APR= 

000007 

D$!PL 

000051 

E$N,1R 

000024 

.•3.RLK  = 

020000 

M$$CRX= 

OOCOOO 

PS.CHK= 

010000 

0$LID 

000020 

E$NMS 

000030 

F3.SHF= 

040000 

M$$FCS^ 

OCOOOO 

PS.CKP= 

0400CC 

DSLNAM 

000006 

ESNNOD 

000002 

F3.STM^ 

000010 

M$$MGE= 

OOCOOO 

PS.CKR= 

02C0C0 

DSLMJM 

000014 

E$NRT 

000042 

F3.TCH= 

002000 

M$$MET= 

OCOOOO 

PS.C0M= 

00020C 

OSLST 

00004  7 

ESNRTP 

000005 

F3.UDS= 

000020 

M$$OVR= 

OCOOOO 

PS.DEL= 

00001 C 

DSMAXC 

000064 

ESNSEG 

000010 

F3.WAI= 

010000 

NF$BLK= 

CCCIOO 

PS.DRV= 

000020 

SIMAXH 

000066 

ESNTIM 

000046 

F3.XHR^ 

000100 

NF$DMO= 

000010 

PS.FXD= 

004000 

PSM/^XV 

000070 

ESMUSE 

000004 

F3.11S= 

000400 

NF$MOU= 

000040 

PS.L10= 

001C00 

DSMLl 

000040 

ESSIRT 

000006 

G$$TPD-- 

000000 

NF$RST= 

000002 

PS.NSF= 

000400 

DSMNOD 

000041 

■"$$XPR  = 

OCOOOO 

G$$rss= 

000000 

NF$SCN= 

000020 

P5.0UT= 

ICOOOO 

OJNA 

C00G62 

f:.CAL= 

000040 

G$$rT<= 

OCOOOO 

NF$SH'J= 

C00004 

PS.?ER= 

002000 

OSNBEA 

000056 

FE.CEX= 

020000 

GSJWKD= 

000000 

NFSTIMi 

CCC200 

PS.PIC= 

000100 

?$W8RA 

000054 

fE.DRV= 

000010 

HF.CIS= 

:oo200 

N$ACQ 

OCOOOO 

PS.SY5= 

000040 

D$NtMD- 

00005A 

ft.DYM= 

010000 

HF.EIS= 

000002 

NSACTL 

000032 

P$$P45= 

OOCOOO 

OSNLN 

P00030 

FE.EXP= 

000200 

HF.FPP- 

'00000 

N$C1R 

or  0034 

P$$WRD= 

OOCOOO 

PRMP 
PROM! 


002 
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PRI*|D 


PRMPTS    - 

VNP   PROMPT   STRINGS 

PROMPTS 

132 

000000 

133 

000000 

13^ 

000000 

135 

000000 

136 

000000 

137 

000000 

158 

000000 

139 

000000 

140 

000000 

Kl 

000000 

H2 

000000 

1A3 

oooooc 

UA 

000000 

U5 

000000 

H6 

000000 

U7 

000000 

1A8 

000000 

1A9 

000000 

150 

000000 

151 

ooooco 

152 

000000 

153 

000000 

154 

155 

000001 

C  6 

MACRO  V05.03b  Saturday  29-Jun-85  02:55  Page  6-1 


PRMPTS  <"Proce5s  name:  ">, 

PRMPTS  <r"Scope:  ">, 

PRMPTS  <"Set  component:  ">, 

PRMPTS  <"Set  alias  options:  " 

PRMPTS  <"Set  circuit  options: 

PRMPTS  <"Set  line  options:  "> 

PRMPTS  <"Set  logging  options: 

PRMPTS  <"Set  node  options:  "> 

PRMPTS  <"Set  HioduLe  options: 

PRMPTS  <"Set  object  options: 

PRMPTS  <"Set  process  options: 

PRMPTS  <"Show  component:  ">, 

PRMPTf  <"Sink  node  identifica 

PRMPTS  <"Sink  name:  ">, 

PRMPTS  <"State:  ">, 

PRMPTS  <"TerminaL  identificat 

PRMPTS  <"Text  password:  ">, 

PRMPTS  <"Tributary  address:  " 

PRMPTS  <"User  identification: 

PRMPTS  <"Vector:  "> , 

PRMPTS  <"Veri f ication  state: 

PRMPTS  <"X25-seri/er  state:  "> 

.END 


PSPID,<:> 

PSSCO,<:> 

PSSET,<:> 

>, 

P$SEAL,<:> 

'■>, 

PSSECI,<:> 

PSSELI,<:> 

">, 

PSSELO,<:> 

PSSENO,<:> 

'■>. 

PSSEMO,<:> 

">, 

PSSEOB,<:> 

">, 

PSSEPR,<:> 

PSSHO,<:> 

tion: 

'>,    PSSIN,<:> 

PSSNAN,<:> 

PSSTA,<:> 

ion:    "? 

,      PSTER,<:> 

PSTPAS,<:> 

'>, 

P$TRIB,<:> 

">, 

PSUSE,<:> 

PSVEC,<:> 

">, 

PSVEST,<:> 

, 

PSX5ST,<:> 

PRMPr 


VNP  PROMPT  STRINGS 
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VPf 


526 

32^ 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337  0003A6 

33S  000350 

339  00O35A 

340  000360 
3'.1  000366 
3A2 

343  000372 

344  000376 

345  000404 

346  000412 

347  000416 

348  000422 
349 

350  000426 

351  000436 

352  000454 
353 

354  000456 
355 


.S8TTL  ALV8LK  -  ALLOCATE  VECTOR  BLOCK 

ALVBLK  -  ALLOCATE  VECTOR  BLOCK 

INPUTS: 

VECVAL  -  ADDRESS  OF  VECTOR  TABLE 
VLNVAL  -  SIZE  Of  VECTOR  TABl f  (WORDS) 

OUTPUTS: 

VECTOR  BLOCK  ALLOCATED  AND  INITIALIZED 


012701   000012 


016767 
010067 

005067 
016767 
016767 
016746 
066716 
012667 


000026G  OOOOOOG 
000026G 

000002G 
000054'  000006G 


ALVBLK:  SA\'RG 

MOV 

CALL 

MOV 

MOV 


000066' 
OOOOOOG 
OOOOOOG 
0C0004G 


000010G 


CLR 
MOV 
MOV 
MOV 
ADD 
MOV 

CEACCS 

PUTAD 

RESRG 

RETURN 


<R1> 

#V.LEN,R1 

SALPOL 

$NTLHB+.CXVEC,$BFRtV.LNK 

RO,$NTLHB<-.CXVEC 

$SFR+V.FLG 

VECVAL, $BFR+V. ADD 

VLNVAL.SBFRtV.SIZ 

$PDVA,-(SP) 

$CETDF,(SP) 

(SP)+,$BFR+V.PDV 

R0,R2 

R2,#V.LEN 

<R1> 


SAVE  PCB  ADDRESS 

GET  SIZE  OF  VECTOR  BLOCK 

ALLOCATE  FROM  BYTE  POOL 

GET  ADDRESS  OF  OLD  FIRST  BLOCK 
LINK  IN  NEW  VECTOR  BLOCK 

CLEAR  VECTOR  BLOCK  FLAGS  WORD 

COPY  TABLE  ADDRESS 

COPY  TABLE  SIZE 

COPY  INTERNAL  PDV  ADDRESS 

CALCULATE  ACTUAL  PDV  ADDRESS 

STORE  PDV  ADDRESS 

MAP  TO  VECTOR  BLOCK 
UPDATE  IMAGE 
RESTORE  PCB  ADDRESS 
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CKT  -  ALLOCATE  XPT  CIRCUIT  COUNTERS 

968 
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JPRO 

CREATED  BV 

MACRO  ON  28-AUG-85  AT 

20:05 

PAGE  4 

SYMBOL 

:R0SS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

RtSlin 

=  000000 

12-647 

15-947 

16-1018 

17-1117 

SECBLK 

000152  R 

6-181 

#6-185 

9-398 

SF.AtT 

=  000200 

#5-72 

SF.ENA 

=  000100 

#5-72 

SF.LPB 

=  OOOOOA 

#5-72 

SF.MFL 

=  OOOOAO 

#5-72 

SF.PAf 

=  000020 

#5-72 

SF.REA 

=  000010 

#5-72 

SF.SER 

=  000001 

#5-72 

3F.SVC 

=  000002 

#5-72 

SF.JNL 

=  000040 

#5-72 

SQBL< 

000126  R 

6-170 

#6-177 

9-390 

STBERR 

001054  R 

10-480 

#10-506 

STBEXT 

000020  R 

#6-117 

10-476 

SYSFDB 

-  .»*♦♦*  GX 

•7-270 

♦7-308 

♦7-311 

♦8-351 

♦12-681 

♦13-707 

♦13-720 

♦13-750 

♦14-845 

♦15-877 

♦15-899 

♦  15-917 

♦16-1053 

♦16-1065 

♦17-1096 

♦17-1111 

S.C05T 

000001 

#5-72 

S.FLG 

000000 

#5-72 

S.LEN 

000004 

#5-72 

S.NM5T 

000002 

#5-72 

S.OWNR 

000003 

#5-72 

TSKERR 

000340  R 

7-260 

#7-322 

TSFLAG 

000044 

#5-68 

T$LI' 

000013 

#5-68 

TJLIFL 

000013 

#5-68 

TtLiFO 

000013 

#5-68 

TILIFS 

000013 

#5-68 

TSLIN 

000000 

#5-68 

T$L!PS 

000006 

#5-68 

TSLLD 

000012 

#5-68 

TSLLDC 

000045 

#5-68 

TSLLDL 

000012 

#5-68 

TSLLOO 

000012 

#5-68 

TSLLDS 

000012 

#5-68 

TSLLEN 

000046 

#5-68 

11-577 

11-582 

11-590 

TSLOPR 

000002 

#5-68 

TSLTCL 

000024 

#5-68 

TSLTIM 

000026 

#5-68 

TSLTPR 

000014 

#5-68 

TSLTPS 

000C20 

#5-68 

^SfJAPL 

000004 

#5-68 

TtNFE 

000000 

#5-68 

TSNLEN 

000010 

#5-68 

rSNMUl 

000002 

#5-68 

rSNOPL 

000006 

#5-68 

T$MR\'I 

000042 

#5-68 

•11-588 

rSNRPL 

000005 

#5-68 

T$NRuL 

0000'/ 

#5-68 

T$NH/R 

0000C1 

#5-68 

TSRPRi 

000040 

#5-68 

♦11-589 

17-1127 


17-1140 


♦11-571 
♦13-774 
♦15-928 
♦17-1123 


♦11-577 
♦13-788 
♦15-942 
♦  IZ-li/.l 


♦11-590 
♦14-817 
♦15-951 


♦12-618 
♦14-835 
♦16-989 


♦12-640 
♦14-838 
♦16-1010 


15-932 


15-951 


15-954 


15-959 


rBPiTPn   nv      Miron     rm  ?R-Aiin-85   AT    20:05 
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VRES  -  VNP  ROOT   MACRO  V05.03b   Tuesday 
DATA 


TA7 
148 
149 
150 
151 
15^ 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
163 

169  000722 

170  000724 

171  000726 

172  000730 

173  000732 

174  000734 

175  000740 

176  000744 

177  000746 

178  000750 

179  000754 

180  000756 

181  000760 

182  000762 

183  000764 

184  000766 

185  000770 

186  000772 

187  000774 

188  000776 

189  001000 

190  001002 

191  0C1004 

192  001006 

193  001010 

194  001012 

195  001014 

196  001016 

197  001020 

198  001022 
199 

200 

201  000000 

202 

203  000000 


'7-Sep-85  16:15  Page  7 


C  10 


VI 
R' 


000000 

000000 

000000 

000000 

000000 

000000  000000 

000000  000000 

000000 

000000 

000000  000000 

000000 

ooooco 

000000 
055260 
060044 
073440 
060044 
000000 


NETWORK  KJITIALIZAriON  OVERLAy  RESIDEMT  DATA 


.IF  NDF 
DSIZE 

.Iff 

SSVCOL 

DSIZE 

$URM: : 

SRCDEV 

SCTBIM 

ICTBAD 

CTBSAV 

SLIBNM 

$L8VL: 

SLBVT: 

SLBBLK 

.ENDC 

SLSTRM 

SLST.iD 

SBIGCT 

RA:  : 

RB:: 

NTPNAM 

NTPPAR 

SUBPAR 

S8PC8: 

NTPSIZ 

TOPFLG 

NTPSAV 

SBPOOL 

S8PAR: 

SBNAM : 

SBFL6: 

UMRPTR 

UMRFLG 

NONMAP 

PSTART 

PBLOX 

SPSAV 

PUMR: 

.ALLOC 

.RDBNM 

.RDPSZ 

.  SDaNil 

.SD6SZ 


STMPBF: 


R$$MPL 
=^  36. 


=  10 

=  13. +8 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.8LKB 

.8LKW 

.BLKW 

.BLKW 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BlnW 
.BLKW 


.PSECT   TMP$$A,RW,OVR 


.♦37. 
0 
0 
0 
0 
0 

10. 
1 
1 
1 


0 

0 

0 

0 

0 

0,0 

0,0 

0 

0 

0,0 

0 

0 

0 

"RNTP 

"ROOL 

'RSBP 

*R00L 

0 


FIXED  PACKET  LEMGTH 


LOACTION  FOR  VBN  OF  DISPLACED  MEMORY 
VARIABLE  LENGTH  PACKET 

UNIBUS  Run  mask 

RECONFIGURATION  DEVICE 

ACTUAL  CTB  ADDRESS 

CTB  ADDRESS  IN  CETAB 

SAVE  CTB  ADDRESS  IF  SAME  DEVICE  TYPE 

ASCII  NAME  OF  LIBRARY 

VALUE  OF  SXXXVL  FOR  LIBRARY 

VALUE  OF  $XXXVT  FOR  LIBRARY 

VALUE  OF  LIBRARY  BIAS 


LAST  REMOTE  BLOCK  UNMAPPED  ADDRESS 

HIGHEST  NODE  ADDRESS 

FLAG  FOR  CETAB  >  2000  BYTES 

VIRTUAL  ADDRESS  FOR  D-DPACE  I/O 

SAVED  BIAS  BEFORE  D-SPACE 

NETWORK  POOL  NAME  IN  RAD50 

PARTITION  NAME  TO  ALLOCATE  SUB-PAR  IN 

POOL..  SUBPARTITION  PCB  ADDRESS 

SERVER  BASE  BUFFER  POOL  PCB  ADDRESS 

SUBPARTITION  SIZE  IN  MAPPED  SYSTEMS 

NON-ZERO  CAUSES  TOP-DOWN  LOADING 

POOL..  SIZE  TEMP  LOCATION 

SERVER  BASE  BUFFER  FLAG 

SERVER  BASE  MAIN  PARTITION  NAME 

SERVER  BASE  SUB-PARTITION  BUFFER  NAME 

SERVER  BASE  TPARS  FLAG 

UMR  BLOCK  REAL  MEMORY  ADDRESS 

NON-ZERO  3ISABLES  UMR  ALLOCATION 

SIZE  OF  NON-UMR-MAPPED  AREA 

NETWORK  POOL  BIAS 

NETWORK  POOL  SIZE  IN  52.  -ORD  BLOCKS 

SAVED  SP  ON  ENTRY  AT  SVNTI 

USED  TO  CALCULATE  $PUMR  VALUE 

SIZE  OF  NETWORK  BYTE  AREA 

NUMBER  OF  RDB'S 

RDB  SIZE 

NUMBER  OF  SDB'S 

SDB  SIZE 


TEMPLATE  PR0CE5Sliv,G  BUFFER 
TEMPLATE  PROCESSING  BUFFER 


;[MP013 
;[MP01] 


CMPOU 
[MP01] 
[MP01] 
[MP01] 
[MP01] 
[MP01] 
[MPOi: 

[Mpon 

[MPOI] 
[MP01] 
FMPOI] 

;[MP01] 


[MPOI] 
[MPOI] 


.Qi:  1  i  .  1  t; 
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RSX  DATA  FROM  RSX11M.5TB 


C  11 


VR 


6A4 

6^.5 

6A6 

6A7 

6A3 

6A9 

650 

651 

652 

653 

654 

655  003550 

656 

657 

658  003550 

659 

660 

661 

662 

66' 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

582 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694  003552 

695  003554 

696  003556 

697  003560 
693  CC3562 

699  003564 

700  003566 


000000 


oocooo 

000000 
000000 
000000 
000000 
000000 

ooooco 


.SBTTL   RSX  DATA  FROM  RSXIIM.STB 
VNP  "IM  CORE"  IMAGES  OF  DISK  FILES 

VALUES  LOOKED  UP  IN  RSXIIM.STB  (  -1  =  UNDEFINED  ) 

NOTE  -  SYMBOLS  IN  THIS  TABLE  MUST  BE  IN  SAME  ORDER  AS  SYMBOLS 
IN  "VINI". 


SSYMTB: 


.IF  NDF  R$$MPL 

S.MPR: 

.WORD   0 

.IFF 

.MPRO:. 

.WORD   0 

.KDAS: 

.WORD   0 

.SCMOF 

:.WOfiD   0 

.CPPAR 

: . WORD   0 

.K6TAB 

: . WORD   0 

.MIOOQ 

:.WORD   0 

.CPURM 

:.U0RD   0 

.UMRPT 

:.W0RD   0 

.URMTB 

: . WORD   0 

.STMFC 

: . WORD   0              ; 

.LTMFC 

: . WORD    0              ; 

.CCBAF 

: . WORD   0 

.RD8AF 

:.W0RD   0 

.LD8AF 

:.W0RD   0 

.SDBAF 

:.WORD   0 

.CC6AL 

: . WORD   0 

.CMFRK 

: . WORD   0 

.CEX:: 

.WORD   0              ; 

.OBJHD 

:.WORD   0 

.FILHD 

:.W0RD   0 

.CC8LH 

: . WORD   0 

.SDBLH 

: . WORD   0 

.RDBLH 

:.W0RD   0 

.SKS5: 

.WORD   0 

.NTLPT 

:.WORD   0 

.PSIPT 

:.W0RL   0 

.PC'HD 

: . WORD   0 

.St.fR 

: . WORD   0 

.PDVTA 

: . WORD   0 

.PUMRP 

:.WORD   0              ; 

.CTLST 

:.WORD    0 

.ICAVL 

:.W0RD   0 

.ENDC 

.CKAVL 

:.W0RD   0 

..COO: 

-  WORD   0 

.DEVHD 

: . WORD   0 

.EXSIZ 

:.WORD   0 

.FMASK 

:.'iORD   0 

.PARHD 

:...0RD   0 

.SYSI7 

:.W0RD   0 

REFERENCE  POINT 


USED  ONLY  TO  FORCE  ERROR  IF  ON  Mt    ;CMPOn 

NUMBER  OF  PROCESSORS  OR  -1  IF  ONE    ;[MP01] 

KERNAL  DATA  SPACE  ENABLED  OR  -1  IF  NOT 

ADDRESS  OF  4K  DATA  SPACE  BIAS 

POINTER  TO  PCS  OF  CPU  PARTITION 

TABLE  OF  POINTERS  TO  EACH  PROCESSOR'S  AREA 

TOO  MSEC  TIMER  OFFSET  INTO  CPU  AREA   ;CMP01] 

CPU  URM  MAPPING  TABLE  POINTER 

PER  CPU  NETWORK  POOL  UMR  POINTER 

UNIBUS  RUN  CCvTINUITY  TABLE 

100  MSEC  TIMEOUT  FUNCTION  CODE 

LONG  TIMEOUT  FUNCTION  CODE 

ALLOCATION  FAILURES 


NUMBER  OF  DYNAMIC  Ci  9  ALLOCATIONS 

FORK  BLOCK  LISTHEAD 

ADDRESS  OF  COM  EXEX  IN  RSX  EXEC  SPACE 

OBJECT  BLOCK  LISTHEAD 

FILTER  OLOCK  LISTHEAD 


CCB  LISTHEAD 

SDB  LISTHEAD 

RDB  LISTHEAD 

S.KS5  SCB  OFFSET 

NTL  HOME  BLOCK 

PSI  HOME  BLOCK  POINTER 

SECONDARY  POOL  LISTHEAD 

SECONDARY  POOL  BLOCKS  FREE 

PDV  TABLE 

PUMR  ADDRESS 

CTB  LIST  HEAD 

KB  AVAILABLE  LIST 


DYNAMIC  STORAGE  REGION  LISTHEAD 

ADDRESS  CONSOLE  UOUTPUT  UCB 

DEVICE  TABLE  LISTHEAD 

HIGHEST  ADDRESS  IN  EXEC 

SYSTEM  FEATURE  MASK 

PARTITION  CONTROL  BLOCK  LISTHEAD 

SYSTEM  SIZE  IN  52-WORD  BLOCKS 


[MP01] 
CMP01] 
[MP01] 
[MP01] 
[MP01] 
CMPOI] 
CMPOn 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
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SVGCL  -  GET  COMMAND  LINE 


Page  22 


C  12 


1239 

1240 

12A1 

12A2 

1243 

12A4 

1245 

12A6 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 


005022 
005026 
005032 
005034 
005040 
005042 
005044 
005050 
005052 
005060 
005062 
005064 


005066 
005074 
005076 
005106 

005110 


004267     OOOOOOG 

103415 

016700     000310' 

105710 

001771 

122027 

001773 

126027 

001762 

000241 


000040 

177777     000073 


.SBTTL      SVGCL    -  GET    COMMAND   LINE 

•♦-SVGCL 

GET  NEXT  COMMAND  LINE  FROM  USER 

INPUTS: 

NONE 

OUTPUTS: 

COMMAND  LINE  RETURNED  WITH  NORMAL  'GCL'  CONTEXT  (  C-BIT  CLEAR  ) 
ERROR  REPORTED  TO  USER  (  OTHER  THAN  EOF  )  (  C-BIT  SET  ) 


SAVE  VOLATILE  REGISTERS 

GET  NEXT  COMMAND 

FAILED  TO  GET  COMMAND  LINC 

COMMAND  LINE  RESTS  HERE 

IS  THIS  EDS  ? 

YES,  THEN  LINE  CONTAINED  ONLV  SPACES 

IS  THIS  CHARACTER  A  SPACE 

LINE  WAS  ALL  SPACES 

WAS  IT  A  COMMENT  LINE  ? 

YES 

MAKE  SURE  THE  CARRY  IS  CLEAR 


SVGCL:: 

JSR 

R2,$SAVVR 

IDS: 

GCLS 

BCS 

110S 

MOV 

SCL8UF,R0 

20$: 

TSTB 

(RO) 

BEO 

10S 

CMPB 

(R0)t,*40 

BEQ 

20$ 

30S: 

CMPB 

-1(R0),#' 

BEQ 

10$ 

CLC 

RETURN 

;  ERROR 

HANDLING 

122777 
001405 

000745 

000167 


OOOOOOG  000132' 


OOOOOOG 


110$:   CMPB 
BEQ 
ERRPT$ 
BR 


115$: 


JMP 


*IE.EOF,a$CLIOS 
115$ 

ERRV3,$ER0Uf 
$VGCL 

$PANIC 


WAS  ERROR  EOF  ? 

YES,  EXIT  WITHOuT  MESSAGE 


TAKE  PATH  OF  LEAST  RESISTANCE 
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CREf   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

L.DLC 

000003 

G 

#5-78 

L.DLM 

000006 

G 

#5-78 

L.DLS 

000010 

G 

#5-78 

L.FLG 

000000 

G 

#5-78 

L.KRBA 

000016 

G 

#5-78 

L.LEN 

=  000022 

G 

#5-78 

L.MPF 

000022 

G 

#5-78 

L.NMST 

000020 

G 

#5-78 

L.NSTA 

000014 

G 

#5-78 

L..OWNR 

000021 

G 

#5-78 

L.UNT 

000013 

G 

#5-78 

MACTYP 

001034 

RG 

#7-214 

MAXOV 

0OOA76 

R6 

#6-126 

MS. ALL 

=  000A37 

G 

#15-489 

MS.CIR 

=  001000 

G 

#15-494 

MS.CSR 

=  000001 

G 

#15-484 

MS. EXT 

=  000200 

G 

#15-492 

MS. INC 

=  000100 

G 

#15-491 

MS. LLC 

=  000040 

G 

#15-490 

MS.MTP 

=  000010 

G 

#15-487 

MS. MUX 

=  000420 

G 

#15-488 

MS.PRI 

=  000002 

G 

#15-485 

MS. SEC 

=  000400 

G 

#15-493 

MS.VCT 

=  000004 

G 

#15-486 

M$$PRG 

^   ****** 

4-1       17-781 

NAMES 

0014^6 

R 

12-377    #13-390 

NONMAP 

001000 

RG 

#7-189 

NTPNAM 

000734 

RG 

#7-174 

NTPPAR 

000740 

RG 

#7-175 

NTPSAV 

000756 

RG 

#7-180 

NTPSIZ 

000750 

RG 

#7-178 

N.DVNM 

=  000032 

6-102     6-114 

N.FNAM 

=  000006 

6-102     6-114 

N.FTYP 

=  000014 

6-102     6-114 

N.UNIT 

=  000034 

6-102     6-114 

OPSINS 

r.   000001 

#5-80 

OF  SLOG 

=  000100 

#5-80 

OFSOFF 

=  000002 

#5-80 

OFSON 

=  000000 

#5-80 

OFSSMC 

=  000200 

#5-80 

OPSADD 

=  000200 

#5-80 

OPSALL 

=  000200 

#5-80 

OPSCCS 

=  000004 

#5-80 

OPSCIE 

=  004000 

#5-80 

OPSCO.N 

=  000400 

#5-80 

OPSrOP 

=  000001 

#5-80 

OPSCOS 

-  000100 

#5-80 

OPSDST 

=  000200 

#5-80 

OPSDTE 

--  000040 

#5-80 

OPSDUP 

--  000002 

#5-80 

OPSEST 

=  000100 

#5-80 

OPSEVE 

=   010000 

#5-80 

17-798 


17-807 
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VRQB  -  VNP  PROCESS  REOUEST  BLOC  MACRO  V05.03b  Tuesday  50-Jul-. 

Table  ot  contents 

5-  55  MACRO  DEFINITIONS 

6-  68  FUNCTION  TABLES 

7-  163  LOCAL  DATA 

8-  196  ERROR  MESSAGES 

9-  ?A°  SNLRQB  -  PROCESS  REOUEST  BLOCK 

10-  296  NOP  -  NO  PRELIMINARY  WORK  REQUIRED 

n-  30A  RNTI,SCEX  -  CHECK  SET  SYS 

12-  3A2  CEXLD  -  CHECK  COMM  tXEC  LOADED 

13-  562  PSILD  -  CHECK  PSI  LOADED 
lA-  381  CHKNOD  -  CHECK  NODE  PARMS 

15-  A53  PDVA  -  fINL'  PDV  ADDRESS 

16-  485  CHKPP  -  CHECK  PROCESS  PARMS 

17-  523  SPRO  -  CHECK  SET  PROCESS  PARMS 

18-  550  LLIN  -  CHECK  FOR  LINE  IN  SYSTEM  FOR  LOGGING 

19-  573  SLTA  -  GET  SLT  ADDRESS 

20-  6'.5  CHKLP  -  CHECK  LINE  PARAMETERS 
d\-  716  CLRPP  -  CLEAR  PROCESS  PARMS 

22-  732  SLIN  -  CHECK  SET  LINE  PARMS 

23-  761  SCIR  -  CHECK  SET  CIR  PARMS 

2A-  779  CPRO  -  CHECK  CLEAR  PROCESS  PARMS 

25-  909  CLIN  -  iHECK  CLEAR  LINE  PARMS 

26-  936  CCEX  -  CHECK  CLEAR  SYS  PARMS 

27-  1010  SBITS  -  COPY  BITS  TO  SFLAGS 

28-  1034  SFPDV  -  FIND  PDV 

29-  1066  $FSLT  -  FIND  SLT 

30-  1125  SRERR  -  PRINT  ERROR  MESSAGE 

31-  1163  REP7  -  REPLACE  TASK  NAME 

32-  1178  REP7A  -  REPLACE  TASK  NAME  AND  CHANNEL  NUMBER 

33-  1210  DEV7  -  REPLACE  TASK  AND  DEVICE  NAMES 
5'.-  1236  REP7B  -  REPLACE  TASK  NAME  AND  LINE  ID 

35-  128''  DEQNT!  -  DEALLOCATE  BLOCK  QUEUED  TO  NTINIT 


10:53 
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CHKNOD  -  CHECK  NODE  PARMS 
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ulS   000416 

120360 

439  000422 

001016 

440  000424 

111000 

441  000426 

C10067 

442  000432 

000241 

443  000434 

444 

445 

446 

447  000436 

448  000444 

449  000452 

450  000460 

451  000466 

000001 


000044G 


20S: 


30$: 
40$: 


CMPB 
BNE 

Move 

MOV 
CLC 
RETURN 


R3,1(R0) 
13l$ 
(R0),R0 
RO.RQBtLO.NAM 


ERROR    CONDITIONS 


101$ 
111$ 
121$ 
131$ 
141$ 


EMSG$R 
EM5G$R 
EMSG$R 
EMSG$R 
EMSGSR 


01 
02 
03 
04 
05 


IS  THIS  LINE  ASSIGNED  TO  XPT  ? 

ir  NE,  NO  ..  ERROR 

ELSE,  GET  CHANNEL  NUMBER 

STORE  CHANNEL  NUMBER  IN  SAFE  PLACE 

INDICATE  SUCCESS  I 


XPT  NOT  FOUND 

XPT  NOT  LOADED 

REVERSE  MAPPING  TABLE  U  MESSED  UP 

LINE  NOT  ASSIGNED  TO  XPT 

LINE  PARAMETER  NODE  APPLICABLE 
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836 

002050 

022721 

100000 

20$: 

CMP 

837 

002054 

001431 

BEQ 

838 

002056 

016746 

OOOOOOG 

MOV 

839 

002062 

012746 

002124' 

MOV 

84C 

002066 

004267 

OOOOOOG 

JSR 

8A1 

002072 

014101 

MOV 

8',2 

002074 

042701 

177400 

BIC 

843 

002100 

006301 

ASL 

Si-; 

002102 

060166 

000012 

ADD 

845 

002106 

017666 

000012 

000012 

MOV 

846 

002114 

062766 

OOOOOOG 

000012 

ADD 

847 

002122 

RETURM 

848 

002124 

032736 

OOOOOOG 

25$: 

BIT 

849 

002130 

001403 

BEO 

850 

002132 

EMSG$ 

851 

002140 

020102 

30$: 

CMP 

852 

002142 

001342 

BNE 

853 

002144 

40$: 

854 

002144 

005400 

NEG 

55  :> 

002146 

103550 

BCS 

856 

002150 

016/01 

OOOOOCG 

MOV 

857 

002154 

016767 

OOOOOOG 

OOOOOOG 

MOV 

858 

002162 

012767 

000036 

OOOOOOG 

MOV 

859 

002170 

012702 

OOOOOOG 

MOV 

860 

002174 

01126:^ 

OOOOOOG 

50$: 

MOV 

861 

002200 

000241 

CLC 

862 

002202 

001532 

BEQ 

863 

002204 

GETRV 

864 

002210 

026162 

OOOOOOG 

CO0034 

CMP 

865 

002216 

001366 

BNE 

866 

002220 

016203 

000002 

MOV 

867 

002224 

116267 

000006 

000244' 

MOVB 

868 

002232 

016746 

OOOOOOG 

60$: 

MOV 

869 

002236 

SWTCHI 

870 

002244 

GETRV 

871 

002262 

012703 

000252' 

MOV 

872 

002266 

012667 

OOOOOOG 

MOV 

873 

002272 

032763 

100000 

000010 

BIT 

874 

002300 

001407 

BEQ 

875 

002302 

132763 

000100 

000005 

BITB 

876 

002310 

001003 

BNE 

877 

002312 

EMSG$R 

878 

002320 

066203 

000010 

70$: 

ADD 

879 

002324 

105267 

000244' 

INCB 

880 

002330 

126267 

000007 

000244' 

CMPB 

881 

002336 

103335 

BHIS 

882 

002340 

005062 

000012 

CLR 

883 

002344 

005062 

000034 

CLR 

884 

002350 

SWTCHO 

885 

002356 

PUTRC 

886 
887 
888 

002370 

000437 

BR 

002372 

012701 

OOOOOOG 

100$: 

MOV 

389 

002376 

032767 

OOOOOOG 

GOOOOOG 

BIT 

890 

002404 

001002 

BNE 

891 

002406 

062701 

COOOOOC 

ADD 

892 

002412 

016702 

OOOOOOG 

110$: 

MOV 

#100000, (Rl)t 

30$ 

$SLTMA,-(SP) 

#25$, -(SP) 

R2,$SAVVR 

-(RiKRI 

#«C<3?7>,R1 

R1 

R1,10.(SP) 

al6.(SP),10.(SP) 

#L.FLG,10.(SP) 

#Lf .ACT,a(SP)t 

30$ 

Z3 

R1,R2 

20i 

RO 

150$ 

$PDVA,R1 

$DEVHD,$BFR 

#D.PCBt2,$RSIZE 

#$6FR,R2 

(R2),$RADDR 

150$ 

Z.PC8(R1),D.PC6(R 

50$ 

D.UCefR2),R5 

D.UN]T(R2/,UNIT 

$RADDR,-(SP) 

#UC8BUF 

R3,D.UCBL(R2) 

#LICB8UF,R3 

(SP)+,$RADDR 

#DV.MNT,U.CW1(R5) 

70$  ; 

#US.MNT,U.STS(R3) 

70$ 

Z4 

D.UC6L(R2),R3 

UNIT 

D.UNIT*1(R2),UNIT 

60$ 

D.DSP(R2) 

D.PC8(R2) 

,#D.PCB+2 
!50$ 

#L.DLC,R1 

#FL.DLC,$FLAGS 

110$ 

#L.DDM-L.DLC,R1 

$SLTMA,R2 


IS  CHANNEL  1-N  ASSIGNED? 

IF  EQ,  NO 

SAVE  START  OF  SLT  MAPPING  TABLE 

TO  ALLOW  CO-ROUTINE  CLEANUP 

SAVE  R0,R1,R2  (CO-ROUTINE) 

GET  SYSTEM  LINE  NUMBER  (BYTE) 

convert" to  A  WORD  INDEX 
ADJUST  SLT  POINTER 
;  POINT  AT  SIT 
POINT  AT  FLAGS  WORD 
RESTORE  R0,R1,R2;  RETURN  TO  25$ 
IS  CHANNEL  1-N  ACTIVE? 
IF  EQ,  NO 

CHANNEL  STILL  ACTIVE  (SETS  RO  NON-ZERO) 
SCAN  ENTIRE  CHANNEL  TABLE 


ANY  ERRORS? 
IF  CS,  YES 
GET  PDV  ADDRESS 
AND  RSX11M  DEVICE  POINTER 
SET  UP  TRANSFER  LFNGTH 
POINT  AT  VIRTUAL  IMAGE 
SET  NEXT  TRANSFER  ADDRESS 
CLEAR  C-BIT 
IF  EQ,  ALL  DONE 
READ  IN  DCB  IMAGE 
2)  ;  IS  OUR  LLC  ALSO  THIS  DEVICE? 
IF  NE,  NO 

GET  FIRST  UCB  ADDRESS 
AND  FIRST  UNIT  NUMBER 
SAVE  CURRENT  DCB  ADDRESS 
POINT  AT  UCB  IMAGE  BUFFER 
READ  IN  UCB  IMAGE 
POINT  AT  UCB  IMAGE 
RESTORE  DCB  ADDRESS 
;  IS  THIS  A  MOUNTABLE  DEVICE  ? 
IF  EQ,  NO  -  DON'T  CHECK  FOR  MOUNTED 
;  IS  UNIT  MOUNTED? 
IF  NE,  NO 

DEVICE  STILL  MOUNTED 
GET  NEXT  UCB  ADDRESS 
AND  NEXT  UNIT  NUMBER 
;  ALL  UNITS  CHECKED? 
IF  HIS,  NO 
MARK  DEVICE  "UNLOADED" 

RESET  DEFAULT  BUFFER 
REWRITE  DCB  TO  SYS  IMG 
AND  GET  OUT 

ASSUME  DLC 

IS  IT  A  DLC? 

IF  NE,  YES 

IT'S  A  DDM 

GET  SLT  MAPPING  TABLE  ADDRESS 
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Symbol 

table 

SSDBNM= 

* t***  • 

GX 

$$$ARG= 

000003 

.HSTAD 

007416R 

.PLGTH= 

******  GX 

.RNUM 

011330R 

ISDBS 

002776RG 

$$$FLG= 

177777 

.HSTAR 

007470R 

.PNUMB= 

**««**  GX 

.RRTM 

012110R 

$SDBSZ= 

»**»** 

GX 

$$$KEV= 

000000 

.MGEXr= 

******  GX 

.PNUHH= 

******  GX 

.Rl 

003632R 

iSLTA  = 

****** 

GX 

$$$OST= 

OOOOU 

.NAM 

004464R 

.PPRO  = 

*♦♦**♦  GX 

.R2 

003642R 

tSLTMA^ 

«•♦♦*« 

GX 

$$$STA= 

000000 

.NAM1 

004452R 

.PROMF 

006520R 

.R3 

003652R 

tSLTNM= 

****** 

GX 

$$$TMP= 

00041 1R 

005  .NAM2 

004460R 

.PRONM 

006500R 

.SBPCB= 

******  GX 

!;STRNG= 

OOOOOA 

.ALLC 

004562R 

.NODAR 

007312R 

.PSTCN= 

******  GX 

.SBRA 

007030R 

jSLIBXP  = 

00001 c 

.ALLOC= 

******  GX 

.NODNB 

007236R 

.PSTPT= 

******  GX 

.SCTIM 

007002R 

$SulOVL  = 

•♦***♦ 

GX 

.8ASEB= 

UOOOO 

.NODNM 

007056R 

.RADDR 

011674R 

.SCTL 

006604R 

SUMRAl 

00226cR' 

.BUFCT 

006A24R 

.NOMAP 

004426R 

.RAMXC 

012412R 

.SD8NM= 

******  GX 

$VFLAG= 

**♦♦♦♦ 

GX 

.BUFDF 

006324R 

.N1 

003662R 

. RAMXH 

012340R 

.SDBSZ= 

******  GX 

SVNTI 

OOOOOORG 

.BUFNM 

006356R 

.N2 

003672R 

.RARE 

0116UR 

.SLTDF 

006562R 

SVRQB  = 

*t*** w 

GX 

.BUFSK 

006342R 

.N3 

00371  OR 

.RBEA 

012250R 

.STADF 

006576R 

SXAVL  = 

*♦♦*** 

GX 

.CRCOV= 

******  GX 

.N4 

003726R 

.R8TM 

012464R 

.STRNG 

007706R 

$XBIA5= 

*♦♦♦** 

GX 

.FLBKO 

016372RG 

.OCPV 

013434RG 

.RCOST 

011746R 

.SUNT 

0066UR 

$XLIN<= 

GX 

.FLBK1 

016';i0RG 

.OEND 

013456RG 

.RDBNM= 

******  GX 

.SYSID 

007574R 

SXPAR  = 

*♦♦♦** 

GX 

.FLBK2 

016426RG 

.OF  LAG 

013402RG 

.RDBSZ= 

******  GX 

.SYSNH= 

******  GX 

$$LINX= 

GX 

.FLBK3 

016441RG 

. ONAME 

013306RG 

.RHOP 

012022R 

.TPARS= 

******  GX 

t$NODC= 

****** 

GX 

.FLBK4 

016462R6 

.ONUM 

013242RG 

.RHAXA 

012160R 

.$$$$.= 

000034 

ttSHFT^ 

000001 

.FUDG 

004056R 

.OVFY 

013356RG 

.RNAME 

011254R 

.  ABS. 

U7776 
020166 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,CON) 

DATA 

002552 

002 

(RU,D,LCL,REL,CON) 

tSTATE 

002552 

003 

(RU,D,LCL,REL,CON) 

SKTAB 

000120 

004 

(RW,D,LCL,REL,CON) 

SKSTR 

00OA2O 

005 

(.<»l,D,LCL,REL,CON) 

Errors  detected:      0 

«••   Assembler   statistics 


Work      file     reads:  259 

Work      file  writes:  237 

Size  of  work    file:  39040  Words      (    153  Pages) 

Size  of  core  pool:  17608  Words     (   67  Pages) 

Ooerating     system:  RSX-11M/PLUS 
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SYMBOL  VALUE 

RQB     =  »♦..*«  GX 


R$$MPL 
RStllD 

,n$nM 
R$$ns 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SBFLG 

SBNAM 

SBPAR 

SBPCB 

SBPOOL 

SBUF 

SEG 

SERADD 

SERALL 

SERBEG 

SERCIR 

SERCR 

SERCUR 

SERDCT 

SERDEV 

SERDMP 

SERDV 

SEREND 

SERFIN 

SERFLG 

SERHST 

SERINI 

SERMUL 

SERMUX 

SERNOD 

SEROFF 

SERPAS 

SERSLN 

SERSLT 

SERTMP 

SERUNI 

SETBLK 

SETST 

SF.ACT 

SF.CIR 

SF.DEV 

SF.DIA 

SF.DPA 

SF.DPC 


=  000000 

=  ****** 

000010 
000012 
000014 
000000 
000002 


r  ****** 
=  ****** 
=     ****** 


GX 
GX 
GX 
GX 
GX 


001776  R 
011220  R 
OOOUO  RG 
0H640  R 
000110  RG 
000116  RG 
015356  RG 
000256  RG 
000136  RG 
000120  RG 
000132  RG 
OKAU  RG 
0U620  RG 
000266  RG 
000110  RG 
0001U  RG 
0U532  RG 
0K3U  RG 
014324  RG 
000112  RG 
000260  RG 
000122  RG 
014460  RG 
000262  RG 
000146  RG 
014304  RG 
016040  R 
016674  RG 

:  000200 

:  000010 

■■  000020 

:  004000 

:     000100 

:  000200 


REFERENCES 

»8-366 
♦107-4787 

108-4828 

5-75 

12-789 

5-72 

5-72 

5-72 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
♦8-233 

26-1549 

17-1063 
♦8-234 
♦8-232 
♦10-581 
#67-3110 
#7-163 

93-4010 
#7-152 
#7-156 
#96-4159 
#7-183 
#7-162 
#7-157 
#7-161 
#91-3906 
#93-4010 
#7-188 
#7-153 
#7-155 
#92-3966 
#91-3882 
#91-3885 
#7-154 
#7-184 
#7-159 
#92-3935 
#7-186 
#7-164 
#91-3879 
#101-4387 
#103-4539 
#5-73 
#5-81 
#5-81 
#5-81 
#5-81 
#5-81 


♦8-367 
♦107-4788 
♦109-4849 
5-75 
16-980 
5-75 


•69-3170 

♦69-3172 

69-3; 62 

♦69-3167 
8-477 
26-1550 
17-1065 

♦S-485 

♦8-482 

♦10-582 

93-3990 

#94-4025 

92-3966 


♦94-4031 
♦91-3917 
♦91-3908 
♦91-3912 


92-3968 

94-4041 

♦91-3900 


♦91-3891 

♦103-4493 

94-4051 

♦92-3948 
93-4002 

103-4512 


103-4506 


8-369 
107-4790 
♦109-4856 
5-75 
17-1056 


♦69-3171 

69-3175 

♦69-3168 
30-1832 


16-974 

17-1045 

10-588 

94-4045 


94-4067 

94-4058 

94-4050 

♦91-391? 


♦103-4494 
♦91-3903 


♦91-3894 

♦103-4497 

94-4052 


♦16-963 

♦108-4815 

♦109-4857 

8-251 

26-1562 


69-3176 

88-3762 

♦69-3169 


17-1061 
10-596 

94-4046 


16-965 
♦108-4822 
♦109-4858 

d-261 


88-3763 


♦107-4777 
♦108-4823 
♦109-4859 
8-343 


♦107-4784 
♦108-4824 
♦109-4860 
8-426 


♦107-4785  ♦107-4786 

♦108-4825  ^108-4826 

109-4862 

11-720  12-780 


26-1545 
#10-619 

94-4047 


2b-1619         26-1631 


103-4528 

94-4056    94-4057 


♦103-4498     ♦103-4502     ♦103-4506     ♦103-4510       103-4531 
94-4043 


94-40'.2 

♦:03-4501     ^103-4505     ♦103-4509       103-4533 
9A-4054         94-4055         95-4112 


94-4048       ♦97-4232 


VNTI 
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vv 

vv 

ppppppnp 

HI 

HI 

000000 

vv 

vv 

ppppppcp 

III 

111 

000000 

vv 

vv 

pp    pp 

00     00 

vv 

vv 

pp    pp 

00      00 

vv 

vv 

pp    pp 

00      00 

vv 

vv 

pp     pp 

00     00 

vv 

vv 

PPPPPPPI- 

00     00 

vv 

vv 

pppppppp 

00     00 

vv 

vv 

pp 

00      00 

vv 

vv 

pp 

00     00 

vv 

vv 

pp 

00      CO 

vv 

vv 

pp 

00      00 

vv 

pp 

III 

111 

OOOOOu 

vv 

pp 

III 

111 

000000 

LL 

ssssssss 

fTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

-L 

ss 

_L 

ss 

-L 

ss 

-L 

ss 

LL 

ssssss 

LL 

SSSSiS 

LL 

ss 

LL 

ss 

LL 

SS 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLILLL 

ssssssss 
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CR.MC  -  CREATE  MlCROCOtE  PARTITION 


461  000770  010167 

A62  000774  010167 

463 

464  001000 

465 

466 


OOOOOOG 
000144' 


10$: 


MOV 
MOV 

RETURN 


R1,$LLEN 
R1, BYTES 


STORE  SIZE  IN  BYTES 
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P.BLKS 

P.BUSY 

P. IOC 

P.LNK 

P. MAIN 

P.NAM 

P.  OWN 

P.PRI 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.SUSZ 

P.TCB 

P. WAIT 

Q$$OPT:= 

RMCLBL 

R$$DER= 

R$$K11= 

R$$SNO= 

R$$11M= 

SFIL 

5ISDR0= 

SRO   = 

SR3 

SWR 

.  ABS. 

DATA 

.BUF 


000016 

00002^. 

000003 

000000 

000012 

OOOOOA 

000026 

000002 

OOOOU 

000016 

000030 

000010 

000022 

000026 

000020 

000010 

000726R 

000000 

000001 

000000 

000000 

000624R 

172200 

177572 

172516 

177570 

000104 
003174 
000402 
000002 


SYSFDB= 
S$$URG= 

s$$ysz= 

TMPPCB 

TPS 

TS$NHD= 

TSFLAG 

T$LIF 

TSLIFL 

TtLIFO 

TSLIFS 

T$LIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TSLTIM 

TILTPR 

TSLTPS 

TSNAPL 

T$NFE 


000000 
007600 
0001 52R 
177564 

****** 

000044 
000013 
000013 
000013 
000013 
000000 
000006 
000012 
000045 
000012 
000012 
000012 
000046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 


GX 


ex 


TSNLEN 
TSNNUL 
TSNOPL 
002  TSNRNJ 
TSNRPL 
TSNRUL 
T$NVR 
TIRPRI 
T$SVC 
T$T5 
T$T6 
T$$KMG= 
T$$MIN= 
UBMPR  = 
UDSAR0= 
UDSDR0= 
UISARO= 
U]SAR4= 
UISAR5= 
UISAR6= 
U]SAR7= 
UJSDRO= 
U]SDR4=: 
UISDR5= 
U1SDR6= 
UISDR7= 


000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
170200 
177660 
177620 
177640 
177650 
177652 
177654 
177656 
177600 
177610 
177612 
177614 
177616 


UNAMC 

000:54f 

00? 

$PARHD= 

******  GX 

UNA1P 

000050R 

00? 

$PDVNM= 

******  GX 

UNARE 

0001361! 

00? 

$PDVTA= 

******  GX 

VF.SS  = 

•♦**** 

GX 

SPNAME 

000254RG    002 

V$$CTR= 

001000 

$PRCLN= 

******  GX 

X$$D8T= 

000000 

$PREXT= 

******  GX 

Z.NAH  = 

****** 

GX 

$PRINC= 

******  GX 

$ALL15= 

****** 

GX 

SPRIO 

OOOOOORG 

$8FR  = 

****** 

GX 

$PRLLN= 

******  GX 

$CLDEQ= 

****** 

GX 

$PUTRC= 

******  GX 

$CLJ0S= 

****** 

GX 

$RADDR= 

******  GX 

$CLOPE= 

****** 

GX 

$READX= 

******  GX 

$DDMPV= 

****** 

GX 

$RLBL  = 

******  GX 

$DEA16= 

****** 

GX 

$SAVAL= 

******  GX 

$DECPT= 

****** 

GX 

$TIOUT= 

******  GX 

$DFUIC= 

****** 

GX 

$VFLAG= 

******  GX 

$ERMSG= 

****** 

GX 

$XPAR  = 

******  GX 

$FLAGS= 

****** 

GX 

$$ 

yyim 

$FMASK= 

****** 

GX 

$$EXT  = 

******  GX 

$GETRV= 

****** 

GX 

$$INC  = 

******  GX 

$]CBLN= 

****** 

GX 

$$PAR  = 

******  GX 

sjosa  = 

****** 

GX 

$$$   = 

000054R     002 

SLDSIZ 

000260RG 

00? 

$$$$  = 

0001 36R    002 

$LLEN  = 

****** 

GX 

.PLGTH= 

******  GX 

$HUL  = 

****** 

GX 

.PPRO  = 

******  GX 

$NAME  = 

****** 

GX 

Errors  detected: 


000 
001 
002 
003 
0 


(RW,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,CON) 
(RW.D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


«**  Assembler   statistics 

Work      file     reads:  0 

Work      file  writes:  0 

Size  of   work    file:  15125  Words      (   60  Pages) 

Size  of   core  pool:  16552  Words      (   63  Pages) 

Operating      system:  RSX-11M/PLUS 

DB2?VPi'o!T54;C132J34]VPIU/CR/-SP=DB2:[1,nRSXMCM.SML/f«IL,[130.110]NETLiB/ML,[130,10]R?XMCM/PA:1,[132,103VPIO 
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VPRC 
AXSY 


A$$CHK= 
A$$CPS= 

A$$p;?i= 

/\$$TRO= 
C$$C»;P= 
C$SORt  = 
C$$RSH= 
D$$BUG= 
D$$ISK= 
D$$L11= 
0$$YNC= 
D$$YNM= 
E$$XPR= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$URD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
k;$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
L$$ASG= 
L$$DRV= 

L$$pn  = 
l$st;r= 

M$$CRB= 

.  ABS. 

SSTATE 
SKTAB 
SKSTP 
SPRMPT 


000000 
000000 
000000 
000000 
000000 
000'.00 
17756A 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 

ooooco 
ooocoo 

000000 
000000 
noOOOO 
000000 
177546 
177546 
000000 
000074 
000000 
000000 

ooocoo 

000001 
000000 
C00124 

002564 
000000 
000000 
000000 
000000 
002564 


M$$CRX= 

M$SFCS= 

H$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P$ACC 

P$ACT 

P$ADD 

PSA  ID 

PSCLCI 

PSCLE 

PSCLLI 

PSCLLO 

PSCLNO 

PSCLOB 

PSCOP 

PSCOS 

PSCRID 

PSCSR 

PSDEA 

PSDES 

PSDST 


000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000010 
000024 
000056 
000072 
000146 
000200 
000224 
000254 
000306 
000336 
000426 
000370 
000112 
000442 
000462 
000512 
000540 


PSDTE 

PSDUP 

PJEVE 

PSGRP 

PtHOS 

PJHTM 

PSLGID 

PSLIST 

PSLNID 

PSLOC 

PSLOST 

PSLTM 

PSMAX 

PSpIOID 

PSHUL 

PSMXCO 

PSHXLI 

PSNAD 

PSNAH 

PSNET 

PSNID 

PSNOST 

P$08NA 

PSOBUS 

PSOBVE 

PSOID 

PSOWN 

PSPAR 

PSPFN 


000560 

G 

P$PJD 

001654 

fi 

R$$SND= 

000000 

000600 

G 

PSPRI 

001636 

G 

R$$11M= 

000000 

000614 

G 

P$SC0 

001676 

G 

S$$WRG= 

000000 

000646 

G 

PSSEAL 

001732 

G 

S$$YSZ= 

007600 

000666 

G 

PISECI 

001760 

G 

T$$KMG= 

000000 

000724 

G 

P$SELI 

002010 

G 

T$$MIN= 

000000 

001102 

G 

PISELO 

002036 

G 

\/$$CTR= 

001000 

001032 

G 

PSSEMO 

002114 

G 

X 

OOOOOORG 

000752 

G 

PSSENO 

002066 

G 

X$$DBT= 

000000 

001052 

G 

PSSEOB 

002' 44 

G 

Y 

OOOOOORG 

001130 

G 

PSSEPR 

002' 74 

G 

$ALPHA= 

000022 

001002 

G 

PSSET 

001710 

G 

$ANY  = 

000020 

001152 

G 

PSSHO 

002224 

G 

$BLANK= 

000006 

001250 

G 

PSSIN 

001250 

G 

$D1GIT= 

000024 

001302 

G 

PSSNAM 

002306 

G 

$DNUMB= 

000014 

001176 

G 

P$STA 

002324 

G 

$EOS  = 

000012 

001226 

G 

PSTER 

002336 

G 

SEXIT  = 

000000 

001334 

G 

PtTPAS 

002372 

G 

SFAIL  = 

177777 

001422 

G 

PSTRIB 

002414 

G 

SGPRM  = 

000001 

001356 

G 

P$USE 

002442 

G 

$LAMDA= 

000000 

001372 

G 

PSVEC 

002472 

G 

$NUMBR= 

000002 

001440 

G 

PSVESr 

002506 

G 

$RAD50= 

000016 

001460 

G 

PSVNP 

000000 

G 

$RONLY= 

000001 

001522 

G 

P$X5ST 

002536 

G 

$STRNG= 

000004 

001542 

G 

P$$P45= 

000000 

$SUBXP= 

0C0O10 

001500 

G 

P$$WRD= 

000000 

$$PRMP 

OOOOOORG 

001572 

G 

Q$$OPT= 

000010 

$$$FLG= 

M7777 

001612 

G 

R$$DER= 

000000 

$$$KEY= 

177777 

000402 

G 

R$$K11= 

000001 

$$$LEN= 

000024 

Errors  detected: 


OCO 
0(1 
0(2 
0)3 
0)4 
005 
C 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RO,D,LCL,REL,C0N) 
CRO,D,LCL,REL,CON) 
(RO,[),LCL,REL,CON) 
(RO,D,LCl,REL,CON) 


**»   Assembler    stat- sties 

Work      file     reads:  0 

Work      file   writes:  0 

Size  of  work    file  9783  Words      (   39  Pages) 

Size  ot   core   pool:  14440  Wo^-ds      (    55   Pages) 

Ooerat'r'g      systefr:  R3X-11M/PLJS 

SyfypRMpflv2|[132,13i"VPRMPT/CR/-SP=SV:tl,1]RSXMCM.iML/ML,[130,11O3NETLIB'ML,[130,10]RSXMCM/PA:1,C132,10]VPRMPT 
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003 


005 
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VPI 
'.Al 


357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 

374  000460 

375  000460 

376  000466 

377  000470 
378 

379  000472 

380  000476 
381 

332 
383 

384  000500 

385  000506 

386  000514 
387 

388 
389 

390  000522 

391  000526 

392  C00530 

393  000536 

394  00C544 

395  000550 

396  000552 

397  000560 

398  000566 

399  000572 

400  000574 

401  000576 


022767 
000241 
001042 

005767 
'00411 


016767 
016767 
016767 


005767 
001422 
016767 
016767 
005767 
001411 
016767 
016767 
005767 
001001 
000261 


.SBTTL  AXSYM  -  AUX  SPECIAL  SYMBOLS 

♦»♦  -  AXSYM  -  AUX  SPECIAL  SYHBOLS 

INPUTS: 

$NAME  =  RAD50  PROCESS  NAME 

$BIAS  =  PROCESS  BIAS 

SSQSRV  =  ADDRESS  OF  SSQSRV  ROUTINE  IN  AUX  PROCESS 

PR100M  -  ADDRESS  OF  100  MSEC  TIMER  SERVICE  ROUTINE  IN  AUX  PROCESS 

PR1SC  =  ADDRESS  OF  1  SEC  TIMER  SERVICE  ROUTINE  IN  AUX  PROCESS 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

FORK  BLOCK  AND  TIMER  BLOCKS  INITIALIZED 


004640  OOOOOOG 


OOOOOOG 


OOOOOOG  00001 OG 
OOOOOOG  000014G 
OOOOOOG  000014G 


AXSYM: 


CMP 
CLC 
BNE 

rsT 

BMI 


^'RAUX.SNAME 
20$ 


.MGMGE 
5$ 


000130' 

000136'  OOOOOOG 
000136'  000C02G 
000142' 

000150'  000012G 
000162'  000012G 
000154' 


5$: 


MAPPED  SYSTEMS 

MOV 
MOV 
MOV 

COMMON  PATH 

TST 
BEQ 
HOV 
MOV 
TST 
BEO 
MOV 
MOV 
TST 
BNE 


10$: 
20$: 


SEC 
RETURN 


$BIAS,$CM'^RK+10 
$eiAS,$T100C+14 
$SIAS,$T1SCL+14 


SQBLK+2 

10$ 

SSQSRV, $CMFRK 

SSQSRV, $CHFRK+2 

MIL8LK+2 

10$ 

PR100M,$T100C+12 

PR1SC,$T1SCL+12 

SECBLKt2 

20$ 


IS  THIS  PROCESS  AUX  ? 

ASSUME  NOT 

IF  NE,  NO  ..  DO  NOTHING 

MAPPED  SYSTEM  ? 
IF  MI,  NO 


STORE  BIAS  FOR  AUX  PROCESS 


WAS  SSQSRV  DEFINED  ? 

IF  EC,  NO  ..  ERROR 

ELSE,  INITIALIZE  FORK  BLOCK 

WAS  PR100M  DEFINED  ? 

IF  EQ,  NO  ..  ERROR 

ELSE,  INITIALIZE  100  MSEC  CLOCK  BLOCK 

INITIALIZE  1  SEC  CLOCK  BLOCK 

WAS  PRISC  DEFINED  ? 

IF  NE,  YES  ..  OKAY 

ELSE,  INDICATE  FAILURE 


ypRn  -  \iMP  sFT  PRnrp; 
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97: 

971 

972 

973 

971, 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987  0034PA 

988 

989  003430 

990  003450 

991  00345A 
992 

993  003456 

994  003460 

995  003462 

996  003466 

997  003470 

998  003472 

999  003474 

1000  003476 

1001  00''500 

1002  00:504 

1003  003510 

1004  003524 

1005  003526 

1006  003532 

1007  003534 

1008  003536 

1009  003542 

1010  003546 
101  I  003564 

1012  003566 

1013  003570 

1014  003574 
1015 

1016  003576 

1017  003602 

1018  003604 

1019  003614 

1020  00362C 

1021  003622 

1022  003624 
1023 

1024  003626 

1025  003630 

1026  003634 


.SBTTL  SALMHC  -  ALLOCATE  MINHOPS/MINCOST  MATRICES 


SALMHC  -  ALLOCATE  WIN  HOPS/MIN  COST  -^ATRIX  FROM  POOL. 


INPUTS: 

SPDVA 


XPT'S  PDV  ADDRESS 


OUTPUTS: 

ALLOCATE  MIN  HOPS/COST  MATRIX 


016702  000060G 
001574 


01020'i 
005204 
016703 
001402 
005204 
060304 
006304 
010401 
062701 
042701 


010205 

103546 
C10502 
016705 
016505 

010201 
005201 
010167 
006301 

010067 
0050C4 

010467 
060104 
010301 
001410 

005201 
010167 
010067 


000062G 


000077 
000077 


OOOOOOG 
OOOOOOG 


000036G 
000040G 
000042G 


000044G 
000046G 


NSMHCI 

N$MHC1+2 

NSMHCI +4 

N$MHC2 

N$MHC2+2 

N$MHC2+4 


(XPT'S 
(XPT'S 
iXPT'S 
(XPT'S 
(XPT'S 
(XPT'S 


iALMHC::CALL    SSAVAL 


DDB)  -  NUMBER  OF  ENTRIES 

DDB)  -  BIAS 

DDB)  -  APR6  l^IRTUAL  ADDRESS  OF  MATRIX 

DDB)  -  NUMBER  OF  ENTRIES  IN  AREA  MATRIX 

DDB)  -  BIAS  OF  AREA  MATRIX 

DDB)  -  APR6  VIRTUAL  ADDRESS  OF  MATRIX 

;  SAVE  ALL  REGISTERS 


GETRV  $DECPT.*D$END 

MOV  $8FR+D$NN,R2 

BEQ  90$ 

MOV  R2,R4 

INC  R4 

mqv  $8fr+d$na,r3 

bIq  10$ 

INC  R4 

ADD  R3,R4 

10$:    ASL  R4 

MOV  R4,R1 

ADD  #77, R1 

BIC  #77, R1 

ASR$  6,R1 

MOV  R2,R5 

CALL  $ALN18 

BCS  100$ 

MOV  R5,R2 

MOV  $PDVA,R5 

MOV  Z.DAT(R5),R5 

GETRV  R5,#N$X.  EN 

MOV  R2,fil 

INC  R1 

MOV  Rl, NSMHCI  *-$BFR 

ASL  R1 

MOV  R0,N$MHCl*-2+$BFR 

CLR  R4 

BIAS  R4 

MOV  R4,N$MHCl*4+$BfR 

ADD  R1,R4 

MOV  R3,R1 

BEQ  20$ 

INC  R1 

MOV  R1,N$MHC2<-$BFR 

MOV  R0,N$MHC2t2t$8FR 


READ  DECNET  HOME  BLOCK 
STORE  MAX  NODES 
IF  END  NODE  BRANCH 

COPY  MAX  NODE 

INCLUDE  EXTRA  NODE  ENTRY 

GET  MAX  AREAS 

IF  NONE  -  BRANCH 

INCLUDE  EXTRA  AREA 

CALCULATE  TOTAL  ENTRIES 

CONVERT  TO  BYTE  COUNT  (1  WORD/NODE) 

COPY  BYTE  COUNT 

ROUND  TO  BLOCK  BYTE  BOUNDARY 

CONVERT  TO  BLOCK  COUNT 

SAVE  MAX  NODES 

ALLOCATE  MATRIX  FROM  NON-UMR  SPACE 

BR  IF  ERROR 

RESTORE  MAX  NODES 

GET  XPT'S  PDV  ADDRESS 

GET  XPT'S  DDB  ADDRESS 

READ  IN  XPT'S  DDB 

GET  NUMBER  OF  ENTRIES  IN  NODE  HOPS/COST 

INCREASE  BY  ONE 

STORE  NUMBER  OF  ENTRIES  IN  MATRIX 

CONVERT  TO  BYTES 

STORE  APR  BIAS  FOR  MIN  HOPS/MIN  COST 

POINT  TO  START  OF  MATRIX 

...  (XPT  NEEDS  APR6  BIAS) 

STORE  START  r^F  MATRIX 

POINT  TO  STAKT  OF  AREA  MOFS/CCST 

GET  NUMBER  OF  ENTRIES  IN  AREA  HOPS/COST 

IF  NONE  -  BRANCH 

INCREASE  BY  ONE 

STORE  NUMBER  OF  ENTRIES  IN  AREA  MATRIX 

STORE  APR  BIAS  FOR  AREA  MATRIX 
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VPRO 


CREATED  BY  MACRO  ON  28-AUG-85  AT  20:05 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


TSSVC 

T$T5 

T$T6 

VECLEN 

VECSYM 

VECTAB 

VECVAL 

VLNSYM 

VLNVAL 

VLSYM 

VTSYM 

V.ADD 

V.  LG 

V.  EN 

V.LNK 

V.PDV 

V.SIZ 

XBLKl 

XBLK2 

XBLK3 

XPTDSP 

XPTPDi/ 

Z.AVL 

Z.DAT 

Z.DSP 
Z.LLN 
Z.MAP 


00003A 

000030 

000032 

000006 

OOOOAA 

OOOOOO 

00005A 

000056 

000066 

000062 

000050 

000006 

000002 

000012 

OOOOOO 

OOOOOA 

000010 

0001 6A  R 

000176  R 

000210  R 

000016  R 

OOOOK  R 

«»«♦**  GX 

******  5x 

«*♦♦«.  GX 

:  »♦»♦*»  GX 

******  GX 


REFERENCES 

#5-68 

#5-68 

#5-68 

#6-94 

#6-K2 

#6-91 

#6-U4 

6-V.2 
#6-150 
#6-K9 
#6-K3 
*8-344 
*8-3A3 

8-338 
*8-340 
»8-3'i8 
*8-345 

6-185 

6-192 

6-195 
#6-113 
#6-112 
*7-303 

11-570 

16-106A 
♦7-276 

U-815 

11-561 


♦11-586 
•11-587 


8-34A 

#6-U8 

8-345 


8-351 


#6-192 
#6-195 
#6-198 
•  n-569 
•11-526 

12-63" 
17-1110 
•7-286 
15-922 


10-489 


10-486 

•13-718 
11-560 

13-719 

•7-288 


D  9 

PAGE  5 

CREF   04.00 


Z.NAM 

=    ****** 

GX 

11-557 

18-1169 

Z.PCB 

-    ****** 

GX 

7-249 

♦7-269 

tALADJ 

002440 

RG 

#14-812 

SALECL 

004056 

RG 

#17-1095 

SALMHC 

003424 

RG 

#16-987 

$ALN18 

=      ****** 

GX 

12-635 

14-833 

14-842 

SALPOL 

-      ****** 

GX 

8-339 

SALTLC 

001062 

RG 

#11-523 

$AZFS 

-   ****** 

GX 

7-258 

10-477 

$BFR 

-   ****** 

GX 

7-272 

7-285 

7-299 

•8-348 

n-573 

n-574 

•11-588 

•11-589 

12-619 

12-655 

•12-655 

12-657 

13-745 

13-763 

•13-789 

•14-839 

♦14-846 

15-378 

15-95? 

16-990 

16-995 

•i6-1uiO 

•'6-1031 

♦  ■6-1032 

16-1069 

; 7-1 098 

♦  •7-1112 

SBIAS 

;:      ****** 

GX 

•7-277 

•7-287 

7-308 

SCACH 

00?000 

RG 

#13-707 

$CAT5 

_    *♦*♦*• 

GX 

10-463 

10-H.o 

10-472 

SCEACC 

-    ****#■♦ 

GX 

8-350 

SCETOF 

=    ****** 

GX 

8-347 

$ct;r 

002720 

RG 

#15-873 

13-723 
11-567 

13-787 

11-569 


15-939 


♦7-309 
11-576 
12-622 

♦12-658 

♦13-790 
15-879 

♦  16-1013 
16-1038 

♦17-1118 
7-311 


13-739 

14-835 
13-718 


16-1005 


♦7-310 
11-578 
12-624 
12-677 
14-818 
15-894 

♦16-1016 
16-1039 
17-1125 
9-384 


♦15-874 

14-845 
15-874 


17-1107 


♦8-340 
11-580 

•12-641 
13-708 
14-820 
15-911 

♦16-1019 
16-1040 

•  17-1142 
9-385 


15-880 
15-875 


15-923 


16-1009 


♦8-343 

♦11-585 

♦12-645 

13-712 

14-821 

♦15-929 

♦16-1025 

16-1047 

9-386 


♦8-344 
♦11-586 
♦12-648 
♦13-722 

14-822 
♦15-945 
♦16-1026 

16-1066 


♦8-345 

♦11-587 
•12-654 

13-724 
•14-836 
♦15-948 
♦16-1027 

16-1068 
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DAM 

20^  000000 
205  001000 
206 

207  000000 

208  000000 

209  001024 

210  001024     000000 

211  001026     000000 

212  001030     000000 

213  001032     000000 
2H  00103'.     000000 

215  00103b     OOOCOO 

216  001040     000000 


D  10 


$BFR:: 

.8LKB 

512. 

LiNBUF 

:.8LKB 
.PSECT 

128. 
TMP$ 

STMPND 

'.PSECI 

LINSIZ 

; . WORD 

U 

CFSFLG 

:.W0RD 

0 

DFPTR: 

.WORD 

0 

DFCNT: 

.WORD 

0 

MACTYP 

.-.WORD 

0 

PDVNAM 

.-.WORD 

0 

SLTNUM 

: . WORD 

u 

DEFAULT  VIRTUAL  I/O  BUFFER 
CONFIG  FILE  SCANNER  BUFFER 

END  OF  TEMPLATE  PROCESSING  BUFFER 
END  OF  BUFFER 

NUMBER  OF  CHARACTERS  IN  BUF^FR 
CETAB  FILE  SCAN  FLAG  AND  DATA  BASE 


un     nnnT     uhr 


i/nc    n7k    T,  ./^r■,^7l 
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RSX  DATA  FROM  RSX11M.5T8 


Page  16-1 


D  11 


701  003570 

OOOOOd 

70?  003572 

000000 

703  00357A 

000000 

70^  0035^6 

OOOOCO 

705  003600 

000000 

706  003602 

000000 

707  003604 

708  00360A 

000000 

709  003606 

000000 

710  003610 

000000 

711  003612 

000000 

712  0036U 

000000 

713  003616 

000000 

7K  003620 

000000 

715  003622 

000000 

716  003624 

000000 

717  003626 

000000 

718  003630 

000000 

719  003632 

000000 

720  003634 

000000 

721  003636 

ooocoo 

722  003640 

000000 

723  003642 

000000 

724  003644 

000C10 

725  003646 

OOOOCO 

726  003650 

000000 

727  003652 

000000 

728  005654 

000000 

729  003656 

000000 

730 

731 

732 

733 

734  003660 

OOuOOO 

735  003662 

000000 

736 

737 

738  003664 

000000 

739  003666 

000000 

740  003670 

090000 

741 

742  003672 

743 

744 

745 

746 

747 

748 

749 

750  00367? 

000000 

751  003674 

000000 

752  003676 

000000 

753  003700 

ocoooo 

754  00370? 

000000 

.SYSN^ 

::.W&HD 

0 

.aiNS 

::.WORD 

0 

.FRKHD 

: ;.UORD 

0 

.hEADF 

:;.WORD 

C 

.STKDF 

:;.WORD 

0 

.PLGTh 

::.WORD 

0 

$MXVC 

.VCTR 

:.UORD 

0 

.NSO: 

.WORD 

0            ; 

.NSl: 

.WORD 

0 

.NS2: 

.WORD 

0 

.NS3: 

.WORD 

0 

.NS4: 

.WORD 

0 

.NS5: 

.WORD 

0 

.NS6: 

.WORD 

0            ; 

.NS7: 

.WORD 

0 

.HGEXT::.U0RD 

0 

.MGMGE::.;JORD 

0 

.UMRHD::.W0RD 

0            ; 

.DEUMR::.WORD 

0 

.TSKHD::.UORD 

0            ; 

.A8T]M::.W0RD 

0 

.TLGTH::.U0RR 

0 

.CLKHD::.WORD 

0 

.PATT 

:  .WORD 

0 

.PHDR 

:  .WORD 

0 

.PPRO 

.  .WORD 

0            ; 

.NETPF::.UORD 

0 

.NTUIC::.W0RD 

0 

;  VALUES  LOOKED 

UP  IN  COMEXEC  SYI* 

.IF  NDF 

R$$MPL 

.PDVTA::.W0RD 

0 

.CEAVL::.UORD 

0 

.ENDC 

.DLCOV::.WCrtD 

0 

.CRCO 

l/::.WORD 

0 

.CEPW 

R::.WORD 

0 

4 
76 


RSX  SYSTEM  NAME  ADDRESS 
SYMBOLS 
USED  FOR 
CEX 
VALIDATION 
LENGTH  OF  PCS 

HIGHEST  LEGAL  INTERRUPT  ADDRESS 
ERROR  LOG  INTERRUPT  (  VECTORS  0 
VECTORS  100  -  176 
VECTORS  200  -  276 
VECTORS  300  -  376 
VECTORS  400  -  476 
VECTORS  500  -  576 
VECTORS  600  -  676 
VECTORS  700  -  776 
11/70  EXTENDED  MEMORY  SUPPORT 
ONLY  HERE  SO  UNMAPPED  SYSTEM  WILL  GET  ERROR 
UMR  LISTHEAD 

ADDRESS  OF  EXEC  URM  ROUTINE 
TASK  CONTROL  BLOCK  LISTHEAD 
ABSOLUTE  TIME  COUNTER 
TCB  LENGTH 

CLOCK  QUEUE  LISTHEAD 
PCS  ATTACH  LISTHEAD 
OFFSET  IN  PCB  TO  TASK  HEADER  ADDRESS 
PCB  OFFSET  TO  PROTECTION  WORD 
NETWORK  POWERFAIL  RECOVERY  ROUTINE  ADDRESS 
NETWORK  UIC 


SSYMNr 


STARTING  ADDRESS  OF  CETAB 
CEX  POOL  LISTHEAD 


DLC  PROTOCOL  UVERhEAD 

CRC  OVERHEAD 

POWERFAIL  RECIVERY  ROUTI^JE 

REFERENCE  POINT 


; rwpoi ] 

;[MP01] 


IMAGF  OF  OFTEN  REFERENCED  VALUES  IN  RSX11M.SYS 


.IF  D,   R$$MPL 
$CTLjT::.WORD    0 
.ENDC 


SDEVHD 
SEXSIZ 
SFMASK 
$PARHD 
SSYSIZ 


:.WORD 
:.WORD 
:.WORD 
r.WORD 
:.WORD 


CTB  LIST  HEAD 


DEVICE  TABLE  LISTHEAD 

HIGHEST  ADDRESS  IN  EXEC 

SYSTEM  FEATURE  MASK 

PARTITION  CONTROL  BLOCK  LISTHEAD 

SYSTEM  SIZE  IN  32-WORD  PIOCKS 


[MPOIJ 
CMPOI] 
[MP01] 


A  rr\r\      iif\C 


_oc    1 1 . 1  <; 


E  11 


n    r 


VRES  -  VNP  ROOT  MACRO  V05.03b  Tuesday  17-SeD-85  16:15 
tRROR  MESSAGES 


Page  23 


D  12 


1277 
1278 
1279 
1280 
1281 
1282 
1283 
128^ 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 


00511A 
00517J 
005262 
0053U 
005326 
005A05 
005412 
005445 
005',50 
005537 
005615 


.SBTTL  ERROR  MESSAGES 
ERROR  MESSAGES 

ERMSGS  <Attenipt  to  reference  block  number  that  is  not3!n> 

ERMSGS  <within  the  system  image  fiLe(  XD.    ).  or  EOF  detected  5!n> 

ERMSGS  <        (  faias:!10/aadress:il!0  )> 

ERBLKS  ERRVl ,<$BFR,$RBLCK,$RADDR> 

ERMSGS  <l/0  error  accessing  system  image  file  (  ^E  ).*n> 

ERBLKS  ERRV2,<SYSFDB+F.ERR> 

ERMSGS  <Failed  to  get  command  line.> 

ERBLKS  ERRV3 

ERMSGS  <Maximuni  transfer  size  with  GETRV/PUTRV  macros  is  512.!!n> 

ERMSGS  <bytes,  but  specified  record  size  is  XO.   bytes. > 

ERBLKS  EfiRV4,<SRSIZE> 


E  12 


CREATED  BY     MACRO     ON  17-SEP-85   AT   16:16 


VRE5 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


D  13 

PAGE  6 

CREF   OA.OO 


OP$FIL 

OPtGRP 

OPSHOS 

OPtHTM 

OPSINA 

OPSINC 

OPSKDS 

OPSKDT 

OPSKEV 

OPSKGR 

OPSKNT 

OPSKSK 

OPSLCT 

OPSLNE 

OPSLOC 

OPSLST 

OPSLTM 

OPSLVL 

OPSMAC 

OPSMCO 

OPSMDE 

OP$ML : 

OPSMON 

OPSMST 

OPSNAM 

OPSNET 

OPSNLI 

OPSNOD 

OPSOUT 

OPSOWN 

OPSPAR 

OPSPRI 

OPSRET 

OPSRPA 

OPSSCO 

OPSSEG 

OPSSER 

QPSSIN 

OPSSTA 

OPSTPA 

OPITRI 

OPSUCS 

OPSUSE 

OPSVEC 

OPtVER 

OPSXAC 

OPSXPR 

DP$X5S 

0P$X9S 

PBLOX 

PDVNAM 

PF.PSV 


=  000200 

=  000100 

=  000001 

=  000002 

=  no-iooo 

=  001000 

=  002000 

=  000^00 

=  001000 

=  001000 

=  010000 

=  002000 

=  000200 

=  OOOOAC 

=  000001 

=   000002 

=  000001 

=  000010 

=  000010 

=  000002 

=  000400 

=  000004 

=  000100 

=  000020 

=  000004 

=  004000 

=  000002 

=  000020 

=  002000 

=  000020 

=  000010 

=  000010 

=  010000 

=  000010 

=  000001 

=  000400 

=  000400 

=  000010 

=  000004 

=  000020 

=  000040 

=  000020 

=  000002 

=  000040 

=  000040 

=  000001 

=  000002 

=  000004 

=  000010 
001004  RG 
001036  RG 

=  000002     G 


REFERENCES 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-8C 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#5-80 

#7-191 

#7-215 

#15-624 


#5-80 


#5-80 


#5-80 


1  7_ci:d_0c:     rtT     1  /. 
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1 

2 

5 

i, 

5 

6 

7 

8 

9 
10 
11 

:2 
13 

15 
16 
17 
18 
19 
20 
2  '• 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  VRQ8  -  VNP  PROCESS  REQUEST  BLOCK 
.IDtNT  /V05.00/ 

COPYRIGHT  (C)  1778,  1979,  1980,  1982,  1983,  '985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  A80VE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  Oft  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  REQUEST  BLOCK  PARSING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-llM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-IIM  V3.1 
0ECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-IIM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 
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PDVA  -  f IND  PDV  APDRESS 


Page  15 


A5J 
45A 
A55 
A56 
A57 
458 
459 
460 
461 
462 
463 
464 
465 
466 

467  000474 

468  000476 

469  000500 

470  000504 

471  000510 

472  000512 

473  000516 

474  000522 

475  000526 

476  000530 

477  000534 
478 

479 
480 
481 

482  000536 

483  000544 


012300 
001417 
010067  OOOOOOG 

103412 

010067  OOOOOOG 

116001  OOOOOOG 

042701  OOOOOOC 

001406 

050167  OOOOOOG 


.SBTTL  PDVA  -  FIND  PDV  ADDRESS 

PDVA  -  FIND  PDV  ADDRESS 

INPUTS: 

R3=REQUEST  BLOCK  POINTER 

.8LKW   1      ;  LR.PRO 


PROCESS  NAME 


OUTPUTS: 

C-6IT=SUCCESS/FAILURE 

$PDVA=PDV  ADDRESS 

$NAME=RAD50  PDV  NAME 

SFLAGS  SET  TO  PROCESS  TYPE  FROM  PDV  STATUS  BYTE 


PDVA: 


10$: 


MOV 

(R3)+,R0 

BEQ 

101$ 

MOV 

R0,$NAME 

CALL 

$FPDV 

BCS 

101$ 

MOV 

R0,$PDVA 

MOVB 

Z.FLG(R0),R1 

BIC 

#"c<fl.ddm:fl.dl 

BEQ 

111$ 

SIS 

R1,$FLAGS 

RETURN 


ERROR  CONDITIONS 


101$: 

111$: 


EMSG$R  97 
EMSG$R  96 


GET  PROCESS  NAME 
IF  ZERO,  RETURN  FAILURE 
STORE  IT 
TRY  TO  FIND  PDV 
IF  CS,  NOT  FOUND 
SET  PDV  ADDRESS 

GET  PROCESS  TYPE  FROM  PDV  STATUS  BYTE 
IFL.LLC>,R1 

IF  ZERO,  IT'S  NOT  A  REAL  PDVI 
UPDATE  NETLDR  STATUS 


PROCESS  NOT  IN  SYSTEM 
GARBAGE  IN  PDV 


E  15 

1  A  .  C7 


n 1  Z 


L_ 


VRQB 
CPRQ 


VNP  PROCESS   REQUEST  BLOC   MACRO  V05.05b   Tuesday   30-Jul-85   1 
CHECK    CLEAR   PROCESS  PARMS 


IM 


895  002416 

894  002A22 

895  002424 

896  002426 

897  002432 

898  002436 

899  002440 

900  002444 

901  002446 

902  002452 

903  002454 

904  002462 

905  002464 

906  C02466 

907  002470 


016703  OOOOOOG 

001421 

012246 

062716  OOOOOOG 

032736  OOOOOOG 

001411 

016246     177776 

060116 

123667     000246' 

001003 

005303 
001357 
005400 


MOV 

$SLTNM,R3 

BEQ 

140$ 

120$: 

MOV 

(R2)t,-(SP) 

ADD 

#L.FLG,(SP) 

BIT 

*LF.RDY,S(SP) 

BEQ 

130$ 

MOV 

-2(R2),-(SP) 

ADD 

R1,(SP) 

fPB 

a(SP)',PDVX 

BNE 

i:o$ 

EMSG$ 

Z5 

130$: 

DEC 

R3 

BNE 

120$ 

140$: 

NEG 

RO 

150$: 

RE) URN 

Page  24-2 


AND  NUMBER  OF  SYSTEM  LINES 

IF  ZERO,  NONE  TO  CHECK 

GET  FLAGS  WORD  ADDRESS  ON  STACK 

is'THIS  LINE  STILL  READY  ? 

IF  EQ,  NO 

GET  SLT  ADDRESS  ON  STACK 

ADD  INDEX  POINTER 

DOES  THIS  LINE  REFERENCE  OUR  PROCESS? 

IF  NE,  NO 

LINE  STILL  READY  (SETS  RO  NON-ZERO) 

LOOP  <SYSTEM  LINE  COUNT>  TIMES 
SET  C-BIT  IF  ERROR  OCCURRED 
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SYMBOL  CROSS  PEFEhENCE 


E  1 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

AIL  EN 

000004 

24-1387 

BRAD J T 

004630  R 

#25-1508 

8UFUMP 

=  172354 

#5-75 

CB.CCB 

=  000002 

12-796 

CFGKW 

000116  RG 

#46-2329 

CFGST 

CFSFLG 

001754  RG 

#46-2329 

*30-1751 

30-1817 

30-1780 
30-1824 

•30-1786 

30-1788 

30-1795 

•30-1801 

30-1803 

30-1807 

•30-1814 

CF.DDM 

=  000002 

#5-65 

CF.DYN 

=  000004 

#5-65 

54-2604 

CF.EIS 

=  000010 

#5-65 

CF.FRK 

=  100000 

#5-65 

CF.LOG 

=  000020 

#5-65 

CF.MDM 

=  000001 

#5-65 

CF.TIH 

=  000400 

#5-65 

CIRMUL 

000156  RG 

#7-168 

*91-3882 

92-3948 

CIRNAM 

000150  RG 

#7-166 

92-3936 

96-4159 

CIRNUM 

000154  RG 

#7-167 

*91-3879 

92-3943 

CIRUNT 

000254  RG 

#7-182 

*91-3885 

92-3945 

CLASS 

000042  R 

#6-123 

.77-3442 

79-3497 

79-3510 

CL.AST 

=  004000 

#5-70 

CL.ATT 

=  000200 

#5-70 

CL.CAS 

=  020000 

#5-70 

CL.CMT 

=  000001 

#5-70 

CL.EIF 

=  000040 

#5-70 

CL.EXN 

=  040000 

#5-70 

CL.EXT 

=  000010 

#5-70 

CL.IND 

=  000002 

#5-70 

CL.LCC 

=  000020 

#5-70 

CL.NPR 

=  000400 

#5-70 

CL.OPN 

=  000100 

#5-70 

28-1684 

CL.RNE 

=  000004 

#5-70 

CL.XIT 

=  100000 

#5-70 

CMODE 

=  140000 

#5-75 

CMPSTR 

015740  R 

98-4281 

#99-4iU3 

99-4310 

99-4319 

CM$SET 

=  ♦»♦**«  GX 

107-4779 

108-4817 

109-4851 

CRFNSK 

016154  R 

#102-4431 

103-4516 

CRSUB 

004640  R 

17-1103 

#26-1534 

CTL 

000060  R 

#6-127 

*59-2677 

59-2688 

CURUNM 

000004  R 

#6-116 

*69-3173 

69-3177 

•79-3504 

79-3511 

•80-3537 

80-3538 

•80-3539 

80-3541 

*86-3684 

86-3692 

♦87-3721 

87-3722 

•87-3723 

87-3725 

•88-3753 

88-3754 

•88-3755 

88-3761 

C.BID 

000003 

*  12-796 

DADDR 

014432  RG 

#91-3912 

OCT 

014450  RG 

#91-3917 

DELF 

010676  R 

#67-3063 

DELW 

010750  R 

#67-3072 

DEV 

017010  RG 

#103-4589 

DEVBUF 

000242  RG 

#7-179 

7-180 

101-4395 

101-4397 

105-4543 

•103-4591 

103-4592 

•105-4598 

DEVW 

000160  RG 

#7-169 

OFCNT 

=  »«««♦»  GX 

•50-2541 

*51-2556 

•52-2568 

DFPTR 

;  »*♦*«♦  GX 

*50-2540 

•51-2555 

52-2570 

•52-2572 
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SYMBOL  CROSS  REFERENCE 


E  2 

PAGE  U 

CREF   04.00 


VPl 

Tafc 


SYMBOL  VALUE 


SF.DUM 

SF.ENA 

SF.HAD 

SF.HST 

SF.LOA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.PH3 

SF.PSS 

SF.REA 

SF.SEC 

SF.SER 

SF.SVC 

SF.Tr" 

SF.UNL 

SLTNUH 

SPSAV 

SRHFNB 

STAN 

STRAD 

STRADD 

STRADR 

STRMAX 

STRPT 

5TRPTR 

STRSIZ 


010000 
000100 
000004 
000002 
002000 
000004 
000040 
000020 
020000 
000040 
000010 
000400 
000001 
000002 
001000 
0CO040 


******  g; 
015552  R 
000036  R 
000332  RG 
000056  R 
010242  R 
010240  R 
000334  RG 
010236  R 
000204  RG 


SUBPAR  =  ******  GX 
SWR     =  177570 
SY5FDB  =  *♦*♦»♦  GX 


c 

ADD 

000004 

c 

CIR 

000016 

s 

COSi 

000001 

s 

DEV 

000020 

s 

DIA 

000046 

s 

DPA 

000032 

s 

DPC 

000036 

s 

DUM 

000050 

s 

FLAG 

000002 

s 

.FLG 

000000 

REFERENCES 


#5-81 

103-4510 

#5-73 

59-2708 

66-3000 

66-3004 

#5-81 

#5-81 

#5-81 

103-4502 

#5-73 

#5-73 

108-4813 

108-4832 

#5-73 

#5-81 

#5-81 

#5-73 

#5-81 

103-4494 

#5-73 

#5-73 

#5-81 

103-4498 

#5-73 

*28-1699 

♦57-2659 

66-2989 

*8-220 

9-561 

#98-4256 

103-4513 

#6-121 

♦57-2660 

♦58-2670 

66-2995 

#7-191 

90-3821 

90-3844 

103-4589 

104-4619 

•'04-4648 

#6-126 

♦77-3445 

78-3465 

78-3467 

♦78-3468 

*61-2758 

♦65-2928 

65-2930 

#65-2972 

*61-2759 

61-2761 

61-2778 

♦64-2897 

65-2912 

65-2916 

65-2935 

65-2952 

#65-2971 

#7-192 

♦90-3826 

♦90-3857 

♦103-4539 

103-4570 

♦103-4571 

♦103-4599 

♦104-4630 

♦104-4676 

*61-2756 

♦61-2757 

61-2762 

♦64-2883 

♦64-2884 

65-2908 

65-2927 

#65-2970 

#7-173 

90-3820 

♦90-3824 

♦90-3827 

90-3842 

90-3852 

♦90-3854 

♦90-3858 

♦103-4540 

*103-4572 

103-4590 

♦103-4600 

104-4618 

♦104-4631 

104-4647 

♦104-4677 

*8-231 

♦8-321 

8-374 

16-970 

#5-75 

*8-286 

♦8-288 

♦8-292 

•8-294 

♦8-329 

♦8-373 

♦8-402 

♦8-418 

♦8-448 

»8-457 

♦11-741 

♦11-742 

♦11-743 

♦12-797 

•13-834 

♦14-879 

♦16-948 

17-1086 

♦26-1569 

♦61-2752 

♦61-2753 

♦61-2754 

♦61-2777 

♦61-2778 

♦62-2792 

♦62-2808 

♦63-2841 

*63-2863 

♦64-2888 

♦64-2889 

•64-2890 

♦64-2892 

♦64-2895 

♦65-2919 

♦65-2920 

♦65-2922 

*65-2923 

♦65-2926 

♦65-2956 

♦65-2959 

♦65-2960 

•65-2961 

♦  67-3017 

♦67-3027 

♦67-3037 

*67-3046 

♦67-3056 

♦67-3065 

♦67-3074 

♦67-3083 

♦67-3093 

♦67-3103 

♦67-3110 

♦69-3175 

♦69-3183 

♦69-3184 

♦69-3185 

♦69-31 90 

♦69-3191 

♦69-3192 

♦70-3239 

♦71-3257 

♦72-3280 

♦73-3303 

♦74-3318 

♦75-3344 

♦75-3372 

♦76-3392 

♦76-3408 

♦79-3506 

♦80-3542 

♦86-3686 

♦87-3726 

♦88-3746 

♦88-3747 

♦88-3748 

♦88-3762 

♦94-4060 

♦94-4062 

♦94-4063 

•94-4064 

♦94-4075 

♦94-4076 

♦94-4077 

•98-4257 

♦98-4258 

•98-4259 

♦98-4272 

♦102-4451 

M02-4453 

♦102-4454 

♦102-4455 

♦102-4466 

•102-4467 

♦102-4468 

•103-4524 

♦103-4526 

♦103-4530 

♦103-4536 

♦105-4707 

#5-81 

♦94-4042 

#5-81 

♦94-4048 

#5-73 

#5-81 

♦94-4050 

#5-81 

103-4505 

#5-81 

♦94-4056 

♦94-4057 

#5-81 

♦94-4058 

#5-81 

103-4509 

#5-81 

♦94-4041 

•103-4551 

#5-73 

♦66-3000 

•66-3001 

♦66-3004 

108-4813 

•108-4832 
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VPIC 
PR.L 


s- 

5A 

MACRO  DEFINITIONS 

(S- 

92 

CONSTANT  DEFINITIONS 

7- 

1?1 

LOCAL  DATA 

a- 

198 

$CX  0  -  CEX  1/0 

q- 

2^3 

$PR  0  -  PROCESS  I/O 

10- 

313 

CR.MC  -  CREATE  MICROCODE  PARTITION 

1?- 

468 
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1^- 

580 

EXTXPT  -  EXTEND  XPT'S  DD8 

H- 

616 

FR.PAR  -  FIND  PARTITION 

1S- 

754 

PR. SUB  -  CREATE  SUB-PARTITION 

16- 

872 

PR.XFR  -  READ  PROCESS  INTO  CORE 

17- 

917 
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PR.LBL  -  READ  LABEL  BLOCK 


468 
469 
470 
4^1 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 

488  001002 

489  001006 

490  001012 

491  001014 

492  001022 

493  001024 

494  001030 

495  001034 
496 

497  001040 

498  001044 
499 

500  001046 

501  001054 
502 

503  001056 

504  001062 

505  001064 

506  001072 

507  001074 

508  001102 
509 

510 
511 

512  001104 

513  001110 

514  001112 

515  001114 

516  001120 

517  001124 

518  001130 

519  001134 

520  001136 

521  001144 
522 

523 
524 


.SBTTL  PR.LBL  -  READ  LABEL  BLOCK 

PR.LBL  -  READ  LABEL  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  PROCESS  LABEL  BLOCK  AND  TU  VERIFV 
THAT  THE  FILE  IS  A  VALID  PROCESS  IMAGE.  ON  EXIT,  THE  LOGICAL  BLOCK  I/O 
POINTERS  ARE  SETUP  TO  ACCESS  THE  FIRST  TEXT  BLOCK. 

INPUTS: 

$NAME=  RAD50  PDV  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FA11URE 

RO=LABEL  BLOCK  BUFFER  ADDRESS 

R1,R2=DESTRUYED 

$LBN=FIRST  TEXT  BLOCK  LOGICAL  BLOCK  NUMBER 

$LLEN=PROCESS  SIZE  IN  BYTES 

BLOX=PROCESS  SIZE  IN  32.  WORD  BLOCKS 


012700  000000' 


103554 
032760 
001557 
016001 
016002 
010167 

026001 
001146 

022767 
001403 

022701 
103543 
032767 
001064 
022760 
001137 


PR.LBL: 


OOOCOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
000260' 

OOOOOOG 

114224  OOOOOOG 

000200 

OOOOOOG  OOOOOOG  1$: 

120000  OOOOOOG 


MOV 

CALL 

BCS 

BIT 

BEQ 

MOV 

MOV 

MOV 

CMP 
BNE 

CMP 
BEQ 

CMP 
BLO 
BIT 
BNE 
CMP 
BNE 


#DSKBUF,RO  ;  GET  BUFFER  ADDRESS 

$RL8L  ;  READ  LABEL  BLOCK 

101$  ;  IF  CS,  FAILURE 
/'TS$NHD,LtBFLGCRO)  ;  DOES  PROCESS  HAVE  A  HEADER? 

111$  ;  IF  EQ,  YES 

L$BLDZ(R0),R1  ;  GET  LOAD  SIZE  IN  BLOCKS 

L$8EXT(R0),R2  ;  GET  EXTEND  SIZE  FROM  LABEL  BLOCK 

R1,$LDSIZ  ;  SAVE  LOAD  SIZE  FOR  LATER 


L$8MXZ(R0),R1 
111$ 

#*RXPT,$NAME 
1$ 


IS  PROCESS  OVERLAID? 
IF  NE,  YES 

LOAD  XPT  ? 

IS  YES  -  BRANCH 


#200, R1        ;  IS  PROCESS  >  4K  WORDS  ? 

121$  ;  IF  LO,  YES 

#FL.CEX,$FLAGS  ;  IS  THIS  THE  COMM  EXEC? 

20$  ;  IF  NE,  YES 

#120000, L$BSA(RO!  ;  WAS  PROCESS  BUILT  FOR  APRS? 

131$  ;  IF  NE,  NO 


005767 
001412 
010146 
016701 
016700 

010167 
012601 
032767 

001016 


000002G 


0000006 
OOOOOOG 

000146' 


CALCULATE  LINE  TABLES  SIZE 


OOOOOOG  OOOOOOG  5$: 


TST 

BEQ 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

BIT 

BNE 


$PRINCt2 

5$ 

R1,-(SP) 

$$INC,R1 

$PRLLN,RO 

$MUL 

R1, EXTEND 

(SP)+,R1 

#FL.LLC,$FLAGS 

7$ 


WAS  THE  LINE  TABLE  SIZE  SPECIFIED  ? 

IF  EQ,  NO  ..  ASSUME  NO  LINE  TABLES 

SAVE  LOAD  SIZE 

GET  THE  LINE  TABLE  COUNT 

AND  THE  LINE  TABLE  SIZE 

GET  SIZE  IN  BYTES  OF  THE  LINE  TABLES 

SAVE  THE  SIZE  OF  THE  LINE  TABLES 

RESTORE  THE  LOAD  SIZE 

IS  THIS  AN  LLC  PROCESS  ? 

IF  Nl",  YES 


DDM/DLC  PROCESS 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


BLOX 

BYTES 

CR.MC 

CSLEN 

DSKBUF 

DSEND 

DSMLL 

0$NN 

ERROR 


ERR10 

ERR12 

ERRK 

ERR16 

ERRT8 

ERR2 

ERR20 

ERR22 

ERR2A 

ERR26 

ERR28 

ERR30 

ERR32 

ERRS^i 

ERR4 

ERR6 

ERRS 

EXTEND 

EXTXPT 

E$NBR 

E$NBS 

ESNCR 

ESNCS 

ESNIC 

ESNLEN 

E$NLLA 

ESNLNK 

E$NML 

ESNMR 

ESNMS 

ESNNCD 

E$NRT 

ESMRTP 

ESNSEG 

ESNTIM 

ESNJSE 

ESSTRT 

fE.EXV 

FE.PLA 

FL.CEX 

FL.LLC 


0001A2  R 
OOOU-!.  R 
000220  R 
000012 
000000  R 
=  0001 OA 
OOOOAO 
000060 
000250  R 


000012 

OOOOU 

000016 

000020 

000022 

000002 

000024 

000026 

000030 

000032 

00003A 

000036 

000040 

000042 

000004 

000006 

000010 

000146  R 

001424  R 

000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 

000004 

000020 


GX 
GX 


REFERENCES 

#7-142 
#7-143 

9-298 

13-605 
#7-194 

13-599 

13-604 

13-600 
#7-167 
♦10-393 
♦14-743 
#6-106 
#6-107 
#6-108 
#6-109 
#6-110 
#6-102 
#6-11'' 
#6-'V- 
#6-113 
#6-114 
#6-115 
#6-116 
#6-117 
#6-118 
#6-103 
#6-104 
#6-105 
#7-148 

12-545 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 

14-707 

9-290 

12-505 

12-520 


♦11-459 
♦11-462 
#10-325 

11-454 


♦9-267 
♦10-398 
♦14-745 
12-570 
12-574 
12-572 
12-576 
14-741 
9-306 
14-743 
14-745 
14-747 
14-749 
14-751 
15-866 
15-868 
16-912 

9-308 

12-568 

♦12-518 

#13-595 


10-381 
14-664 


♦12-547 
♦12-553 


12-488 


9-279 
♦12-568 
♦14-747 
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CREF   04.00 
♦12-548 
12-561 


9-287 
♦12-570 
♦14-749 


14-711 


15-793 


15-816 


15-845 


♦  9-''06 

♦9-308 

10-345 

10-367 

10-377 

♦12-572 

♦12-574 

♦12-576 

14-733 

♦14-741 

♦14-751 

♦15-866 

♦15-868 

♦16-912 

VPRM 

SVMB 

SYMB 

X 

Y 

$ALP 

$ANY 

$BLA 

$DIG 

$DNU 

$EOS 

$EXI 

$FAI 

$GOF 

$GPR 

$LA^ 

$NU^ 

SRAC 

$RDN 

$STR 

$SUE 

$$PR 

$$$F 


♦12-531 


12-539 


14-697 


upin 


fRFATFD  RY  MACRO  ON  28-AUG-85  AT  20:04 


PAGE  2 


F  5 


E  6 

VPRMPT 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT  02:55 

PAGE  1 

SVMBOL 

CROSS  REFERENCE 

CREF   OA.OO 

SYMBCL 

VALUE 

REFERENCES 

X 

000000  RG 

#6-79 

¥ 

OOOCOO  RG 

#6-79 

SALPHA 

=  000022 

»b-T) 

SANY 

=  000020 

ltb-79 

SBLANK 

=  000006 

#6-79 

tDIGIT 

=  00002A 

#6-79 

SDNUMB 

=  OOOOU 

#6-79 

$EOS 

=  000012 

#6-79 

tEXIT 

=  000000 

ltb-79 

SFAIL 

=  177777 

#6-79 

SGOFF 

rr  ****** 

4-1 

6-79 

SGPRM 

=  OOOOul 

#5-69 

6-79 

$LAMDA 

=  000000 

#6-79 

SNUMBR 

=  000002 

ltb-79 

$RAD50 

=  000016 

ltb-79 

SRONLY 

=  000001 

#5-73 

6-79      6-79 

6-79      6- 

SSTRNG 

=  OOOOO-i 

ttb-79 

SSUBXP 

=  000010 

ltb-79 

$$PRMP 

000000  RG 

ltb-79 

$$$FLG 

=  177777 

ltb-79 

SSSK-EY 

=  Mnii 

ttb-79 

VPRC 
AXS1 
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VP 
$A 


A05 
404 
405 
406 
407 
408 
409 
410 
411 
412 
415  000600 

414  000604 

415  000610 

416  000614 

417  000616 

418  000620 

419  000622 

420  000630 

421  000634 

422  000636 

423  000640 

424  000644 

425  000646 

426  000650 
427 

428 
429 
430 
431 
i32 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
4  58 
459 


012700 
012701 
012702 
005302 
112021 
001375 
112761 
112721 
005702 
001404 
112721 
005302 
001374 


OOOOOOG 
000025' 
000004 


PRSVM  -  LOOK  FOR  SPECIAL  PROCESS  SYMBOLS 

INPUTS: 

$DFNAM=ASC!Z  PROCESS  NAME 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
PVAL=DISPATCH  TABLE  ADDRESS 


PRSYM: 


10$: 


000124 
000102 


000040 


17777' 


15$: 


17$: 


20$: 


25$: 


MOV 

#$DfNAM,RO 

MOV 

#DSPTAB^1,R1 

MOV 

#'.,R2 

DEC 

R2 

MOVB 

(R0)+,(R1)+ 

BNE 

10$ 

MOVB 

#'T,-1(R1) 

Move 

#'B,(R1)+ 

TST 

R2 

BEQ 

17$ 

MOVB 

#•  ,{R1)+ 

DEC 

R2 

BNE 

15$ 

.IF  DF 

R$$MPL 

MOV 

#$DFNAM,RO 

MOV 

#VECTAB+1,R1 

MOVB 

(R0)+,(R1)+ 

BNE 

20$ 

MOVB 

#"V,-1(R1) 

MOVB 

#'T,(R1) 

MOV 

*VECTAB,RO 

MOV 

PCRl 

CALL 

$CAT5 

MOV 

RI.VTSYM 

MOV 

PCRl 

CALL 

$CAT5 

MOV 

Rl,VTSYM+2 

MOV 

#$DFNAM,RO 

MOV 

#VECLEN+1,R1 

MOVB 

(RO)  +  ,(RlW 

BNE 

25$ 

MOVB 

*'V,-1(R1) 

MOVB 

#'L,(R1) 

MOV 

(CVECLEN.RO 

MOV 

PCRl 

CALL 

$CAT5 

MOV 

R1,VLSYM 

MOV 

PCRl 

CALL 

$CAT5 

MOV 

Rl,VLSYM+2 

.ENDC 


FORM  DISPATCH  TABLE  ADDRESS  NAME 

BY  STARTING  WITH  "$", 

APPENDING  THE  PROCESS  NAME, 

APPENDING  "TB", 

AND  BLANK  FILLING  OUT  TO  6  CHARACTERS. 


BLANK  FILL  IF  NEEDED 


;CMP01] 


form  dispatch  table  address  name 
by  starting  with  "$", 
copy  name 

create'$xxxvt  symbol 


NOW  TAKE  THE  ASCII  NAME 

AND  CONVERT  TO  RAD50 

STORING  THE  RAD50  NAME  IN  THE  GLOBAL 

SYMBOL  LOOKUP  CONTROL  BLOCK 


FORM  DISPATCH  TABLE  ADDRESS  NAME 
BY  STARTING  WITH  "$", 


CREATE  $XXXVL  SYMBOL 


NOW  TAKE  THE  ASCII  NAME 

AND  CONVERT  TO  RAD50 

STORING  THE  RAD50  NAME  IN  THE  GLOBAL 

SYMBOL  LOOKUP  CONTROL  BLOCK 


jCMPOi: 
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1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1353 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 


010467  000050G 
000406 

005067  000044G 

005067  000046G 

005067  000050G 


003640 
003644 

003646 
003652 
003656 

003662 


003666  005046 


003670 
003674 
003700 
003704 
003706 

003710 
003714 
003716 
003722 
003726 

003730 
003732 

003736 
003756 
003762 
003764 
003766 

003770 
003772 


016700  000036G 

016701  000040G 

016702  000042G 
006300 

010004 

022704  001000 

002002 

012704  001000 

012703  OOOOOOG 

010405 

105023 


062702  001000 
160400 
010004 
001350 

005716 
100424 


003774 
004000 
004004 
004022 
004026 
004030 
i;04034 
004040 
004042 

004044 
004C46 


004050 


016702  OOOOOOG 
016202  OOOOOOG 

016700  000044G 
001406 

016701  000046G 

016702  000050G 
005316 

000720 

005726 


ir 

R4.N$HHC2t4+$BfR 
30i 

20$: 

CLR 
CLR 
CIR 

N$MHC2t$BFR 

N$MHC2t2+$B."R 

N$MHC2t4*-$BFR 

30$: 

PUTRC 

CLR 

-(SP) 

40$: 

ASL 
MOV 

N$iMHCU$BFR,RO 

N$MHC1+2t$BFR,R1 

N$MHCU4+$BFR,R2 

RO 

R0,R4 

50$: 
60$: 

CMP 
BGE 
MOV 
MOV 
MOV 

#512. ,R4 
60$ 

#512. ,R4 
#$8FR,R3 
R4,fi5 

,'0$: 

CLR8 
SOB 

(R3)  + 
R5,70$ 

PUTAD 

ADD 

SU8 

MOV 

BNE 

R2,R4,R1 

#5l2.,R2 

R4,fi0 

R0.R4 

50i 

TST 

SP) 
80S 

MOV 

MOV 

GETRV 

MOV 

BEQ 

MOV 

MOV 

DEC 

BR 

$PDVA,R2 

Z.DAT(R2),R2 

R2,*N$XLEN 

N$MHC2+$BFR,R0 

80$ 

N$MHC2+2+$BFR,R1 

N$MHC2t4+$BFR,R2 

(SP) 

40$ 

80$: 
90$: 

TST 
RETURN 

(SP)  + 

100$: 

EMSG$R 

69 

STORE  VIRTUAL  ADDR  OF  START  OF  MATRIX 
CONTINUE 

INIT  AREA  MINHOP/MINCDST  ENTRIES 


REWRITE  UPDATED  DDB 

INIT  STACK  AS  FLAG  INDICATING 

AREA  OR  NODE  MTRIX  (0=NODE,-1=AREA) 

COPY  NUMBER  OF  ENTRIES 

COPY  BIAS  OF  NODE  MIN  HOP/COST 

COPY  VIRTUAL  ADDRESS 

CONVERT  TO  BYTES 

SAVE  SIZE 

SIZE  >  ONE  TRANSFER 

IF  NO  -  BRANCH 

IF  YES  -  TRANSFER  ONE  BLOCK 

GET  BUFFER  ADDRESS 

SAVE  SIZE 

INIT  BUFFER 

IF  MORE  -BRANCH 

WRITE  TO  IMAGE 
ADJUST  VIRTUAL  ADDRESS 
ADJUST  REMAINING  SIZE 
SET  NEW  REMAINING  SIZE 
IF  MORE  -  BRANCH 

CHECK  FLAG 

IF  AREA  HOP/COST  CLEARED  -  BRANCH 

IF  NOT  -  INIT  AREA  MIN  HOP/COST 

COPY  XPT  PDV  ADRESS 

GET  XPT  DDB  ADDRESS 

READ  DDB 

COPY  #  OF  AREA  MINHOP/MINCOST  ENTRIES 

IF  NONE  -  BRANCH 

GET  AREA  MIN  HOP/COST  BIAS 

GET  AREA  MIN  HOP/COST  ADDRESS 

SET  FLAG  INDICATING  AREA  HOP/COST 

INIT  AREA  MIN  HOP/COST  MATRIX 

CLEAN  UP  STACK 


ELSE  ALLOCATION  FAILURE 
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SYMBOL 

VALUE 

REFERENCES 

tCMFRK 

=    ****** 

GX 

♦9-384 

*9-392 

♦9-393 

SCTSYM 

004504 

RG 

#19-1196 

SDECPT 

-      ****** 

GX 

12-618 

13-707 

14-817 

16-989 

17-1096 

$DFN 

=      ****** 

GX 

7-252 

SDFNAM 

=      ****** 

GX 

10-413 

SERRQX 

=      ****** 

GX 

7-321 

SERR44 

r     ****** 

GX 

6-206 

$ERR45 

=     ****** 

GX 

6-207 

SERRAb 

=     ****** 

GX 

6-208 

$ERR47 

~     ****** 

Gx 

6-209 

$ERRA9 

=     ****** 

GX 

10-504 

$ERR50 

=     ****** 

GX 

10-505 

$ERR51 

=     ****** 

GX 

6-214 

$ERR53 

=     ****** 

GX 

6-216 

$ERR5A 

=     ****** 

GX 

6-217 

SERR55 

=:     ****** 

GX 

6-218 

$ERR56 

=     ****** 

GX 

6-219 

$ERR57 

=     ****** 

GX 

6-220 

$ERR58 

=      ****** 

GX 

6-221 

$ERR59 

=:     ****** 

GX 

6-222 

$ERR60 

=     ****** 

GX 

6-223 

$ERR61 

=     ♦♦**** 

GX 

6-224 

$ERR62 

=     ****** 

GX 

6-?25 

$ERR63 

-     ****** 

GX 

6-226 

$ERR64 

=     ****** 

GX 

6-227 

$ERR65 

=     ****** 

GX 

6-228 

$ERR66 

~     ****** 

GX 

6-229 

$ERR67 

=     ****** 

GX 

6-230  ^ 

$ERR69 

=     ****** 

GX 

16-1077 

$ERR70 

::     ****** 

GX 

11-598 

13-795 

17-1147 

$ERR9D 

r     ****** 

GX 

14-851 

15-966 

$ERR99 

=     ****** 

GX 

12-689 

SGETAD 

-     ****** 

GX 

7-308 

11-577 

14-838 

15-951 

17-1123 

IGETRV 

=     ****** 

GX 

7-270 

11-571 

12-618 

12-640 

13-707 

13-720 

13- 

-788 

14-845 

15-877 

15-928 

15-942 

16-989 

16-1010 

16- 

-1065 

17-1141 

SLDSIZ 

-     ****** 

GX 

7-271 

SLLCTA 

-     ****** 

GX 

11-542 

SMUL 

r     ****** 

GX 

13-715 

14-825 

15-933 

17-1102 

SNAME 

-     ****** 

GX 

7-251 

9-375 

SNTLHB 

-     ****** 

GX 

8-340 

*8-341 

10-487 

$PDVA 

r     ****** 

GX 

7-248 
16-1063 

7-268 

17-1109 

8-346 

12-638 

13-717 

14-813 

15- 

-873 

$P[)W»IM 

-     ****** 

GX 

18-1165 

SPDVM 

=     ****** 

GX 

11-554 

18-1164 

18-1177 

SPRC^N 

000112 

RG 

#6-165 

tPREXT 

000102 

RG 

6-156 

#6-163 

tPRINC 

000070 

RG 

6-134 

6-148 

#6-156 

SPRIO 

=  ****** 

GX 

7-259 

SPRLLN 

000100 

RG 

#6-158 

SPUTAD 

z:     ****** 

GX 

7-311 
15-958 

8-351 
16-1053 

11-590 
17-1132 

12-681 
17-1138 

13-750 

13-774 

14 

-840 

14-817  14-835 

17-1096         17-1111 


15-920  16-1008 


15-899  15-917 
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218 
219 
220 
221 
222 
225 
224 
225 
226 
227 
228 
229 
230 
231 

232  001042 

233  001044 

234  001050 

235  001052 

236  001054 

237  001060 

238  001062 

239  001064 

240  001066 

241  001070 

242  001072 

243  001076 

244  001100 

245  001102 

246  001104 

247  001112 

248  001114 

249  001116 

250  001122 

251  001124 

252  0O1126 

253  001130 

254  001134 

255  001140 

256  001144 

257  001146 

258  001150 

259  001154 

260  001156 


010246 
012702 
005700 
001002 
012700 
112022 
001376 
005302 
010100 
001002 
012700 
010001 
112022 
001376 
112762 
012600 
001002 
012700 
112022 
001376 
003302 
010267 
012700 

112120 
001376 
012701 
160102 


.SBTTL  $AZFS  -  SET  UP  ASCIZ  FILE  SPEC 

$AZFS  -  SETUP  ASCIZ  FILE  SPEC 

INPUTS: 

RO=ASCIZ  UIC  ADDRESS  (0=USE  DEFAULT) 
R1=ASCIZ  FILE  NAME  ADDRESS  (0=USE  DEFAULT! 
R2=ASCIZ  EXTENSION  ADDRESS  (0=USE  DEFAULT) 

OUTPUTS: 

R1=ASCIZ  FILE  SPEC  ADDRESS 

R2=FILE  SPEC  LENGTH  (EXCLUDING  ZERO  BYTE) 


001374' 


001534' 


001552' 


SAZFS:; 


10S: 


15$: 
20$: 


000056  177777 


001606' 


000226 
000001 


001374' 


30$: 


40$: 


MOV 

MOV 

TST 

BNE 

MOV 

MOVB 

BNE 

DEC 

MOV 

BNE 

MOV 

MOV 

MOVB 

BNE 

MOVB 

MOV 

BNE 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

CALL 

MOVB 

BNE 

MOV 

SUB 

RETURN 


R2,-(SP) 

#FILE,R2 

RO 

10$ 

#$DFUIC,RO 

(R0)+,(R2)t 

10$ 

R2 

RI.RO 

15$ 

#$DFNAM,RO 

RO.RI 

(R0)+,(R2)+ 

20$ 

#'.,-1(R2) 

(SP)+,RO 

30$ 

#DFEXT,RO 

(R0)+,(R2)+ 

30$ 

R2 

R2,FNPTR 

#1,R0 

SLFNP 

(R1)+,(R0)t 

40$ 

*FILE,R1 

Rl,ft2 


SAVE  EXTENSION  ADDRESS 

PLACE  WHERE  FILE  SPEC  WILL  BE  ASSEMBLED 

IS  THERE  A  UIC  ADDRESS? 

IF  NE,  YES 

else  use  default  uic 

copy  asciz  uic  into  file  spec 

discard'zero  byte 

copy  file  name  address 

if  ne,  there  is  one 

else  use  default  name 

save  file  name  address  for  later 

copy  asciz  file  name  into  file  spec 

deposit"'''." 

restore  extension  address 

if  ne,  there  is  one 

else  use  default  extension 

copy  asciz  extension  into  file  spec 

discard'zero  BYTE 

SAVE  POINTER  FOR  POSSIBLE  ERROR 

SETUP  LOCAL  FILE  NAME  POINTER 

FOR  NEXT  GCL  LEVEL 

COPY  FILE  NAME  INTO  LOCAL  AREA 

SET  FILE'sPEC  address 
SET  FILE  SPEC  LENGTH 


_  QC   1  i  .  1  C 
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756 
757 
758 
759 
760 

761  00370A 

762  003706 

763  003710 

764  003712 

765  0037U 

766  003716 

767  003720 

768  003722 

769  00372A 

770  003726 

771  003730 

772  003732 

773  00373A 
lit*   003736 

775  003740 

776  003742 

777  003744 

778  003746 

779  003750 
780 

781 
782 
783 
784 

785  003752 

786  003754 

787  003756 

788  003760 

789  003762 

790  003764 

791  003764 

792  003766 

793  003770 

794  003772 

795  003772 

796  004004 

797  004006 
798 

799 
800 
801 

802  004010 

803  004012 

804  004024 

805  004026 
806 

807 
808 
809 
810 
811 
812  004030 


.SBTTL  CEX  DATA 
IMAGES  MAINTAINED  B"  MODULES  VIMI  AND  VIMO 


000000 
000000 
000000 
000000 
000000 

ooooco 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 


SPDVTA: 
SSLTMA: 
ILLCTA: 
SPDVNM: 
SSLTNH: 
SCCBNM: 
SCCBSZ: 
SRDBNM: 
SRDBSZ: 
SSDBNM: 
SSDBSZ: 
SCCBCT; 
$CC8AF; 
SLDBAF: 
SCCBAL: 
SRDBTH; 
SCMPDV; 
SZTIME; 


SCMFRK: 


STIOOQ: 
$T50Q:: 


000000  000000 

000000 

000000 


000000 

000000  000000 

000000 

000000 


SSTMFC 

snooc 

000000  $T50CL 


SLTMFC 
OOOOCO  STISCL 


,UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


.IF  DF  M$$PRO 
.WORy   0 
.ENDC 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


.WORD   0 
.WORD   0 


::.WORD 
ii.WORD 

0 
0,0,0,0,0 

.WORD 

0 

.WORD 

0 

.IF  DF 

M$$PR0 

.WORD 

0 

.ENDC 

::.WORD 

0 

: : . WORD 

0,0,0,0,0 

.WORD 

0 

.WORD 

0 

.IF  DF  M$$PRO 
.WORD   0 
.ENDC 


000000 


IDE  CPT;.-.  WORD   0 


ADDRESS  OF  PDV  ADDRESS  TABLE 
ADDRESS  OF  SLT  ADDRESS  TABLE 
ADDRESS  OF  LLC  REVERSE  MAPPING  TABLE 
NUMBER  OF  PDV  ENTRIES 
NUMBER  OF  SYSTEM  LINES 

#  OF  CCB'S  ALLOCATED 

#  BYTES  /  CCB 

#  OF  RDB'S  ALLOCATED 

#  BYTES  /  RDB 

»   OF  SDB'S  ALLOCATED 

#  BYTES  /  SDB 

COUNTER  OF  CURRENT  #  OF  CCB'S 

COUNTER  OF  »   OF  CCB  ALLOCATION  FAILURES 

COUNTER  OF  #  OF  LDB  ALLOCATION  FAILURES 

COUNTER  OF  #  OF  DYNAMIC  CCB  ALLOCATIONS 

POOL  THRESHOLD  FOR  LARGE  DATA  BUFFER  ALLOCATION  FA 

PDV  INDEX  OF  CURRENT  DISPATCHED  PROCESS 

TIME  SINCE  SYSTEM  LAST  ZEROED 

TIME  SINCE  COUNTERS  LAST  ZEROED 


UNINUS  RUN  MASK 


COHM  EXEC  FORK  BLOCK 


[MP013 
CMP01] 
CMPOi: 


APRS  BIAS  (FREE  WORD  ON  UNMAPPED  SYSTEMS) 
100  MSEC  TIMER  QUEUE 
50  MSEC  TIMER  QUEUE  (TO  BE  DELETED) 

function" CODE  TO  DISPATCH  50  MSEC  TIMEOUTNS 

100  MSEC  CLOCK  QUEUE  ENTRY 

50  MSEC  CLOCK  QUEUE  ENTRY 

ADDRESS  OF  PROCESSING  ROUTINE 

APR5  BIAS  ON  MAPPED  SYSTEMS  (FREE  ON  UNMAPPED) 

;[MP01] 
UNIBUS  RUN  MASK  ;EMP01] 

;[MP01] 

FUNCTION  CODE  TO  DISPATCH  LONG  TIMEOUTS 

1  SECOND  CLOCK  QUEUE  ENTRY 

ADDRESS  OF  PROCESSING  ROUTINE 

APRS  BIAS  ON  MAPPED  SYSTEMS  (FREE  ON  UNMAPPED) 


UNIBUS  RUN  MASK 


DECNET  HOME  BLOCK  POINTER 


CMPOI] 
[MP01] 
CHP01] 


VF 
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1294 
1295 
1296 
1297 
1298 
1299 
,30n 
130 1 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
13U 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
132A 
1325 


.SBTTL     SCEACC   -  ACCESS  SLOCK    IN  EXTENDED  POOL 


•*-$CEACC-ACCESS  BLOCK    IN  EXTENDED  POOL 

THIS   SUBROUTINE   MAPS   TO  A  BLOCK   IN  EXTENDED  SINGLE  WORD  POOL, 
AND  RETURNS  A  VIRTUAL   ADDRESS   TO  ACCESS   THE  BLOCK. 

INPUTS: 

2(SP)   -  ADDRESS  OF  BLOCK  TO  BE  ACCESSED 

OUTPUTS: 

2(SP)   -  VIRTUAL  ADDRESS  OF  MAPPED  BLOCK 

$R8LCK  -  APR  BIAS  OF  BLOCK  TO  BE  ACCESSED  (0  IF  FROM  DSR) 


005622 
005622 
005626 
005634 
005636 
0056AO 
005644 
005652 
005660 
005674 
005700 
005706 
005712 
005714 


005067  172632 

032766  000001  000002 

001427 

016600  000004 

042766  177701  000004 

052766  140000  000004 

042700  176000 

016767  176200  172552 

060067  172546 


SCEACC: 


10$: 


CLR 

BIT 

BEQ 

SAVRG 

MOV 

BIC 

BIS 

ASR$ 

BIC 

MOV 

ADD 

RESRG 

RETURN 


$RPLCK 
;n,2(SP) 

loi 

<R0> 

4(SP),R0 
#177701, 4(SP) 
#140000, 4(SP) 
6.R0 

#176000, RO 
$XeiAS,$RBLCK 
RO.SRBLCK 
<R0> 


ASSUME  BLOCK  IS  IN  DSR 

IS  THE  BLOCK  IN  EXTENDED  POOL  ? 

IF  EQ,  NO  -  ALREADY  MAPPED  TO  IT 

ELSE,  SAVE  RO 

COPY  BLOCK  ADDRESS 

RETURN  VIRTUAL  ADDRESS 

...  MAPPED  THROUGH  KISAR6 

CONVERT  TO  BLOCK  OFFSET 

CLEAR  EXTRANEOUS  BITS 

MAP  TO  BASE  ADDRESS  OF  POOL 

...  UPDATE  TO  PROPER  BLOCK 

RESTORE  RO 

RETURN  TO  THE  CALLER 
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SYMBOL 

VALUE 

REFERENCES 

PF.XDF 

=  000001  G 

#15-623 

PF.XGA 

=  000004  G 

#15-625 

PREFIX 

001622  R 

#14-409 

14-432 

PREF2 

001651  R 

#14-410 

•14-424 

•14-427 

PSTART 

001002  RG 

#7-190 

PUMR 

001010  RG 

#7-193 

UFSACT 

=  000001 

#5-80 

QFSALL 

=  000002 

#5-80 

QFSKNO 

=  000004 

#5-80 

QFtLOO 

=  000010 

#5-80 

Q.IOAE 

=  000012  G 

6-102 

Q.IOFN 

=  000002  G 

6-96 

6-102 

6-102 

Q.IOPL 

=  0000 U  G 

6-102 

♦14-418 

•  U-419 

O.IOSB 

=  000010  G 

6-102 

6-102 

RA 

000730  RC 

#7-172 

RB 

000732  RG 

#7-173 

RQB 

003430  RG 

#15-635 

15-636 

RQBST 

=  003430  RG 

#15-636 

R$$EIS 
R$$MPL 

r   ****** 
=      ****** 

24-1320 
7-151 

15-465 

15-502 

15-591 

15-612    16-657 

16-753 

16-746 

17-833 

17-8;0 

17-944 

18-1002 

19-1059 

19-1085    19-1103 

20-1158 

21-1192 

26-1361 

R$$11D 

r  ****** 

5-79 

24-1520 

R$$11M 

=  000000 

5-79 

R$$11S 

-  ****** 

5-79 

SBFLG 

000772  RG 

#7-186 

SBNAM 

000766  RG 

#7-184 

SBPAR 

000762  RG 

#7-182 

SBPCB 

000746  RG 

#7-177 

SBPOOL 

000760  RG 

#7-181 

SF.ACT 

=  000200  G 

#5-78 

SF.ENA 

=  000100  G 

,'/5-78 

SF.LPB 

=  000004  G 

#5-78 

SF.MFL 

=  000040  G 

#5-78 

SF.PAC 

=  000020  G 

#5-78 

SF.REA 

=  000010  G 

#5-78 

SF.SER 

=  000001  G 

#5-78 

SF.SVC 

=  000002  G 

#5-78 

SF.UNL 

=  000040  G 

#5-78 

SLFNP 

001332  R 

8-255 

10-318 

#12-369 

SLTNUM 

001040  RG 

#7-216 

SPARE1 

004220  RG 

#17-916 

SPARE2 

004224  RG 

#17-917 

SPSAV 

001006  RG 

#7-192 

— 

SUBPAR 

000744  RG 

#7-176 

SYSDNB 

000416  rt 

6-115 

#6-114 

SYSFDB 

000256  RG 

#6-111 

6-117 

19-1082 

21-1202 

25-1287 

S.BFHD 

=  000020 

6-89 

6-89 

S.COST 

000001  G 

#5-78 

S.ETEF 

=  000002 

6-102 

S.FDB 

:r  000140 

6-102 

6-102 

6-111 

6-111 

S.FLG 

000000  G 

#5-78 

S.FNAM 

=  000006 

6-102 

6-102 

6-114 

6-114 
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MACRO  DEFINITIONS 

55  .SSTTL  MACRO  DEFINITIONS 

56 

57  ;  MACROS 

CO 

59  '       .MCALL  ASL$,EMSG$,VNPDF$,NTLER$,SWTCHI,GErRV,PUTRC,fMSG$R 

60  .MCALL  DC8DF$,UC8DF$,SWTCH0,TCBDF$,CALLR,SAVRG,RESRG,GETAD 

61  .ENA8L  LC  ;  ENABLE  LOWER  CASE 

63  000000  VNPDFS  ;  VNP  REQUEST  BLOCK  OFFSETS 

6^  000000  DCBDF$  ;  DEVICE  CONTROL  BLOCK  OFFSETS 

65  OOOOCO  UCBDFS  ;  UNIT  CONTROL  BLOCK  OFFSETS 

66  000000  TfBDFS  ;  7AS^  CONTROL  BLOCK  OFFSETS 
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^85 
486 
hS? 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 

501  000552 

502  PO0552 

503  000560 

504  000566 

505  00C570 

506  000574 

507  000600 

508  000602 

509  000610 

510  000614 

511  000622 

512  000624 

513  000630 

514  000632 

515  000640 

516  000642 

517  000646 

518  000652 

519  000656 

520  000662 

521  000666 


012767 
032767 
001002 
012703 
012367 
001403 
042767 
005067 
032767 
001006 
011367 
001403 
042767 
005723 
012367 
011367 
005067 
005067 
005067 


.SBTTL   CHKPP  -  CHECK  PROCESS  PARMS 

'cHKPP  -  CHcCK  PROCESS  PARAMETERS 

INPUTS: 

LS.OPT  SET  iF  ANY  OPTIONAL  PARAMETERS 
R3=REQUEST  BLOCK  POINTER 


.8LKW 
.BLKW 
.8LKW 


LO.LIN  -  NUMBER  OF  LINE  TABLES 
LO.CON  -  NUMBER  OT  CONTROLLER  TABLES 
LO.PAR  -  PARTITION  NAME 


OUTPUTS: 

R3=DESTR0yED 

$$INC=INCREMENT  SIZE  IN  32. 
$$PAR=PARTITION  NAME 


WORD  BLOCKS 


OOOOOOC  OOOOOOG 
000400  000004G 

000234' 
OOOOOOG 

OOOOOOG  OOOOOOG 
0000006 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOC  OOOOOOG 

OOOOOOG 
000002C 
OOOOOOG 
OOOOOOG 
OOOOOOG 


CHKPP: 


10$: 


20$: 


30$: 


MOV  #MS.INC!MS.EXT,$MISS  ;  ASSUME  PROCESS  EXTENSION  FIELDS  ABSENT 

BIT  #LS.0PT,$$LRB+4  ;  ANY  OPTIONAL  PARAMETERS  INCLUDED? 

BNE  10$  ;  IF  NE,  YES 

MOV  #NULL,R3  ;  IF  NOT,  USE  NULL  PARAMETERS 

MOV  (R3)+,$$INC  ;  SET  INCREMENT  VALUE 

BED  20$  ;  IF  EQ,  LINE  TABLE  COUNT  NOT  PRESENT 

BIC  #MS.INC,$MISS  ;  ELSE,  NO  LONGER  MISSING 

CLR  $$EXT  ;  CLEAR  LLC  PROCESS  EXTENSION 

BIT  #FL.LLC,$FLAGS  ;  IS  THIS  AN  LLC  ? 

BNE  30$  ;  IF  NE,  YES 

MOV  (R3),$$EXT  ;  SET  CONTROLLER  TABLE  COUNT 

BEQ  30$  ;  IF  EQ,  NOT  PRESENT 

BIC  #MS.EXT,$MISS  ;  ELSE,  NO  LONGER  MISSING 

TST  (R3)+  ;  SKIP  CONTROLLER  TABLE  COUNT 

MOV  (R3)+,$$PAR  ;  SET  PARTITION  NAME 

MOV  (R3),$$PARt2 

CLR  $$DEV  ;  INDICATE  NO  DEVICE  NAME  (YET) 

CLR  $$T8L  ;  AND  NO  DISPATCH  TABLE  ADDRESS 

CLR  $$LINX  ;  ZERO  LOGICAL  LINK  COUNT 

RETURN 
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909 

910 

9r 

912 
913 
9K 
915 
916 
917 
918 
919 

920  002A72 

921  002A75 

922  002502 

923  002506 
92-;  002510 

925  002512 

926  0O251A 

927  002520 

928  002522 

929  002526 
930 

931 
932 
933 
93i  002530 


.SBTTL  CLIN  -  CHECK  CLEAR  LINE  PARMS 

'cLIN  -  CHECK  "ClEAR  LINE"  REQUEST  BLOCK 

INPUTS: 

$SLTA=SLT  ADDRESS 

OUTPUTS; 

NONE 


016700  0000006 

062700  OOOOOOG 

032710  OOOOOOG 

001002 

005001 

000A05 

032710  OOOOOOG 

001003 

052710  OOOOOOG 


CLIN: 


10$: 


20$: 


MOV 

ADD 

BIT 

3NE 

CLR 

BR 

BIT 

BNE 

3IS 

RETURN 


$SLTA,RO 
#L.FLG,RO 


#LF.RDY 

10$ 

fC 

20$ 

#LF.ACT 

101$ 

#LF.UNL 


(RO) 


(RO) 
(RO) 


ERROR  CONDITION 
101$:   EMSG$fi  Z^ 


GET  SLT  ADDRESS 

POINT  AT  STATUS  WORD 

IS  LINE  READr? 

IF  NE,  YES 

INDICATE  NO  WORK  TO  DO 

IS  LINE  ACTIVE? 

IF  NE,  YES  -  NOT  ALLOWED 

INDICATE  LINE  MARKED  FOR  UNLOAD 


LINE  STILL  ACTIVE 
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CREF   0^.00 


SYMBOL  VALUE 


DFSIZ 

DFTBL 

DVSZ 

DSAMXC 

DSAMXH 

DSBRTM 

DSDELF 

DSDELW 

DSEND 


D$FNB 

DSHOST 

DSINAC 

DSINCT 

DSIPL 

DtLID 

DSLNAM 

DSLNUM 

D$LST 

DSMAXC 

DSMAXH 

DSMAXV 

OSMLL 

D$MNO[) 

D$NA 

DSNBEA 

DSNBRA 

DSNN 

DSOUTT 

DSRETF 

DSRNN 

DSRTMR 

0$SEG 

DSSER 

ECLLK 

ECLLLN 

ECLLNK 

ECLNOD 

ENDHEX 

ENDPAS 

ERRTAB 

ERR1 

ERR10 

ERRH 

ERR12 

ERR13 

ERR14 

ERR15 

ERRT6 


000010 
006^0^ 
000010 
000072 
000074 
000100 
000045 
000046 
000104 


000034 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

004610  R 

000070  R 

010340  R 

000072  R 

000204  RG 

000132  RG 

002036  R 

000336  R 

000742  R 

001002  R 

001050  R 

001116  R 

001154  R 

001216  R 

001252  R 


REFERENCES 

50-2541 
50-2540 
#7-180 
•76-3394 
♦75-3374 
*76-3418 
»67-3066 
*67-3075 
8-457 
67-3017 
67-3103 
75-3344 
102-4467 
98-4261 
*63-2842 
*67-3057 
♦67-3038 
♦67-3084 
♦64-2893 
61-2758 
♦62-2796 
♦67-3094 
♦71-3259 
♦72-3282 
♦72-3283 
♦67-3018 
♦67-3028 
♦74-3328 
♦75-3355 
♦8-458 
♦70-3241 
♦67-3047 
♦67-3104 
69-3187 
♦73-3304 
♦67-3111 
94-4066 
#25-1502 
#6-135 
#67-3015 
#6-136 
#7-171 
#7-160 
9-550 
#10-629 
#10-636 
#10-637 
#10-638 
#10-639 
#10-640 
#10-641 
#10-642 


#53-2593 
#53-2585 
103-4544 


61-2753 
67-3027 
67-3110 
75-3372 

102-4457 
♦63-2865 


65-2921 
♦62-2818 


♦72-3284 


24-1441 

95-4099 

95-4126 

10-591 

10-629 

10-636 

10-637 

10-638 

10-639 

10-640 

10-641 

10-642 


53-2593 


62-2792 
67-3037 
69-3184 
76-3392 


65-2954 


62-2808 
67-3046 
69-3191 
76-3408 


63-2841 
67-3056 
70-3239 
88-3747 


63-2863 
67-3065 
71-3257 
94-4063 


64-2889 
67-3074 
72-3280 
94-4076 


65-2920 
67-3083 
73-3303 
98-4258 


65-2960 
67-3093 
74-3318 
102-4454 


74-3320    75-3346 


8-3750 


24-1428   ^25-1502 


76-3410 


♦25-1505 


#10-629 
10-629 
10-636 
10-637 
10-638 
10-639 
10-640 
10-641 
10-642 
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CREF       OA.OO 


ypi 


SYMBOL 

VALUE 

REFERENCES 

S.HAD 

000010 

#5-81 

S.HST 

000006 

#5-81 

S.LEN 

OOOOOA 

#5-73 

S.LENG 

000052 

#5-81 

S.LNK 

000000 

#5-81 

S.LOA 

000044 

#5-81 

S.NMST 

000002 

#5-73 

S.OWNR 

000003 

#5-73 

S.PSS 

000022 

#5-81 

S.SEC 

000040 

#5-81 

S.TER 

000042 

#5-81 

TOPFLG 

=  ***♦*»  GX 

*17-1041 
•109-4853 

TPS 

=  177564 

#5-75 

TYPE 

000063  R 

#6-130 

TYSCHA 

=  000400 

#5-78 

TYSEVE 

=  001000 

#5-78 

TYSSTA 

=  002000 

#5-78 

TYSSUM 

=  000000 

#5-78 

TSFLAG 

000044 

#5-69 

T$LIF 

000013 

#5-69 

TSLIFL 

000013 

#5-69 

TSLIFO 

000013 

#5-69 

TS.IFS 

000013 

#5-69 

T$LIN 

000000 

#5-69 

TSLIPS 

000006 

#5-69 

rSLLO 

000012 

#5-69 

TSLLDC 

000045 

#5-69 

TSLLDL 

000012 

#5-69 

TSLLDO 

000012 

#5-69 

TSLLDS 

000012 

#5-69 

TSLLEN 

00004b 

#5-69 

TSLOPR 

000002 

#5-69 

TSLTCL 

000024 

#5-69 

TSLTIM 

000026 

#5-69 

TSLTPR 

000014 

#5-69 

TSLTPS 

000020 

#5-69 

TSNAPL 

000004 

#5-69 

TfMFE 

000000 

#5-69 

TSNLEN 

000010 

#5-69 

TSNNUL 

000002 

#5-69 

TSNOPL 

0000C6 

#5-69 

TSNRNI 

000042 

#5-69 

TSNRPL 

000005 

#5-69 

TSNRUL 

000007 

#5-69 

rSNVR 

000001 

#5-69 

TSRPRI 

000040 

#5-69 

T$SVC 

000034 

#5-69 

T$T5 

C00030 

#5-69 

T$T6 

000032 

#5-69 

UBMPR 

=  170200 

#5-75 

uiceuF 

000206  RG 

#7-174 

*94-4045 
»94-4043 
108-4834 
94-4025 

103-4501 


»94-4051 
103-4493 
103-4497 
17-1074 
109-4854 


♦94-4046       *94-4047 
94-4036         94-4060         103-4530       103-4536 


*94-4052       *94-4054       *94-4055 


•17-1100         26-1588         26-1603       *107-4781       107-4782     *108-4819       108-4820 


•82-3580         86-3679         87-3727 


24-1416 


11-733 
7-175 


101-4401        101-4402       103-4547     •104-4621        104-4622     •104-4624     •104-4652 
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VPIC 
PR. I 


1 

2 

3 

^ 

5 

6 

7 

8 

9 

10 

11 

12 

13 

^■\ 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
52 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
i.7 
48 
49 
50 
51 
52 


.TITLE  VPIO  -  VNP  PROCESS  I/O  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  fURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  O^'HERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  1;H0ULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  COMMON  "SET  CEX'V'SET  PROCESS' 
DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 
1.00 


I/O  ROUTINES 


2.00 


3.00 


4.00 


5.00 


27-FEB-78 

VERSION  2.0  RELEASE 

14-DEC-79 
DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

16-APR-82 
DECNET-11M  "'3.1 
DECNET-11M-PLUS  VI. 1 

07-N0V-83 
DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

22-JUL-85 
DECnet-llM/S  V4.2 
DECnet-:iM-PLus  V3.0 
DECnet-Micro/RSX  Vl.O 
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PR.LBL  -  READ  LABEL  BLOCK 


525  001^6 

526  001152 

527  00115A 

528  001156 

529  001162 

530  001166 

531  001172 

532  001176 

533  001200 
53A 

535 

536 

537  001202 

538 

539  001206 

5^0  001212 

541   001216 

5A2  001222 

543  001236 

544 

545  001240 

546 

547  001244 

548  001250 

549  001254 

550  001270 

551  001304 

552  001310 

553  001312 
554 

555  001316 

556  001324 
557 

558  001326 

559  001332 

560  001334 

561  001336 

562  001342 
563 

564 
565 
566 

567  001344 

568  001352 

569  001360 

570  001362 

571  001370 

572  001372 

573  001400 

574  001402 

575  001410 

576  001412 

577  001420 

578  001422 


005767 
001415 
010146 
016701 
016700 

060167 
012601 
000402 


000002G 


OOOOOOG 
OOOOOOG 

000146' 


TST 

BEQ 

MOV 

MOV 

MOV 

CALL 

ADD 

MOV 

BR 


$PREXT+2 

10$ 

R1,-(SP) 

$$EXT,R1 

$PRCLN,RO 

$MUL 

R1, EXTEND 

(SP)t,R1 

10$ 


066702  OOOOOOG 


016700 
062700 
042700 

060002 


010167 
060267 


010167 
060102 
010267 

022767 
001403 

022702 
103427 
000241 
012700 


116777 
012767 
000417 
012767 
000413 
012767 
000407 
012767 
000403 
012767 
000261 


000146' 

000077 

000077 


000142' 
000142' 


OOOOOOG 
000144' 
114224  OOOOOOG 

020000 

000000' 


;  LLC 

PROCESS 

H: 

ADD 

$$EXT,R2 

10$: 

MOV 

ADD 

BIC 

ASR$ 

ADD 

EXTEND, R 
*77, RC 
#77.fi0 

6,r6 

R6,fi2 

CALL 

EXTXPT 

20$: 

MOV 

ADD 

ASL$ 

ASL$ 

MOV 

ADD 

MOV 

R1,8L0X 

R2,8L0X 

6,R1 

6,R2 

R1,$LLEN 

R1,R2 

R2, BYTES 

25$: 


CMP 
BEQ 

CMP 
BLO 
CLC 
MOV 
RETURN 


#»RXPT,$NAME 
25$ 

#20000, R2 
141$ 

#DSK8Uf ,R0 


ERROR  CONDITIONS 


OOOOOOG  OOOOOOG  101$ 
000010 


000012 
000016 
000014 
000020 


000250' 

000250'  111$: 

000250'  121$: 

0C0250'  131$: 

000250'  141$: 
142$: 


MOVB 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

SEC 

RETURN 


$IUSB,a$CLIOS 
#ERR8, ERROR 
142$ 

*ERR10, ERROR 
142$ 

#ERR14, ERROR 
142$ 

#ERR12, ERROR 
142$ 
#ERR16, ERROR 


Page  12-1 

WAS  THE  CONTROLLER  SIZE  SPECIFIED  ? 

IF  EQ,  NO  ..  ASSUME  NO  CONTROLLERS 

SAVE  LOAD  SIZE 

GET  THE  CONTROLLER  TABLE  COUNT 

AND  THE  CONTROLLER  TABLE  SIZE 

CALCULATE  SIZE  OF  CONTROLLER  TABLES 

ADD  CONTROLLER  TABLE  SIZE  TO  EXTEND  SIZE 

RESTORE  THE  LOAD  SIZE 

AND  SKIP  LLC  PROCESS  EXTENSION 


ADD  IN  THE  LLC  DEFINITION  EXTEND  SIZE 

GET  THE  PROCESS  EXTEND  SIZE 
ROUND  UP  TO  NEXT  BLOCK 

CONVERT  BYTES  TO  BLOCKS 
INCREASE  THE  EXTEND  SIZE 

CHECK  FOR  XPT  AND  EXTEND  IF  SO 

SET  PROCESS  SIZE  IN  BLOCKS 

convert" FROM  BLOCKS  TO  BYTES 
BY  SHIFTING  LEFT  6  PLACES 
SET  TRANSFER  SIZE  IN  BYTES 
ADD  LOAD  SIZE  TO  EXTEND  SIZE 
SET  PROCESS  SIZE  IN  BYTES 

ALLOW  XPT  >  4KW 
IF  XPT  -  BRANCH 

IS  PROCESS  +  EXTENSION  >  4K  WORDS? 

IF  LO,  YES 

INDICATE  SUCCESS 

RESTORE  ADDRESS  OF  LABEL  BLOCK  BUFFER 


COPY  ERROR  CODE 

LABEL  BLOCK  READ  FAILURE 

INVALID  PROCESS  IMAGE 

PROCESS  EXCEEDS  4K  WORDS 

PROCESS  NOT  BUILT  FOR  APR5 

PROCESS  EXTENSION  EXCEEDS  4K  WORDS 
INDICATE  FAILURE 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

FL.LMC 

=   »«»***      GX 

10-343 

PL. TOP 

=   *•***♦     GX 

14-632 

14-668 

14-693 

15-823 

15-847 

FNDPDV 

003100  R 

#17-930 

F.HIBK 

I   *«»♦«*     GX 

14-681 

F.RSIZ 

=   »*»»*«     GX 

♦9-292 

♦10-333 

♦10-383 

♦13-599 

♦14-650 

♦15-805 

♦16-901 

I$$AS 

=   ****** 

12-542 

13-610 

KDPMC 

000166  R 

#7-157 

11-431 

KDZMC 

000200  R 

#7-158 

11-433 

LSBEXT 

=   ******     GX 

12-494 

LSBFLG 

I   ******     GX 

12-491 

LSBLDZ 

=   ******     GX 

11-457 

12-493 

LSBMXZ 

=   ******     GX 

12-497 

L$BPAR 

=   «**»»♦     GX 

14-644 

14-645 

LSBSA 

=   ******     GX 

12-507 

14-70? 

MBUF 

000262  R 

#7-187 

17-961 

MCFBF 

000212  R 

#7-162 

11-416 

11-439 

MCFLG 

000150  R 

#7-154 

♦10-357 

♦10-365 

14-634 

15-783 

MCLOA 

=  000001 

#7-153 

10-357 

10-365 

14-634 

15-783 

MSGPRI 

003152  R 

7-134 

7-137 

10-394 

10-399 

#17-960 

PCBA 

000252  R 

#7-172 
10-388 

♦9-266 
♦14-732 

9-281 
16-901 

♦9-285 

9-288 

10-348 

♦10-349           10-364 

PR.LBL 

001002  R 

9-273 

#12-488 

PR. PAR 

001540  R 

9-275 

10-358 

#14-632 

PR . SUB 

00233A  R 

14-695 

#15-772 

PR.XFR 

003026  R 

9-277 

10-361 

#16-891 

PS.COM 

=  000200 

14-714 

15-801 

PS.NSF 

=  000400 

15-801 

PS. SYS 

=  000040 

14-662 

15-801 

P.BLKS 

000016 

14-704 

14-711 

♦15-793 

15-829 

15-833 

P. BUSY 

000024 

14-716 

14-720 

14-723 

♦14-723 

14-725 

♦14-727 

P. MAIN 

000012 

14-718 

♦15-792 

P.NAM 

000004 

10-334 

10-336 

14-651 

14-653 

♦15-785 

♦15-786 

♦15-789         ^15-790 

P.REL 

000014 

14-672 

14-699 

15-810 

15-814 

♦15-820 

♦15-825 

15-832         ^15-852 

P. SIZE 

000016 

14-673 

P.STAT 

000030 

14-662 

14-714 

♦15-801 

P.  SUB 

000010 

15-811 

♦15-821 

♦15-853 

♦15-858 

RMCLBL 

000726  R 

10-355 

#11-454 

R$$EIS 

-      ****** 

11-460 

12-542 

12-549 

12-550 

13-610 

14-701 

R$$MPL 

-      »*♦**♦ 

8-215 

14-656 

14-667 

14-675 

15-795 

15-837 

16-891 

R$$11D 

-      **■«*♦* 

12-542 

13-610 

SFIL 

000624  R 

10-351 

#11-415 

SYSFDB 

-   »♦*»♦«     GX 

♦9-292 

♦10-333 

♦10-383 

♦13-599 

•14-650 

14-680 

♦15-805         ^16-901 

TMPPCB 

000152  R 

#7-155 

♦10-348 

10-373 

10-387 

TSiNHD 

=   ♦♦«**»     GX 

12-491 

TSFLAG 

000044 

#5-70 

T$LIF 

000013 

#5-70 

TSLIFL 

000013 

#5-70 

TSLIFO 

000013 

#5-70 

tslifs 

000013 

#5-70 

r$LIN 

000000 

#5-70 

tslips 

000006 

#5-70 

T$LLD 

000012 

#5-70 

VPR!« 

MACR 

MACR 

DBGT 
ISTA 
MTRA 
PRMP 


♦10-387 


16-902 


vpin 
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VPR( 
AXS^ 


MACRO  NAME 

REFERENCES 

DBGTPS 

#6-79 

ISTATS 

#5-65 

6-79 

MTRANS 
PRMPT$ 

#6-79 
#5-65 

6-83 

#6-85 

#6-86 

#6-87 

#6-88 

#6-89 

#6-90 

#6-91 

#6-92 

#6-93 

#6-94 

#6-95 

#6-96 

#6-97 

#6-98 

#6-99 

#6-100 

#6-101 

#6-102 

#6-103 

#6-104 

#6-105 

#6-106 

#6-107 

#6-108 

#6-109 

#6-110 

#6-111 

#6-112 

#6-1 1 3 

#6-114 

#6-115 

#6-116 

#6-117 

#6-118 

#6-119 

#6-120 

#6-121 

#6-122 

#6-123 

#6-124 

#6-125 

#6-126 

#6-127 

#6-128 

#6-129 

#6-130 

#6-131 

#6-132 

#6-133 

#6-134 

#6-135 

#6-136 

#6-137 

#6-138 

#6-139 

#6-140 

#6-141 

#6-142 

#6-U3 

#6-144 

#6-145 

#6-146 

#6-147 

#6-148 

#6-149 

#6-150 

#6-151 

#6-152 

#6-153 

6  6 
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AXSYM  -  AUX  SPECIAL  SYMBOLS 


460 

461  000650 

012700 

000024' 

462  000654 

010701 

463  000656 

464  000662 

010167 

000036' 

465  000666 

010701 

466  000670 

467  000674 

010167 

000040' 

468  000700 

116767 

OOOOOOG  000025' 

469  000706 

116767 

OOOOOIG  000026' 

470  000714 

012700 

000024' 

471  000720 

010701 

472  000722 

473  000726 

010167 

000120' 

474  000732 

005000 

475  000734 

005001 

476  000736 

012702 

000020' 

477  000742 

478  000746 

012700 

000032' 

479  000752 

480  000756 

103436 

481 

482  000760 

016767 

000124'  OOOOOOG 

483  000766 

005767 

000034' 

484  000772 

001422 

485 

486  000774 

012701 

000164' 

487  001000 

012702 

00001 OG 

488 

489  001004 

005767 

000054' 

490  001010 

001402 

491  001012 

062702 

000006 

492 

493  001016 

026122 

000010 

494  001022 

001403 

495  001024 

005761 

000002 

496  001030 

001006 

497  001032 

011101 

498  001034 

001370 

499  001036 

500 

501 

502 

503 

504  001040 

505  001046 

506  001054 

016000 

000220' 

507  001060 

30$: 


50$: 


60$: 


MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

M0V8 

MOVB 

MOV 

MOV 

CALL 

MOV 

CLR 

CLR 

MOV 

CALL 

MOV 

CALL 

BCS 

MOV 
TST 
BEQ 

MOV 
MOV 

TST 
BEO 
ADD 

CMP 
BEQ 
TST 
BNE 
MOV 
BNE 
RETURN 


#DSPTAB,RO 

PC.Rl 

$CAT5 

Rl.PSYM 

PCRl 

$CAT5 

R1,PSYMt2 

$$DEV,DSPTAB+1 

$$DEV+l,DSPTAB+2 

*DSPTAB,RO 

PCRl 

$CAT5 

R1,DTSYM 

RO 

R1 

#ST8EXT,R2 

$A7FS 

#PeLK,RO 

$SYMbL 

ST8ERR 

DTVAL,$$TBL 

PBLK+2 

101$ 


Page  10-1 


NOU  TAKE   THE  ASCII   NAME 

AND  CONVERT   TO  RAD50 

STORING   THE  RAD50  NAME   IN  THE   GLOBAL 

SYMBOL   LOOKUP   CONTROL  BLOCK 


FORM  DCB   DISPATCH   TABLE   ADDRESS  NAME 
convert' to  RAD50 


VP 
$A 


DEFAULT  SECOND  HALF  OF  NAME  TO 
SETUP  ASCIZ  FILE  SPEC 
FOR  XXX. STB 


'TBL' 


GET  LOOKUP  CONTROL  BLOCK  ADDRESS 

LOOK  FOR  GLOBAL  SYMBOL 

IF  CS,  FILE  ERROR 

NOTE  -  RO  IS  NOW  0 

COPY  DCB  DISPATCH  TABLE  ADDRESS 

IS  PROCESS  DISPATCH  TABLE  DEFINED? 

NO,  THEN  FATAL  ERROR 


#XBLK1,R1       ;  POINT  AT  PROCESS  SYMBOLS 
#$NTLHB+.CXSYM,R2  ;  POINT  AT  CEX  SYMBOLS 

VECVAL         ;  PROCESS  VECTORED  ? 

50$  ;  IF  NO  -  BRANCH 

#<.CXVSM-.CXSYM>,R2  ;  POINT  AT  VECTORED  SYMBOL  VALUES 


10(R1),(R2)t 

60$ 

2(R1) 

111$ 

(R1),R1 

50$ 


MUST 


ERROR  CONDITIONS 


101$:  EMSG$R 
111$:  EMSG$R 
ST8ERR:  MOV 

CALLR 


49 

50 

ETAB1-2(R0),R0 

a(RO)+ 


ALL  SYMBOL  DEFS. 

MATCH 
UNLESS  THEY  ARE  UNDEFINED 
SYMBOL  MISMATCH 
LINK  DOWN 

AND  GO  TEST  NEW  SYMBOL  VALUE 


DISPATCH  TABLE  SYMBOL  UNDEFINED 
PROCESS/CEX  INCOMPATIBLE 
GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 
PRINT  ERROR  MESSAGE 
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1080 
1081 
1082 
1083 
108A 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
19 
lO 
1111 
1112 
1113 
11H 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
M36 


.SBTTL      $ALECL   -   ALLOCATE    ECL   NODE    COUNTERS 


004056 
004062 
004102 
004104 
004110 

004114 
004120 
004124 
004130 
004134 
004150 
004152 
004156 
004160 
004164 
004170 
004206 

004212 
004214 
004220 
004222 
004232 
004236 

004242 
004246 
004250 
004272 
004276 
004302 
004304 
004314 
004316 
004322 
004324 
004330 
004334 
004336 
004340 
004342 


$ALECL   -  ALLOCATE   ECL   NODE   COUNTERS   FROM  POOL.. 
ECL'S   POV   ADDRESS 


INPUTS: 

$PDVA 


005000 
156700 
010067 


000041 G 
OOOOOOG 


012701     000050 


062701 
042701 

001522 

103520 
016705 
016505 

010067 

005001 
052701 
005004 

010467 


016746 
010102 

062702 
012701 
010204 

010421 
012703 
005021 


005316 
003344 
005726 

162701 


000077 
000077 


OOOOOOG 
OOOOOOG 

000046G 
120000 
000042G 
OOOOOOG 


000050 
OOOOOOG 


000023 


000050 


N$ENC    (ECL'S  DDB)  -  APR6  VIRTUAL  ADDRESS  OF  START  OF  NODE  COUNTERS 
N$ENCt2  (ECL'S  DDB)  -  APR6  VIRTUAL  ADDRESS  OF  END  OF  NODE  COUNTERS 
N$ENCt4   (ECL'S  DDB)  -  APR  BIAS  FOR  NODE  COUNTERS 


SAVE  ALL  REGISTERS 

READ  DECNET  HOME  BLOCK 

INIT  REG 

COPY  NUMBER  OF  NODE  COUNTERS 

SAVE  NUMBER  OF  NODE  COUNTERS 

GET  LENGTH  OF  ECL  COUNTERS 
CALCULATE  NUMBER  OF  BYTES 
ROUND  TO  BLOCK  BYTE  BOUNDARY 

CONVERT  TO  BLOCK  COUNT 

BR  IF  NONE  TO  ALLOCATE 

ALLOCATE  COUNTERS  FROM  NON-UMR  SPACE 

BR  If  ERROR 

GET  ECL'S  PDV  ADDRESS 

GET  ECL'S  DDB  ADDRESS 

READ  IN  ECL'S  DDB 

STORE  APR  BIAS  NODE  COUNTERS 

POINT  TO  START  OF  COUNTERS 
SET  CORRECT  APR  BIAS 
POINT  TO  START  OF  COUNTERS 
...  (ECL  NEEDS  APR6  BIAS) 
STORE  START  OF  COUNTERS 
REWRITE  UPDATED  DDB 

GET  NUMBER  OF  NODE  COUNTERS 

POINT  TO  START  OF  COUNTERS 

READ  IN  NEXT  COUNTER  BLOCK 

POINT  TO  NEXT  COUNTER  BLOCK  IN  LIST 

POINT  TO  COUNTER  BLOCK 

COPY  ADDRESS  OF  NEXT  BLOCK 

SET  CORRECT  APR  BIAS  FOR  ECL 

STORE  LINK  WORD 

GET  NUMBER  OF  WORDS  TO  ZERO 

ZERO  THE  BLOCK 

REWRITE  COUNTER  BLOCK 

MORE  TO  ALLOCATE? 

BR  IF  YES 

CLEAN  UP  STACK 

POINT  TO  START  OF  PREVIOUS  BLOCK 


$ALECL::CALL 

$SAVAL 

GETRV 

$DECPT,#D$END          ; 

CLR 

RO 

BISB 

$BFR+D$MNOO,R0 

MOV 

R0,$$NODC 

MOV 

#E$NLEN,R1 

CALL 

$MUL 

ADD 

#77, R1 

BIC 

#77, R1 

ASR$ 

6.R1 

BEQ 

46$ 

CALL 

$ALN18 

BCS 

101$ 

MOV 

$PDVA,R5 

MOV 

Z.DAT(R5),R5 

GETRV 

R5,#N$ELEN 

MOV 

R0,N$ENC+4+$8FR 

CLR 

R1 

BIS 

#1 20000, R1 

CLR 

R4 

BIAS 

R4                  ; 

MOV 

R4,N$ENCt$BFR          ; 

PUTRC 

MOV 

$$NODC,-(SP) 

MOV 

R1,R2 

20$:    GETAD 

R2,#E$NLEN,R0 

ADD 

#E$NLEN,R2 
#$6FR,R1 

MOV 

MOV 

R2,R4 

BIAS 

R4 

MOV 

R4,(R1)<- 

MOV 

#«E$NLEN-2>/2>,R3 

30$:    CLR 

(R1)  + 

SOB 

R3,30$ 

PUTAD 

DEC 

(SP) 

BGT 

20$ 

TST 

(SP)  + 

SUB 

#E$NLEN,R1 

G    8 


[ 


VPRO  CREATED  BY     MACRO     ON  28-AUG-85   AT   20:05 

SYMBOL   CROSS   REFERENCE 


F     9 

PAGE   7 

CREf       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SPLiTRC 

=    ****** 

GX 

12-660 
17-1U3 

13-725 

13-791 

SRADDR 

=    ****** 

GX 

•7-270 

♦7-308 

♦7-311 

♦12-681 

♦13-707 

♦13-720 

♦  U-845 

♦15-877 

♦15-899 

♦16-1053 

♦16-1065 

♦17-1096 

SRBLCK 

r     ****** 

GX 

♦7-308 

♦7-311 

♦11-576 

♦15-951 

♦16-1053 

■17-1123 

SROL 

OOH52 

RG 

#12-618 

SSAVAL 

=      ****** 

GX 

U-812 

16-987 

17-1095 

SSLTA 

r     ****** 

GX 

11-530 

SSLTMA 

::     ****** 

GX 

11-535 

SSQSRV 

000136 

R 

#6-179 

9-392 

9-393 

SSYMBL 

=   ****** 

GX 

10-479 

STISCL 

-   ****** 

GX 

♦9-386 

♦9-397 

ST'IOOC 

::     ****** 

GX 

♦9-385 

♦9-396 

SXFER 

000000 

RG 

#7-245 

$$DEV 

=    ****** 

GX 

10-468 

10-469 

$$HTIM 

-    ****** 

GX 

n-586 

$$LTIM 

=    ****** 

GX 

11-587 

SSNBRA 

=    ****** 

GX 

11-588 

$$NODC 

=    ****** 

GX 

♦17-1099 

17-1121 

$$RPRI 

=    ****** 

GX 

11-589 

SSTBL 

=    ****** 

GX 

♦10-482 

.CXALL 

000062 

#5-76 

.CXCSR 

000004 

#5-76 

.CXLBR 

000060 

#5-76 

.CXLB1 

000030 

#5-76 

.CXLS2 

0000A4 

#5-76 

.CXLEN 

000064 

#5-76 

.CXPCB 

000006 

#5-76 

.CXSYM 

000010 

#5-76 

10-487 

10-491 

.CXUNL 

000024 

#5-76 

.CXVEC 

000026 

#5-76 

8-340 

♦  8-3^ 

.CXVSM 

000016 

#5-76 

10-491 

.MGMGE 

-      ****** 

GX 

7-279 

9-379 

.NTGCD 

000000 

#5-76 

.NTPCB 

000000 

#5-76 

.NTUMR 

000002 

#5-76 

.PL6TH 

-    ****** 

GX 

7-270 

.SBPCS 

000066 

#5-76 

14-837 

♦8-351 
♦13-750 
♦  15-917 
♦17-1111 
♦12-681 


14-847 

♦11-571 

♦13-774 

♦15-928 

♦17-1123 

♦13-750 


15-930 

♦11-577 

♦13-788 

♦15-942 

♦17-1141 

♦13-774 


15-949 

♦11-590 
♦14-817 
♦15-951 


16-1034         17-1119 


♦12-618 
♦14-835 
♦16-989 


♦12-640 
♦14-838 
•16-1010 


♦14-838         ^15-899        ^15-917 
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262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 


.SBTTL  SETUP  DEFAULT  FILE  NAME 

$DFN  -  SETUP  DEFAULT  FILE  NAME 

INPUTS: 

R0=RAD50  FILE  NAME,  FIRST  HALF 

R1=RAD50  FILE  NAME,  SECOND  HALF  ($DFN2  ONLV) 

OUTPUTS: 

RO,R1,R2=DESTROYED 


001160 
001160 
001162 
001162 
001164 
001166 
001172 
001176 
001200 
001202 
001206 
001212 
001214 
001216 
001220 


005001 

010146 
010001 
012700 

012601 
001407 

122740 
001775 
005200 
105010 


001552' 


000040 


iDFN:: 
$DFN2:: 


10$: 
15$: 


20$: 


aR 

MOV 

MOV 

MOV 

CALL 

MOV 

BEQ 

CALL 

CMP8 

BEQ 

INC 

CLRB 

RETURN 


Rl 

R1,-(SP) 
.RO.Rl 
*$DFNAM,RO 
10$ 

(SP)t,Rl 
20$ 
$C5TA 
#•  ,-(R0) 
15$ 
RO 
(RO) 


NO  SECOND  HALF 

SAVE  SECOND  HALF 

COPY  FIRST  HALF 

GET  DEFAULT  FILE  NAME  ADDRESS 

CONVERT  TO  ASCII 

RESTORE  SECOND  HALF 

IF  ZERO,  USE  FIRST  HALF  ONLY 

CONVERT  TO  ASCII 

SKIP  TRAILING  BLANKS 


MAKE  IT  AN  ASCIZ  STRING 


_Qc  1  /; .  1 1: 
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Vf 


813  00^052 
8K  00^03^ 

815  00^036 

816  00^040 

817  004042 

818  0040A4 

819  0040A6 

820  00^050 

821  00^052 

822  004054 

823  004056 
624  0040t)0 

825  004062 

826  004064 

827  004066 

828  004070 

829  004072 

830  004074 

831  004076 
832 

833 

834  004100 

835 

836 

837  004102 

838  004104 

839  004106 

840  004106 

841  004110 

842  004112 

843  004114 

844  004114 

845  004116 

846  004117 

847  004120 

848  004122 

849  004124 

850  004126 

851  004130 
852 

853  004132 
854 

855  004152 

856  004154 

857  004156 

858  004^60 

859  004166 

860  004170 

861  004172 

862  004174 

863  004176 

864  004200 

865  004204 

866  004206 

867  004210 

868  004212 
S69 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 


000000 
000000 

000001 
000000 
000000 

000000 
000 
000 
000000 
000000 
000000 
000000 
000000 

000000 

000000 
000000 
000000 
021265 
075273 
000000 
114 
000000 
000000 
051646 
000000 
000000 
000000 
000000 


SPSIPT: 

:.UORD 

0 

SSNAPT: 

r.WORD 

0 

SDDFNC: 

:.UORD 

0 

SrCBLH: 

: . WORD 

0 

SSDBCT: 

:.WORD 

0 

tSDBLH: 

:.WORD 

0 

.WORD 

0 

SSDBAF  : 

:.WORD 

0 

SRDBCT: 

:.WORD 

0 

SRDBLH: 

:.WORD 

0 

.WORD 

0 

SRDBAF  : 

:.UORD 

0 

SRDQSL: 

.-.WORD 

0 

SRDQCT: 

:.WORD 

0 

SNTLPT: 

:.WORD 

0 

SCXOPT: 

.-.WORD 

0 

SNBIAS: 

:.WORD 

0 

$QBIAS: 

r.WORD 

0 

$OSTRT: 

r.WORD 

0 

.IF  NDF 

R$$MPL 

$PUMR : : 

.WORD 
.ENDC 

0 

$PWRF 1 : 

:.WORD 

0 

SXeiAS: 

: . WORD 

0 

$PAVL:. 

SXAVL:. 

.WORD 

1 

SNMLST 

:.WORD 

0 

SOBJHD 

:.WORD 

0 

STKIOO 

$TCK50 

.-.WORD 

0 

SSQRCM 

:.ByTt" 

0 

.BYTE 

0 

SMAXOV 

.-.WORD 

0 

SLGPDV 

:.WORD 

0 

SLGDDB 

r.WORD 

0 

SFILHD 

r.WORD 

0 

SLGSTT 

r.WORD 

0 

000000  000000  SEVDSCr 
SLGFNBr 

055254  057330 

102 

SLGUIC 

131574        SLGMON 

SLGCON 


SCELFNr 
SNMCLHr 


004212' 


.WORD 
.WORD 
.WORD 
.WORD 


0,0,0,0,0,0,0,0 

0 
0 
0 


.WORD 

.WORD 

.WORD 

.WORD 

.RAD50  /EVENTLOG/ 

.RAD50  /SYS/ 

.WORD  0 

.ASCII  /LB/ 

.WORD  0 

.WORD  0 


.RAD50  /MON. 


0 
0 
0 
0,.-2 


./ 


POINTER  TO  PSI  HOME  BLOCK 

POINTER  FOR  SNA 

POWERFAIL  FLAG 

POINTER  TO  FIRST  FREE  CCB 

COUNTER  OF  CURRENT  SDB'S  IN  POOL 

POINTER  TO  FIRST  FREE  SDB 

COUNTER'oF  #  OF  SDB  ALLOCATION  FAILURES 

COUNTER  OF  CURRENT  RDB'S  IN  POOL 

POINTER  TO  FIRST  FREE  RDB 

SECOND  HALF  OF  ADDRESS  DOUBLEWORD 

COUNTER  OF  #  OF  RDB  ALLOCATION  FAILURES 

SYSTEM  LINE  NUMBER  TO  CHECK  ON  NEXT  BUFFER  RETURN 

NUMBER  OF  BUFFER  WAIT  REQUESTS  AND  FLAG 

POINTER  TO  NTL  HOME  BLOCK 

COMM/EXEC  OPTIONS  INCLUDED 

NON-UMR  MAPPED  POOL  POINTER 

UMR-MAPPED  POOL  POINTER 

ORIGINAL  BIAS  OF  UMR-MAPPED  PORTION  OF  POOL 


STARTING  UMR  BIAS 


[MP01] 
tHPOn 
CMP01] 


POWER  FAIL  FLAG 

BIAS  OF  EXTENDED  SINGLE  WORD  POOL 

POINTER  TO  1ST  FREE  BLOCK  IN  EXT  POOL 

OBJECT  TABLE  LISTHEAD 

NUMBER  OF  CLOCK  TICKS  IN  100  MSEC 

NUMBER  OF  CLOCK  TICKS  IN  50  MSEC 

SQUARE  ROOT  LIMIT  FOR  BUFF  ALLOCATION 

NUMBER  OF  ACTIVE  COMPONENTS 

MAXIMUM  PROTOCOL  OVERHEAD  SIZE 

PDV  INDEX  OF  EVENT  LOGGER 

ADDRESS  OF  EVENT  LOGGER  DATABASE 

EVENT  FILTER  LISTHEAD 

EVENT  LOGGER  STATUS 

EVENT  DESCRIPTOR  BLOCK 

EVENT  LOGGER  FILENAME  BLOCK  -  FILE  ID 


FILENAME 

FILE  TYPE 

FILE  VERSION  NUMBER 

DEVICE  NAME 

AND  UNIT  NUMBER 

UIC  FOR  LOGGING  FILE 

MONITOR  TASK  NAME 

CONSOLE  DEVICE  NAME 

AND  UNIT 

CEX  LOGGING  FUNCTION  CODE 

NETWORK  MANAGEMENT  COMPLETION  LISTHEAD 


_oc  1  i  .  1  t: 
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F  12 


1327 
1328 
1329 
1330 
1331 
1332 
1333 
133^ 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 


005716  005301 

005720  001012 

005722 

005726  103004 

005730  005767  176076 

005734  001001 

005736  000261 

005/40  006101 

005742  000167  OOOOOOG 

005746 

005752  000167  OOOOOOG 


.5BTTL  SSWOVL  -  SWITCH  OVERLAYS 

SSWOVL  -  SWITCH  OVERLAYS 

THIS  ALLOWS  A  OVERLAY  SEGMENT  AT  THE  SAME  LEVEL  TO  BE  CALLED 


INPUTS: 

R1  -  NUMBER  IDENTIFYING  WHICH  ROUTINE  TO  CALL 
=  1  —  CALL  $FPDV 
=  2  —  CALL  $VACP 

OUTPUT: 

CALLS  THE  SPECIFIED  ROUTINE, 
AND  RETURNS  TO  CALLER 


CHECK  IF  R1  WAS  1 

NO  CHECK  IF  R1  WAS  2 

CALL  $FPDV 

BR  IF  FOUND  IT 

IS  PSI  LOADED? 

BR  IF  YES  -  NOT  DLX  ONLY  SYSTEM  (CARRY  CLEAR) 

ELSE  INDICATE  DLX  ONLY  SYSTEM 

CARRY  SIGNIFICANT  —  SAVE  IT 

AND  RETURN 

MUST  HAVE  BEEN  =  2  —  CALL  $VACP 


SSWOVL: 

:DEC 

R1 

BNE 

10$ 

CALL 

SFPDV 

BCC 

5$ 

TST 

IPSIPT 

BNE 

5$ 

SEC 

5$: 

ROL 

R1 

JMP 

$RET1 

10S: 

CALL 

$VACP 

JMP 

$RET2 

ac     ^  i.  .  ^  c 
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VRES      CREATED  BY  MArRQ  ON  17-SEP-85  AT  16:16 
SYMBOL  CROSS  REFlRENCE 


SYMBOL  VALUE 


S.FNB 

S.FTYP 

S.LEN 

S.MPR 

5.NMST 

S.OWNR 

TIOUT 

TOPFLG 

TYSCHA 

TYSEVE 

TYSSTA 

TYSSUM 

UMRFLG 

UMRPTR 

VF.ACP 

VF.ADD 

VF.DLX 

VF.EAD 

VF.ECH 

VF.FIX 

VF.INl 

VF.NTl 

VF.ON 

VF.PEM 

VF.PSI 

VF.SED 

VF.SKA 

VF.SS 

VF.TRA 

VF.VDT 

V1.NSY 

UC.CNT 

UC.EVE 

WC.TRI 

WC.UNT 

W.TSEF 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

7F.MAN 

2.  -MFL 

Zr-.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 


=  000036 

=  000002 
000004  G 
003550  R 

000002  G 

000003  G 
000000  R 
00075-;  RG 

=  OOOAOO 

=  001000 

=  002000 

=  000000 
000776  RG 
000774  RG 

=  001000  G 

=  000400 

=  004000 

=  020000 

=  000020 

^-  000100 

=  000040 

^  000001 

=  000002 

=  002000 

=  040000 

=  100000 

=  010000 

=  000010 

=  000004 

=  000200 

=  000001 

=  000400 

=  004000 

=  002000 

=  001000 

=  000002 

-   ♦*♦*♦♦ 

=  001000 
=  000001 
=  004000 
=  000002 
=  100000 
=  040000 
=  000020 
=  000004 
=  000100 
=  020000 
r  0000,0 
=  000400 
=  OOOO'-O  G 
=  002ivj  " 
=   OlOoOO  & 


REFERENCES 

6-102 

6-102 
#5-78 
#16-658 
#5-78 
#5-78 
#6-96 
#7-179 
#5-80 
#5-80 
#5-80 
#5-80 
#7-188 
#7-187 
#15-604 
#15-603 
#15-606 
#15-608 
#15-599 
#15-601 
#15-600 
#15-595 
#15-596 
#15-605 
#15-609 
#15-610 
#15-607 
#15-598 
#15-597 
#15-602 
#15-621 
#5-80 
#5-80 
#5-80 
#5-80 

6-102 

5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
#5-79 
/5-79 
#5-79 
#5-79 


6-114 
6-102 


•14-418 


6-114 


•14-419 
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CREf        04.00 


6-114 


14-420 


5-79 
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FUNCTION  TABLES 


Page  6 


63 
69 

70 
71 

n 

73  000000 

7A 

75 

76 

77 

78  000000 

79  000000 

80  000002 

81  000004 
32  000006 

83  000010 

84  000012 

85  OOOOU 

86  000016 

87  000020 

88  000022 

89  00002A 

90  000026 

91  000030 

92  000032 

93  000031 
91  000036 

95  OOOMO 

96  000042 

97  00004A 

98  000046 

99  000050 

100  000052 

101  000054 

102  000056 

103  000060 

104  000062 

105  000064 

106  000066 

107  000070 

108  000072 

109  000074 
110 

111 
112 
113 
114 

115  000076 

116  000100 

117  000104 

118  000106 

119  000110 

120  000112 

121  000116 

122  000120 

123  000122 

124  000124 


.SBTTL  FUNCTION  TABLES 


000076' 

000104' 

000116' 

000132' 

000136' 

000146' 

000000 

000156' 

000156' 

000156' 

000230' 

000162' 

000162' 

000224' 

000224' 

000170' 

000170' 

000224' 

000224' 

000224' 

000224' 

000224' 

000224' 

000224' 

000224' 

"00224' 

U00204' 

000000 

000224' 

000216' 

000176' 

000037 


001532' 
000124' 
000176' 
000474' 
000552' 
000670' 
000176' 
000774' 
00126'.' 
001532' 


000000 


000000 


;  LOCAL  DATA 

.PSECT 

DATA.D 

.NLIST 

BEX 

;  LOOKUP  TABLE 

USING  FUNCTION  CODE  AS 

INDEX 

fTAB: 

.WORD 

.SCEX 

1  - 

NODE  ON  (NTINIT) 

.WORD 

.SPRO 

2  - 

SET  PROCESS 

.WORD 

.SLIN 

3  - 

SET  LINE 

.WORD 

.CCEX 

4  - 

NODE  OFF 

.WORD 

.CPRO 

5  - 

CLEAR  PROCESS 

.WORD 

.CLIN 

6  - 

CLEAR  LINE 

.WORD 

0 

7  - 

RELOAD  KMC  MICROCODE  pDWERFAIL 

.  WORD 

.NOP 

10- 

TEST  ROUTINES 

.WORD 

.NOP 

11- 

EXIT  VNP 

.WORD 

.NOP 

12- 

HELP 

.WORD 

.RNTI 

13- 

SET  SYSTEM 

.WORD 

.SNOD 

14- 

SET  NODE 

.WORD 

.CNOD 

15- 

CLEAR  NODE 

.WORD 

.SALT 

16- 

SET  ALIAS 

.WORD 

.CALI 

17- 

CLEAR  ALIAS 

.WORD 

.SLOG 

20- 

SET  LOGGING 

.WORD 

.CLOG 

21- 

CLEAR  LOGGING 

.WORD 

.SOBJ 

22- 

SET  OBJECT 

.WORD 

.COB  J 

23- 

CLEAR  OBJECT 

.WORD 

.DCEX 

24- 

SHOW  SYSTEM 

.WORD 

.DLIN 

25- 

SHOW  LINE 

.WORD 

.DPRO 

26- 

SHOW  PROCESS 

.WORD 

.DNOD 

27" 

SHOW  NODE 

.WORD 

.DALl 

30- 

•^■'OW  ALIAS 

.WORD 

.DLOG 

31- 

Si  W  LOGGING 

.WORD 

.DOB  J 

32- 

SHOW  OBJECT 

.WORD 

.SCIR 

33- 

SET  CIRCUIT 

.WORD 

0 

34- 

CLEAR  CIRCUIT 

.WORD 

.DCIfi 

35- 

SHOW  CIRCUIT 

.WORD 

.SMOD 

36- 

SET  MODULE 

.WORD 

.DMOD 

37- 

SHOW  MODULE 

FMAX=.-F TAB/2 

■  SUBROUTINE  TABLES 

'.SCEX:   .WORD 

CLRPP 

•  CLEAR  PROCESS  PARAMETERS 

.WORD 

SCEX,0 

.SPRO:   .WORD 

CEXLD 

•  MAKE  SURE  COMM  EXEC  IS  LOADED 

.WORD 

PDVA 

■  FIND  PDV  ADDRESS 

.WORD 

CHKPP 

•  CHECK  PROCESS  PARAMETERS 

.WORD 

SPRO,0 

.SLIN:   .WORD 

CEXLD 

;  MAKE  SURE  COMM  EXEC  IS  LOADED 

.WORD 

SLTA 

;  FIND  SLT  ADDRESS 

.WORD 

CHKLP 

;  CHECK  LINE  PARAMETERS 

.WORD 

CLRPP 

;  CLEAR  PROCESS  PARAMETERS 

G  H 

1  n .  C7 


_J 
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525 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

53',  000670 

01 2700 

000356' 

535  00067^ 

536  000700 

032712 

OOOOOOG 

537  000704 

001403 

538  000706 

052767 

OOOOOOG  OOOOOOG 

539  0007K 

016700 

OOOOOOG 

540 

541  000720 

005760 

OOOOOOG 

542  000724 

001407 

543  000726 

032712 

OOOOOOG 

544  000732 

001403 

545  000734 

005760 

OOOOOOG 

546  000740 

001401 

547  000742 

005004 

548  000744 

SPRO 


.SBTTL  SPRO  -  CHECK  SE.  PROCESS  PARMS 
CHECK  "SET  PROCESS"  REQUEST  BLOCK 


INPUTS: 

$PDVA=PDV  ADDRESS 

OUTPUTS: 

R4  CLEARED  If  NO  WORK  TC  DO 


SPRO: 


5$: 


10$: 
20$: 


MOV 

CALL 

BIT 

BEQ 

BIS 

MOV 

TST 
BEQ 
BIT 
BEQ 
TST 
BEQ 
CLR 
RETURN 


#P3JTS,R0 

$aiTS 

#FL.LLC,(R2) 

5$ 

#MS.LLC.$MISS 

$PDVA,RO 

Z.PCeCRO) 

20$ 

#FL.LLC,(R2) 

10$ 

Z.DAT(RO) 

20$ 

R4 


DO  BIT  TWIDDLING 

IS  THIs'aN  LLC  ? 

NO 

INDICATE  LLC  INFO  MISSING 

GET  PDV  ADDRESS 

IS  PROCESS  CORE-RESIDENT?  (CLEARS  C-BIT) 

IF  EQ,  NO 

IS  THIS  AN  LLC? 

IF  EQ,  NO 

IS  LINE  TABLE  PRESENT?  (CLEARS  C-BIT) 

IF  EQ,  NO 

NO  WORK  TO  DO  I 


G  15 

1  A  .  C7 


032767 
001002 
005004 
000A33 

012700 

103A25 

012700 

103020 
016700 


00001 2G 
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936 
937 
938 
939 
940 
9A1 
942 
943 
944 
945 
946 

947  002536 

948  002542 

949  002550 

950  002552 

951  002554 
952 

953  002556 

954  002562 

955  002566 

956  002570 

957  002574 

958  002600 
959 

960  002602 

961 

962 

963 

964 

965 

966 

967 

968 

969  002606 

970 

971 

972  002624 

973  002632 
974 

975  002634 

976  002642 

977  002644 

978  002644 
979 

980  002646 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 
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.SBTTL  CCEX  -  CHECK  CLEAR  SYS  PARMS 

CCEX  -  CHECK  "CLEAR  CEX"  REQUEST  BLOCK 

INPUTS: 

R4  =  FUNCTION  CODE 

OUTPUTS: 

NONE 


OOOOOOG  OOOOOOG 

002646' 
114224 


CCEX: 


10$: 


15$: 


032767  010000 
001403 


000241 


055251  054374 


16$: 
000006G  18$: 


20$: 
30$: 


NTINIT: 


CALL 

BIT 

BNE 

CLR 

BR 

MOV 

CALL 

BCS 

MOV 

CALL 

BCC 

MOV 

.If  Df 
BIT 

be: 

GETAD 
BR 

.IFTF 
GETRV 
.ENDC 

BIT 

5EQ 

EMSG$R 
CLC 

RETURN 

.RAD50 


$SAVAL 

#FE.CEX,$FHASK 

10$ 

R4 

30$ 

♦NTINIT, RO 

TSKSCH 

20$ 

#*RXPT,RO 

$FPDV 

20$ 

T.RCVL+$BFR,R0 


INPUTS: 
RO 


OUTPUTS: 

$RADDR 

$BfR 

C-BIT 


SAVE  REG'S 

IS  THE  COMM  EXEC  LOADED  ? 
IF  NE,  VES  ..  CKAV 
ELSE,  NO  WORK  TO  DO  I 
AND  RETURN 

POINT  AT  RAD50  NAME 

GET  TC8  ADDRESS 

NTINIT  NOT  EVEN  INSTALLED 

IS  THIS  DLX  ONLY  SYSTEM  ? 

LOOK  FOR  PDV 

NOT  DLX  ONLY,  FOUND  XPT  PDV  ~ 

GET  PACKET  ADDRESS 


CONTINUE 


R$$MPL 

#DF.POL,$DFLAG  ;  SECONDARY  POOL  SUPPORTED 

16$  ;  If  NO  -  BRANCH 

.»140000,#DSIZE,RO  ;  READ  PACKET  FROM  SECONDARY  POOL 

18$  ;   CONTINUE 


RO,#DSIZE 


;  READ  SEND  DATA  PACKET 


;[MP01] 
;CMP01] 
; [MP01  ] 
; [MP01 ] 
;[MP01] 

.-[MPOI] 

; [MP01 ] 


#LS.CX0,LR.STSt6+$BFR  ;  IS  EXEC  STATE  ON 
20$  ;  IS  NO  -  BRANCH 

Z8  ;  ELSE,  NODE  ON  ERROR 

;  ALL  CLEAR 


/NTINIT/       ;  RAD50  NETWORK  INITIALIZATION  TASK  NAME 
TSKSCH  -  SEARCH  TCB'S  FOR  SPECIFIED  TASK 
POINTER  TO  RAD50  TASK  NAME 


ADDRESS  OF  TCB 
-  IMAGE  OF  TCB 
SUCCESS/FAILURE 
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VNTl      CREATED  BY  MACrtO  ON  29-JUN-85  AT  02:50 
SYMBOL  CROSS  REFERENCE 
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CREF   OA.OO 


SYMBOL  VALUE 


ERR17 

ERR2 

ERR20 

ERR21 

ERR22 

ERR23 

ERR2A 

ERR25 

ERR26 

ERR27 

ERR3 

ERR30 

ERR31 

ERR3: 

ERR:.5 

ERR3A 

ERR35 

ERR36 

ERR37 

ERRA 

ERR40 

ERRA1 

ERR42 

ERR43 

ERRAA 

ERR45 

ERR5 

ERR6 

ERR7 

EVENT 

EXT 

EXTN 

E$NBR 

ESNBS 

ESNCR 

ESNCS 

E$NIC 

ESNLEN 

ESNLLA 

ESNLNK 

E$NML 

ESNMR 

E$NMS 

ESNNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

E.CON 

E.FIL 


001306  R 
000370  R 
001336  R 
001372  R 
00U50  R 
001510  R 
001566 
001622 
001654 
001676 
000452 
001732 
001744 
002000 
002042 
002102 
002V  : 
00221-0 
002232 
000522 
002264 
002320 
002364 
002420 
002454  , 
002512  R 
000566  R 
000622  R 
000674  R 
000046  R 
014202  RG 
:  000003 
000014 
000020 
000034 
000036 
000044 
000050 
000012 
000000 
000040 
000024 
000030 
000002 
000042 
000005 
000010 
000046 
000004 
000006 
012676  R 
012706  R 


REFERENCES 

#10-643 

#10-630 

#10-644 

#10-645 

#10-646 

#10-647 

#10-648 

#10-649 

#10-650 

#10-651 

#10-631 

#10-652 

#10-653 

#10-654 

#10-655 

#10-656 

#10-657 

#10-658 

#10-659 

#10-632 

#10-660 

#10-661 

#10-662 

#10-663 

#10-664 

#10-665 

#10-633 

#10-634 

#10-635 

#6-125 

#90-3842 

#7-195 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#79-3487 

#79-3489 


10-643 
10-630 
10-644 
10-645 
10-646 
10-647 
10-648 
10-649 
10-650 
10-651 
10-631 
10-652 
10-653 
10-654 
10-655 
10-656 
10-657 
10-658 
10-659 
10-632 
10-660 
10-661 
10-662 
10-663 
10-664 
10-665 
10-633 
10-634 
10-635 
77-3444 

90-3842 


24-1442 


10-643 
10-630 
10-644 
10-645 
10-646 
10-647 
10-648 
10-649 
10-650 
10-651 
10-631 
10-652 
10-653 
10-654 
10-655 
10-656 
10-657 
10-658 
10-659 
10-632 
10-660 
10-661 
10-662 
10-663 
10-664 
10-665 
10-633 
10-634 
10-635 
78-3465 


79-3499 


79-3500 


79-3501 


79-3502 


VNTI 


CREATED  BY      MACRO     ON  29-JUN-85   AT   02:50 
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L 


VMTI  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:50 

SYMBOL    CROSS  REFERENCE 


G    2 
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CREF        OA.OO 


vp: 

MA( 


SYMBOL      VALUE 


UISARO 

JISAR1 

UISZ 

UMRBF 

UMRFLG 

UMRPTR 

UNT 

USRUIC 

USRUn 

VF.DLX 

VF.NT! 

VF.SS 

UC.CNT 

WC.EVE 

WC.TRl 

WC.UNT 

XPCIR 

XPTLLN 

X$$MCB 

X.FLG 

X.FLGl 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

z.pce 

Z.SCH 
$ALL15 


=  1776^0 

=  177642 

=  OOOOU     G 
000006  R 

=    *♦♦***      gx 

=   *»♦»*»     GX 
000061   R 
017U2  RG 
017134  RG 

=  **«♦*«  GX 

=  »««»♦«  GX 

~   ******  GX 

=  000400 

=  004000 

=  002000 

=  001000 
004600  R 
000066  R 


010244 
010336 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 


GX 


REFERENCES 

*104-4653 

#5-75 

#5-75 

#7-175 

#6-117 

8-409 

8-375 
#6-128 
#104-4647 
#104-4646 

8-523 

110-4878 

17-1083 
#5-78 
#5-78 
#5-78 
#5-78 
#25-1499 
#6-134 

5-72 
#66-2988 
#66-3006 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 

11-693 


104-4655   104-4657  *104-4665  ♦104-4669  *104-4674 


103-4548 
11-696 
11-688 
*11-685 


8-527 
110-4881 


24-1385 
5-72 


»24-1457 
«11-695 


16-1015 


24-1415       *25-1499 


28-1688 


106-4751 


5-72 
♦28-1688 


56-2642 
106-4734 

26-1535 


56-2647    106-4736 


♦56-264^    106-4736   106-4751 


59-2695 


96-4183 


107-4788   108-4826   109-4857 


UNTI 


fRFATFD  RY   MACRO  ON  29-JUN-85  AT  02:50 
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VPII 

ext: 


54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
M 
65 
66 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 
73 

7^; 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 


89 

90 


.SBTTL  MACRO  DEFINITIONS 
LIBRARY  MACROS 

.MCALL  HWDDF$,PC8DF$,GETRV,PUTRC,SUTCHI,ASL$,ASR$,GETAD,PUTAD,DHBDF$ 
.MCALL  CTRDF$,CACDF$,ECDDB$,ERMSG$,ER8LK$,ERRPT$ 

.ENABL  LC 

*** 
LIBRARY  SYMBOLS 
*** 

HWDDFS 
PCSDFS 
DHBDFS 
CTRDFS 
CACDFS 
ECDDSS 


LOLAL  MACROS 


FEATURES  MASK  BIT  DEFINITIONS 
PARTITION  CONTROL  BLOCK  OFFSETS 
DECNET  HOME  BLOCK  OFFSETS 
DEFINE  COUNTER  BLOCK  OFFSETS 
DEFINE  CACHE  OFFSETS 
DEFINE  ECL  DATA  BASE  OFFSETS 


SHIFT    LEFT 


.MACRO 

ASL$    COUNT, REG 

.IF  DF 

RSIEIS 

ASH 

#'COUNT',REG 

.IFF 

.REPT 

COUNT 

ASL 

REG 

.ENDR 

.ENDC 

.ENDM 

ASL$ 

H     3 
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VPIO  -  VNP  PROCESS  1/0 

ROUTINES  f 

EXTXPT  - 

EXTEMD 

XPT'S  DDB 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

001424 

596 

001424 

010146 

597 

001426 

022767 

114224 

598 

001434 

001037 

599 

001436 

600 

001456 

005767 

000060G 

601 

001462 

001024 

602 

603 

001464 

005000 

604 

001466 

156700 

000040G 

605 

001472 

012701 

000012 

606 

001476 

607 

608 

001502 

062701 

000077 

609 

001506 

042701 

000077 

610 

001512 

611 

001526 

060102 

612 

001530 

060167 

000260' 

613 

001534 

012601 

614 

001536 

G  A 
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.SBTTL  EXTXPT  -  EXTEND  XPT'S  DD8 

EXTXPT  -  EXTEND  XPT'S  DATA  BASE  FOR  ROL  8  ROA 

INPUTS: 

R2  =  CURRENT  EXTEND  SIZE 
SLDSIZ  =  PROCESS  LOAD  SIZE 
SNAME  =  RAD50  PROCESS  NAME 

OUTPUTS; 

r5  =  NEW  EXTEND  SIZE 
ILDSIZE  =  NEW  LOAD  SIZE 


EXTXPT; 


OOOOOOG 


20$: 


MOV 

CMP 

BNE 

GETRV 

TST 

BNE 

CLR 
BISB 
MOV 
CALL 

ADD 

BIC 

ASR$ 

ADD 

ADD 

MOV 

RETURN 


R1,-(SP) 

#*RXPT,$NAME 

20$ 

$DECPT,#D$END 

$8FR+D$NN 

20$ 

RO 

$6FR+D$MLL,R0 
#C$LE'.',R1 
$MUL 

#77, R1 

#77, R1 

6,R1 

R1,R2 

R1,$LDSIZ 

(SP)+,R1 


SAVE  BLOCK  SIZE 

IS  THIS  PROCESS  XPT  ? 

IF  NE,  NO 

READ  DECNET  HOME  BLOCK 

ENDNODE  ? 

IF  NOT  -  BRANCH 

INIT  REG 

COPY  MAX  LOGICAL  LINKS 
GET  CACHE  ENTRY  SIZE 
CALCULATE  TOTAL  SIZE 

ROUND  UP  TO  NEXT  BLOCK 

ELSE,  CONVERT  BYTES  TO  BLOCKS 
INCREASE  EXTEND  SIZE 
AND  LOAD  SIZE 
RESTORE  BLOCK  SIZE 


/Dm    _    \>MD    DDnrccc     r  /n    DniiTTMPC    MATDn    ufm    O^h    UpHnpt;Ha\ 
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VPIO      CREATED  BY  MACRO  ON  28-AUG-85  AT  20:0^ 
SYMBOL  CROSS  REFERtMCE 


SYMBOL   VALUE 


TSLLDC 

0000A5 

TSLLDL 

000012 

TSLLDO 

000012 

TSLLDS 

000012 

TSLLEN 

0000A6 

TSLOPR 

000002 

TSLTCL 

000024 

TSLTIM 

000026 

TSLTPR 

0000  U 

TSLTPS 

000020 

T$NAPL 

OOOOOA 

T$NFE 

000000 

TSNLEN 

000010 

TSNNUL 

000002 

TSNOPL 

000006 

TSNRNI 

0000A2 

TSNRPL 

000005 

TSNRUL 

000007 

TSNVR 

000001 

T$RPR! 

000040 

TSSVC 

000034 

T$T5 

000030 

T$T6 

000032 

UNAMC 

000154  R 

UNAOP 

000050  R 

UNARE 

000136  R 

VF.SS 

=  »*»**»  GX 

Z.NAM 

=  ♦♦•***  GX 

$ALL15 

=  *»«*»«  GX 

$BFR 

=  »»*««*  GX 

-  **+♦** 


z:  ***♦*♦ 
r  ****** 


SCLDEQ 
SCLIOS 
SCLOPE 
SDDMPV 
$DEA16 
SDECPT 
SDFUIC 
SERMSG 
SFLAGS 


$FMAS<   =  *•* 
SGETRV   =  ♦♦• 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 


SICBLN 
SiOSB 
SLDSIZ 
SLLEN 


•♦*♦*♦  GX 

»*»**«  GX 

000260  RG 

******  QX 


REFERENCES 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#5-70 

#7-156 

#7-134 

#7-137 

10-325 

10-341 

15-773 
»9-294 

14-647 

14-714 
♦15-785 

15-814 
♦15-858 

9-278 

9-269 

9-268 

10-340 

15-870 

13-599 

11-417 

17-962 

10-343 

15-847 

9-290 

9-292 

15-813 

15-839 

10-397 
#7-182 
♦11-461 


11-427 
10-394 
10-399 
14-676 
17-937 

♦10-328 
14-651 
14-716 
♦15-786 
♦15-820 
16-902 
10-363 
10-397 
10-352 


12-505 

10-381 
10-333 
15-819 

12-567 

9-297 

♦12-551 


G     5 
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CREF       04.00 


15-834 


10-329 

14-653 

14-718 

♦15-789 

♦15-821 

10-396 
12-567 


14-707 
10-383 
15-828 

16-911 
♦9-299 


r-334 
4-662 

14-720 
♦15-790 
♦15-825 


16-911 


10-336 
14-672 
14-723 
♦15-792 
15-829 


♦10-385 

14-673 

♦14-723 

♦15-793 

15-832 


13-600 
14-699 
14-725 
♦15-801 
15-833 


13-604 
14-704 

♦14-727 
15-810 

♦15-852 


♦14-646 
14-711 
15-776 
15-811 

♦15-853 


12-520         ^14-632 


13-599 
15-831 


14-664 


14-650 
15-851 


14-668 


14-719 
15-857 


♦14-693 


14-722 
16-901 


14-697 


14-726 


15-823 


15-809 


♦11-458         ^12-495         ^13-612 


roc  A  TCri    n  V 


MAron       riM    Ofl-Aiir.-fl^    AT    ^H  ■  nz. 


H     5 


L_ 


**F!LE**1D«»VPR0 


LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

ssssss 

LL 

ssssss 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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VPRI 
SAL 


vv 

vv 

pppppppp 

RRRRRRRR 

000000 

vv 

\/V 

PPPPPPFP 

RRRRRRRR 

000000 

vv 

vv 

pp    PP 

RR      RR 

00      DO 

vv 

vv 

pp    PP 

RR      RR 

00      00 

\/\/ 

vv 

pp    PP 

RR      RR 

00      00 

v\/ 

vv 

PP    pp 

RR      RR 

00      00 

vv 

vv 

PPPPPPPP 

RRRRRRRR 

00     00 

vv 

vv 

pppppppp 

RRRRRRRR 

00      00 

vv 

vv 

PP 

RR  RR 

00      00 

vv 

vv 

PP 

RR  RR 

00     00 

vv 

vv 

PP 

RR    RR 

00     00 

vv 

vv 

PP 

RR    RR 

00      00 

vv 

PP 

RR     RR 

000000 

vv 

PP 

RR     RR 

000000 
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VF 
if 


509 
510 
511 
512 
513 
5U 
515 
516 
517 
518 
519 
520 
521 
522 

523  001062 

524  001066 

525  001072 

526  001074 
527 

528  001100 

529  001102 

530  001104 

531  001110 

532  001116 
533 

534  001120 

535  001124 

536  001130 

537  001132 

538  001134 

539  001136 

540  001140 

541  001142 
5^2  001144 

543  001150 

544  001152 

545  001154 

546  001156 

547  001160 

548  001162 
549 

550  001164 

551  001166 

552  001170 

553  001172 

554  001174 

555  001200 

556  001202 

557  001204 

558  001212 
559 

560  001214 

561  001220 

562  001224 

563  00K26 

564  001250 

565  001232 


.SBTTL  SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  SLOCK 


SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 


INPUTS: 


$$HTIM  -  HELLO  TIMER  VALUE 

$$LTIH  -  LISTEN  TIMER  VALUE 

$$NBRA  -  NUMBER  OF  NI  ROUTER  ADJACENCIES 

$$RPRI  -  ROUTER  PRIORITV 


OUTPUTS: 

CIRCUIT  COUNTER  BLOCK  SET  UP 


012700 

103564 
010067 

005000 
005001 
016704 
032764 
001402 

116401 
016703 
005046 
022304 
001402 
005216 
000774 
006316 
066716 
013604 
100004 
006304 
010405 
060004 
011404 

010402 
005003 
000302 
150203 
016702 
060302 
011202 
022762 
001112 

016702 
062702 
005046 
110416 
006316 
062602 


114224 
000014' 


OOOOOOG 
000020  000000 


IaLTLC;:MOV 
CALL 
BCS 
HOV 

CLR 
CLR 
MOV 
BIT 
BEQ 


000014 
OOOOOOG 


OOOOOOG 


5$: 
10$: 

20$: 

40$: 
50$: 


OOOOOOG 

114224  OOOOOOG 


000014' 
OOOOOOG 


MOVB 

MOV 

CLR 

CMP 

BEQ 

INC 

BR 

ASL 

ADD 

MOV 

BPL 

ASL 

MOV 

ADD 

MOV 

MOV 

CLR 

SWAB 

BISB 

MOV 

ADD 

MOV 

CMP 

BNE 

MOV 

ADD 

CLR 

MOVB 

ASL 

ADD 


#»RXPT,RO 
FNDPDV 
101$ 
RO.XPTPDV 

RO 

R1 

$SLTA,R4 

#LF.MTP,L. 

5$ 


L.NSTA(R4),R1 

$SLTMA,R3 

-(SP) 

(R3)+,R4 

201 

(SP) 

10$ 

(SP) 

$LLCTA,(SP) 

a(SP)+,R4 

50$ 

R4 

R4,fi5 

R0,R4 

(R4),R4 

R4,R2 

R3 

R2 

R2,R3 

$PDVTA,R2 

R3,R2 

(R2),R2 

#»RXPT,Z.NAM(R2) 

90$ 

XPTPDV,R2 

*Z.MAP,R2 

-(SP) 

R4,(SP) 

(SP) 

(SP)+,R2 


GET  XPT'S  PROCESS  NAME 
LOOK  FOR  XPT'S  PDV 
BR  IF  NOT  FOUND 
GET  PDV  ADDRESS 

ASSUME  POINT-TO-POINT  LINE 


,  GET  SLT  ADDRESS 
FLG(R4)  ;  MULTIPOINT  ? 
;  IF  NOT  -  BRANCH 


GET  NUMBER  OF  STATIONS 

POINT  TO  SLT  VECTOR  TABLE 

INITIALIZE  SYSTEM  LINE  NUMBER 

IS  THIS  THE  CORRECT  SLT? 

BR  IF  YES 

ELSE  UPDATE  SYSTEM  LINE  NUMBER 

AND  TRY  AGAIN 

MAKE  IT  A  WORD  INDEX 

INDEX  INTO  REVERSE  MAPPING  TABLE 

GET  CHANNEL  NUMBER  AND  PDV 

BR  IF  NOT  MULTIPOINT 

GET  STATION  TABLE  ADDRESS 

SAVE  STATION  TABLE  ADDRESS 

POINT  TO  CORRECT  ENTRY  IN  STATION  TABLE 

GET  CHANNEL  NUMBER  AND  PDV 

COPY  CHANNEL  NUMBER  /  OWNING  LLC 

INIT  REG 

SWAP  BYTE 

COPY  OWNING  LLC  PDV  INDEX 

COPY  PDV  TABLE  ADDRESS 

POINT  TO  OWNING  PDV 

GET  OWING  PDV  ADDRESS 

XPT  ? 

IF  NO  -  EXIT 

GET  XPT'S  PDV  ADDRESS 

POINT  TO  FORWARD  MAPPING  TABLE 

GET  CHANNEL  NUMBER 

MAKE  IT  A  WORD  INDEX 
POINT  TO  SLN,  STA  PAIR 


iiAC  n7u 


H  7 
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r 
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tALECL   -   ALLOCATE    ECL   NODE    COUNTERS 
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1137  00A5A6 

1138  OOA350 

1139  C0'.354 
lUO  004360 
1U1   00'.370 

00AA06 
004412 


1142 
1143 
1144 
1145 
1146 
1147 


005011 

162702  000050 


010267  000044G 


004416 
004420 


CLR 

(R' 

) 

PUTAD 

SUB 

#E$NLEN,R2 

BIAS 

R2 

GETRV 

HS 

#N$ELEN 

MOV 

R2 

N$ENC+2 

$HI-H 

PUTRC 

40$: 

RETURN 

101$: 

EMSGSR 

70 

INDICATE  END  OF  LIST 

REWRITE  COUNTER  BLOCK 

POINT  TO  BEGINNING  OF  LAST  BLOCK 

SET  CORRECT  APR  BIAS  FOR  ECL 

READ  IN  ECL'S  DDB 

SET  END  OF  LIST  POINTER 

WRITE  UPDATED  DDB 


ELSE  ALLOCATION  FAILURE 


1 
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CREf   04.00 


MACRO  mm 

ADJDFS 

ASLt 

ASR$ 

BIAS 

CACDFS 

CALL 


CALLR 

CEACCI 

CRASH 

CTRDFS 

DHBDFS 

ECDDBS 

EMSGSR 

ERBLKS 
ERMSGS 
ERRPTS 
GETAD 

GETRV 

NTLDFS 
PUTAD 

PUTRC 

RAND 


RESRG 
RETURN 

SAVRG 

SLTDFS 

SOB 

SWTCH! 
SWTChO 
VEfDFS 
VNPBPT 


REFERENCES 

#5-59 
#5-58 
#5-59 
#5-59 
#5-59 

7-252 

8-351 

12-618 

13-774 

H-838 

15-933 

16-1034 

17-1132 

7-323 
#5-60 

7-320 
#5-58 
#5-59 
#5-59 
#5-58 

17-1147 
#7-247 
#7-247 
#7-247 
#5-58 
#5-58 

14-845 
#5-60 
#5-58 

15-958 
#5-58 

17-1143 
#7-270 
#11-577 
#12-681 
#13-774 
#14-837 
#15-877 
#15-942 
#16-1010 
#17-1111 
#17-1141 
#5-59 

7-315 

17-1145 
#5-59 
#5-58 

11-583 
#5-60 
#5-60 
#5-60 
#7-246 


5-69 

7-289 

12-633 

12-647 

5-74 

7-253 

10-463 

12-635 

13-784 

14-840 

15-939 

16-1053 

17-1138 

10-507 

8-350 

5-68 
5-73 
5-70 
7-321 


7-308 

7-270 

15-877 

5-76 

7-311 

16-1053 

12-660 

7-270 

11-577 

12-681 

13-774 

14-837 

15-877 

15-942 

16-1010 

17-1111 

17-1141 

8-352 

8-354 

18-1180 

8-337 

5-72 

12-679 


5-75 
7-247 


7-290 

15-936 

15-947 

7-258 

10-466 

12-640 

13-788 

14-842 

15-942 

16-1065 

17-1141 


10-504 


11-577 
11-571 
15-928 

8-351 

17-1132 

13-725 

#7-308 

#11-590 

#13-707 

#13-788 

#14-838 

#15-899 

#15-949 

#16-1034 

#17-1119 

#17-1143 

18-1179 

9-401 

18-1162 
13-748 


16-1003 
16-1018 

7-259 

10-472 

12-660 

13-791 

14-845 

15-949 

17-1095 

17-1143 


10-505 


14-838 
12-618 
15-942 

11-590 

17-1138 

13-791 

7-308 

n-590 

13-707 

13-788 

14-838 

15-899 

15-949 

16-1034 

17-1119 

17-1143 

10-499 


15-897 


17-1105 
17-1117 

7-270 

10-477 

12-681 

14-812 

14-847 

15-951 

17-1096 


11-598 


15-951 
12-640 
16-989 

12-681 

14-837 

#7-311 

#12-618 

#13-720 

#13-791 

#14-840 

#15-917 

#15-951 

#16-1053 

#17-1123 


11-596 


15-915 


17-1127 

7-308 

10-479 

13-707 

14-817 

15-877 

15-958 

17-1102 


12-689 


17-1123 

13-707 

16-1010 

13-750 

14-847 

7-311 

12-618 

13-720 

13-791 

14-840 

15-917 

15-951 

16-1053 

17-1123 


12-686 


15-957 


17-1140 

7-311 

11-524 

13-715 

14-325 

15-899 

16-987 

17-1107 


13-795 


13-720 
16-1065 

13-774 

15-930 

#8-351 

#12-640 

#13-725 

#14-817 

#14-845 

#15-928 

#15-958 

#16-1065 

#17-1132 

13-793 


15-961 


7-313 

11-571 

13-720 

14-833 

15-917 

16-989 

17-1111 


14-851 


13-788 
17-1096 

14-840 

15-949 

8-351 

12-640 

13-725 

14-817 

14-845 

15-928 

15-958 

16-1065 

17-1132 


14-849 


16-1051 


8-339 

11-577 

13-725 

U-835 

15-928 

16-1005 

17-1119 


15-966 


14-817 
17-1111 

15-899 

16-1034 

#11-571 

#12-660 

#13-750 

#14-835 

#14-847 

#15-930 

#16-989 

#17-1096 

#17-1138 


15-964 


17-1131 


8-350 

11-590 

13-750 

14-837 

15-930 

16-1010 

17-1123 


16-1077 


14-835 
17-1141 

15-917 

17-1119 

11-571 

12-660 

13-750 

14-835 

14-847 

15-930 

16-989 

17-1096 

17-1138 


16-1074 
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289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 

309  001222 

310  001222 

311  001224 

312  001226 

313  001226 
31A  001232 

315  001234 

316  001240 

317  001242 

318  001244 

319  001250 

320  001252 

321  001254 

322  001256 
323 

324 


.SBTTL  $REP.C,$REP.P  -  REPLACE  FILE  NAME 


SREP.C  -  REPLACE 
SREP.P  -  REPLACE 


WITH  CURRENT  LEVEL  FILE  NAME 
WITH  PREVIOUS  LEVEL  FILE  NAME 


THESE  ROUTINES  ARE  STANDARD  ERROR  MESSAGE  REPLACERS.  SREP.C  SHOULD  BE  USED 
WHEN  THE  FILE  IN  QUESTION  IS  STILL  OPEN,  AND  SREP.P  SHOULD  BE  USED  WHEN 
THE  FILE  HAS  ALREADY  BEEN  CLOSED. 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  STRING  ADDRESS 

OUTPUTS: 

R0=DESTROyED 
R3,R4=UPDATED 


.ENABL  LS8 


005000 
000402 

012^00 
112314 
122724 
001374 
005304 

112024 
001376 
005304 


000001 
000052 


SREP.C: 


SREP.P: 


10$: 


20$: 


CLR 
BR 

'mov 

MOVB 

CMP8 

BNE 

DEC 

CALL 

MOVB 

BNE 

DEC 


RETURN 
.DSA8L  LS8 


RO 
10$ 

#1,R0 

(R3)+,(R4 

#'*,(R4)+ 

10$ 

R4 

SLFNP 

(R0)t,(R4)t 

20$ 

R4 


USE  CURRENT  GCL  LEVEL 


I'^P  PREVIOUS  GCL  LEVEL 
L.    FOR  THE  ASTERISK 


SKIP  THE  ASTERISK 

SETUP  LOCAL  FILE  NAME  POINTER 

COPv  ASCIZ  FILE  NAME 

IN'   HE  ERROR  MESSAGE 

SK    HE  ZERO  BYTE 
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CEX  DATA 
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G  11 


870 

.IF  DF 

R$$MPL 

CHPOn 

871 

SNETPF: 

:.UORD 

0 

;  POWERFAIL  ENTRV  POINT 

[MP01] 

872 

SNTLAL: 

:.WORD 

0 

;  CEX  POOL  LISTHEAD 

CMPOl] 

873 
87A 

.IF  OF 

M$$PRO 

CMPOl] 

875 

TIMERS: 

.WORD 

-1 

;  SHOW  TIMER  IS  NOT  ACTIVE 

CMPOl ] 

876 

.WORD 

0,0,0,0,0 

;  PROCESSOR  #1  ONE  SEC. 

CMPOl] 

877 

.WORD 

0 

;  TIMER  QUEUE  BLOCK 

CMPOl] 

878 

.WORD 

0 

CMPOl] 

879 

.WORD 

0 

CMPOl] 

880 

$$$STM= 

.-TIMERS 

CMPOl] 

881 
882 

.WORD 

0,0,0,0,0 

;  PROCESSOR  #1  100  SMEC. 

CMPOl] 

883 

.WORD 

0 

;  TIMER  QUEUE  BLOCK 

CMPOl] 

88A 

.WORD 

0 

CMPOl] 

885 

.WORD 

0 

CMPOl] 

886 

t$$LEN= 

.-TIMERS 

;  TIMER  BLOCK  LENGTH 

CMPOl] 

887 
888 

.REPT 

M$$PR0-1 

;  SETUP  TIMER  BLOCKS  FOR  OTHER 

CMPOl] 

889 

;  PROCESSORS 

CMPOl] 

890 

.WORD 

-1 

;  TIMER  NOT  ACTIVE 

CMPOl] 

891 

.WORD 

0,0,0,0,0 

;  ONE  SEC.  BLOCK 

CMPOl] 

892 

.WORD 

0,0,0 

;  TIMER  QUEUE 

CMPOl] 

893 
894 

.WORD 

0,0,0,0,0 

;  ONE  MSEC.  BLOCK 

CMPOl] 

895 

.WORD 

0,0,0 

;  TIMER  QUEUE 

CMPOl] 

896 

.ENDR 

CMPOl] 

897 
898 

$$$OFF= 

2 

CMPOl] 

899 

$1SCTB: 

:.REPT 

M$$PR0 

CMPOl] 

900 

.WORD 

TIMERSt$$$OFF 

;  POINTER  TO  PROCESSOR  DEPENDANT 

CMPOl] 

901 

;  TIMER  CELL 

CMPOl] 

902 

$$$Off= 

$$$OFFt$$$LEN 

CMPOl] 

903 

.ENDR 

CMPOl] 

904 

$$$OFF= 

$$$STM 

CMPOl] 

905 

$STMT8. 

:.REPT 

M$$PR0 

CMPOl] 

906 

.WORD 

TIMERS+$$$OFF 

;  POINTER  TO  PROCESSOR  DEPENDANT 

CMPOl] 

'507 

;  TIMER  CELL 

CMPOl] 

908 

$$$OFF= 

$$$OFF+$$$LEN 

CMPOl] 

909 

.ENDR 

CMPOl] 

910 

SCRESL. 

:LCKDF$ 

SPIN 

;  SERIALIZE  ACCESS  TO  CEX 

RESOURCES  jCMPOl] 

911 

.ENDC 

;  M$$PRO 

• CMPOl ] 

912 

.ENDC 

;  R$$MPL 

•CMPOl] 

913 

9K 
915 

004216 

000000 

SSHLST 

:.WORD 

0 

;  SECONDARY  HOST  LISTHEAD 

916 

004220 

000000  000000 

SPARE  1 

:.WORD 

0,0 

;  FIRST  DOUBLE  WORD  SPARE 

CELL 

917 
918 

919 

004224 

000000  000000 

SPARE2 

:.WORD 

0,0 

;  SECOND  DOUBLE  WORD  SPARE 

CELL 

004230 

177777  Vmb 

.WORD 

-1,-2 

;  FF  (  FUDGE  FACTOR  ) 

920 
921 
922 

004234 

SCEXND 

;  END  OF  CEXCM 

000000 

.PSECT 

CET$$A,RW,OVR 

;  START  OF  EXTENSIBLE  PROGRAM  SECTION 

923 

000000 

$CETA8 

;  REFERENCE  LABEL 

924 

000000 

'.PSECT 

CET$$B,RW,CON 

;  FORCE  ALPHABETICAL  REFERENCE 

925 

000000 

SCETND 

;  REFERENCE  LABEL 

926 

004234 

'.PSECT 
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VRES  -  VNP  ROOT  MACRO  V05.03b 
tSWOVL  -  SWITCH  OVERLAYS 

1360 

1361 

1362 

1363 

136A 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387        000001 


Tuesday  17-Sep-85  16:15  Page  26 
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.IF  DF 
.S8TTL 


R$$MPL 

DBLK  -  CALCULATE  D-SPACE  OFFSETS 


DBLK  -  CALCULATE  D-SPACE  BLOCK  AND  OFFSET 


INPUTS: 

SRBLCK 
SRADDR 


START  OF  D-SPACE 
VIRTUAL  ADDRESS 


OUTPUTS: 

SRBLCK,  SRADDR  ADJUSTED  FOR  FILE  ACCESS  ROUTINES 


DBLK: 
lOS: 


20$: 
30$: 


CALL 

SUB 

SUB 

BCS 

ADD 

BR 

ADD 
CLC 

RETURN 

.ENDC 

.END 


SSAVAL 

#20000, $RADDR 
#20000, $RADDR 
20$ 

#200,$RBLCK 
10$ 

#20000, SRADDR 


SAVE  REG'S 

REMOVE  FIST  APR  BLOCK 

ADJUST  VIRTUAL  ADDRESS 

IF  LESS  THAN  AK   LEFT  -  BRANCH  RIGHT 

COUNT  ANOTHER  4K  BIAS 

CONTINUE 

REGAIN  VIRTUAL  OFFSET  INTO  LAST  BLOCK 
CLEAR  C-eiT 


jCMPOl] 
;CMP01] 
;[MP01] 
;[MP01] 
; [MP01 ] 
; CMP01 ] 
; CMPOI ] 
.•CMP01] 
; CMPOI] 
; CMPOI] 
;  CMPOI] 
; CMPOI ] 
; CMPOI] 
.-CMPOI] 
; CMPOI] 
; CMPOI] 
; CMPOI] 
; CMPOI] 

; CMPOI ] 
; CMPOI] 

; CMPOI] 

; CMPOI] 
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SyMBOL  CROSS  REFERENCE 


G  13 

PAGE  9 

CREf   OA.OO 


SYMBOL  VALUE 


ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

$ADRX 

$ADRZ 

SASTLV 

$AZFS 

$BFR 

IBIAS 

SBIGCT 

SCBDSG 

SCCBAF 

SCCBAL 

SCCBCT 

SCCRLH 

SCCBNM 

sccasz 

SCEACC 

SCEAVL 

SCELFN 

$CET 

SCETAB 

SCETDF 

SCETLN 

SCETND 

SCETST 

$CEX 

SCEXND 

SCLASN 

SCLAST 

SCLBUF 

SCLCSI 

SCLEVL 

SCLFDB 

SCLFLG 

SCLIOS 

SCLMCR 

SCLPMT 

SCLPRM 

SCLQIO 

SCLRTN 


000200 
000000 
100000 
KOOOO 
OOOOU 
000016 
000000 
000010 
000016 
000006 
000020 
000004 
000012 
000007 
000504  RG 
000502  RG 
000210  RG 
001042  RG 
000000  RG 
002346  RG 
000726  RG 
*♦»*♦♦  GX 
003734  RG 
003740  RG 
003732  RG 
004040  RG 
003716  RG 
003720  RG 
005622  RG 
004236  RG 
004210  R 
001564  RG 
000000  RG 
004242  RG 
004244  RG 
000000  RG 
004246  RG 
001602  RG 
004234  RG 
000162  RG 
000172  RG 

:  000310  RG 
000212  ^G 
000206  RG 
000266  RG 
000464  RG 

:  000132  RG 
000000  RG 
000466  RG 
0004^2  R 
000122  RG 


REFERENCES 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#6-134 

#6-133 

#6-102 

#8-232 

6-112 
#15-517 
#7-171 

11-353 
#17-773 
#17-775 
#17-772 
#17-816 
#17-766 
#17-767 

6-127 
#17-929 
#17-867 
#13-393 
#17-923 
#17-932 
#17-934 
#17-925 
#17-935 
#13-395 
#17-920 
#6-102 
#6-102 
#6-102 
#6-102 
#6-102 
#6-102 
#6-102 
#6-102 
#6-102 
#6-102 

6-102 
#6-102 

6-102 


5-79 


#7-204 


♦19-1136 


23-1285 


#24-1312 


14-431 

14-438 

22-1256 

6-102 

6-113 

12-370 

6-102 

6-102 

11-351 

22-1270 

6-102 

#6-102 

6-102 

6-102 
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FUNCTION  TABLES 
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Page  6-1 


125  000126 

001544' 

000000 

.WORD 

SLIN.O 

126  000132 

002536- 

000000 

.CCEX: 

.WORD 

CCEX.O 

127  000136 

000176' 

.CPRO: 

.WORD 

CEXLD 

128  OOOKO 

000474' 

.WORD 

PDVA 

129  000142 

001672' 

000000 

.WORD 

CPRO.O 
CEXLD 

130  0001 46 

000176' 

.CLIN: 

.WORD 

131  000150 

000774' 

.WORD 

SLTA 

132  000152 

002472' 

000000 

.WORD 

CLJN.O 
NOP.O 

133  000156 

000120' 

000000 

.NOP: 

.WORD 

134  000162 

.SNOD: 

135  000162 

000176' 

.CNOD: 

.WORD 

CEXLD 

136  000164 

000234' 

000000 

.WORD 

CHKNOD.O 

137  000170 

.SLOG. 

138  000170 

000176' 

.CLOG. 

.WORD 

CEXLD 

139  000172 

000746' 

000000 

.WORD 

LLIN.O 

140  000176 

000176' 

.DMOD 

.WORD 

CEXLD 

141  000200 

000216' 

000000 

.WORD 

PSILD.O 

142  000204 

000176' 

.SCIR 

.WORD 

CEXLD 

143  000206 

000774' 

.WORD 

SLTA 

144  000210 

001532' 

.WORD 

CLROP 

145  000212 

001640' 

000000 

.WORD 

SCJR.O 

146  0002 '6 

000176' 

.SMOD 

.WORD 

CEXLD 

147  000220 

000216' 

.WORD 

PSILD 

148  000222 

000000 

.WORD 

0 

149  000224 

.SALI 

150  000224 

.CALl 

151  000224 

.SOBJ 

152  000224 

.COBJ 

153  000224 

.DCEX 

154  000224 

.DLIN 

155  000224 

.DPRO 

156  000224 

.DNOD 

157  000224 

.DAL  I 

158  000224 

.DLOG 

159  000224 

.DCIR 

160  000224 

000176' 

000000 

.D08J 

.WORD 

CEXLD.O 
RNTI, 6 

161  000230 

000162' 

000000 

.RNTI 

.WORD 

CHECK  CLEAR  SVSTEM  REQUEST 
CEX  LOADED  ? 
FIND  PDV  ADDRESS 

COMEXEC  MUST  BE  LOADED 
GET  SLT  ADDRESS 

NO  CHECKING  REQUIRED 

COMEXEC  MUST  BE  LOADED 
CHECK  NODE  PARAMETERS 

COMEXEC  MUST  BE  LOADED 

CHECK  FOR  LINE 

COMMEXEC  MUST  BE  LOADED 

PSI  MUST  BE  LOADED 

MAKE  SURE  COMM  EXEC  IS  LOADED 

FIND  SLT  ADDRESS 

CLEAR  PROCESS  PARAMETERS 

MAKE  SURE  COMM  EXEC  IS  LOADED 
PSI  MUST  BE  LOADED 


COMEXEC  MUST  BE  LOADED 
COMEXEC  MUST  NOT  BE  LOADED 
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LLlN  -  CHECK,  FOR  LINE  IN  SrSTE''^  FOR  LOGGING 

.S8TTL   LLIN  -  CHECK  FOR  LINE  IN  SYSTEM  FOR  LOGGING 


550 
551 
552 
555 
55^ 
555 
556 
557 
558 
559 
560 
561 
562 
563 
56^^ 

565  000746  032767  000040  OOOOOOG  LLIN:   b!T 

566  000754  001406  BEQ 

567  000756  010346  MOV 

568  000760  012703  000030G  MOV 

569  000764  CALL 

570  000770  012603  MOV 


LLIN  -  CHECK  FOR  LINE  IN  SYSTEM  FOR  EVENT  LOGGING  AND  RETURN 
SYSTEM  LINE  NUMBER  IF  IT  EXISTS 

INPUTS: 

ROB  -   REQUEST   BLOCK   FOR   SET   OR   CLEAR   LOGGING  COMMAND 

OUTPUTS: 

$SLN  -   SYSTEM  LINE    NUMBER 


571    000772 


10$: 


RETURN 


#OP$LNE,$OPTON 

10$ 

R3,-(SP) 

#RQ8+L0.L1D,R3 

SLTA 

(SP)t,R3 


WAS  A  LINE  SPECIFIED? 

BR  IF  NO 

SAVE  R3 

POINT  TO  DEVICE  NAME  IN  REQUEST  BLOCK 

GET  SLN 

RESTORE  R3 
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CCEX  -  CHECK,  CLEAR  SYS  PARMS 


M 


995 

99A  002652 

995  002652 

996  002656 

997  002676 

998  002702 
999 

1000  002706 

1001  002714 

1002  002716 

1003  002720 

1004  002724 

1005  002730 

1006  002732 

1007  002740 

1008  002742 


004567  OOOOOOG 


TSKSCH: 


012705 
011565 

016567 
000261 
O01411 

021065 
001366 
026065 
001362 


OOOOOOG 
000030 

000030  OOOOOOG  10$: 


000006 

000002  000010 

30$: 


JSR 
GETRV 
MOV 
MOV 

MOV 

SEC 

BEQ 

GETRV 

CMP 

BNE 

CMP 

BNE 

RETURN 


R5,$SAVRG 
.TSKHD-.TLGTH 
#$8fR,R5 
(R5),T.TCBL(R5) 

T.TC8L(R5),$RADDR 

30$ 

(R0),T.NAM(R5) 
10$ 


2(R0) 
10$ 


,T.NAM*2(R5) 


SAVE  NON-VOLATILE  REGISTERS 
READ  IN  LISTHEAD 
POINT  AT  BUFFER  BASE 
INITIALIZE  FOR  LOOP 

;  SET  TC8  ADDRESS 

ASSUME  ERROR 

NULL  TASK  (  END  OF  LIST  ) 

READ  IN  res 

MUST  MATCH  BOTH 

;    HALVES  OF    NAME 
C-8IT    IS   CLEAR 
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CREATED  BY  MACRO  ON  29-JiJN-85  AT  02:50 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


H  1 

PAGE  A 

CREF   0^.00 


E.MON 

E.MSK 

E.NUM 

EILEN 

ElOLEN 

E11LEN 

E12LEN 

E13LEN 

EHLEN 

E15LEN 

E16LEN 

E17LEN 

E2LEN 

E20LEN 

E21LEN 

E22LEN 

E23LEN 

E24LEN 

E25LEN 

E26LEN 

E27LEN 

E3LEN 

E30LEN 

E31LEN 

E32LEN 

E33LEN 

E3ALEN 

E35LEN 

E36LEN 

F37LEN 

E4LEN 

EAOLEN 

E'ilLEN 

E42LEN 

E';3LEN 

E4ALEN 

EiSLEN 

E5LEN 

E6LEN 

E7LEN 

FE.CEX 

FE.PLA 

FF.ADD 

FF.CIR 

FF.CON 

FF.FIL 

FF.HST 

FF.LIN 

FF.MOD 

FF.MON 

FF.MS< 

FF.PRT 


012716  R 

01263A  R 

012554  R 

000031 

OOOOAO 

0O00A6 

000046 

000035 

000042 

000034 

000034 

000030 

000062 

000034 

000056 

000040 

000055 

000034 

000031 

000022 

000033 

000050 

000012 

000034 

000041 

000037 

000037 

000036 

000032 

000032 

000044 

000034 

000044 

000034 

000034 

:  000036 

:  000037 

^  000034 

r  000051 

■   000046 

:  020000 

:  000020 

■■   000020 

:  000040 

'■   000001 

■■   000002 

:  040':'00 

:  000010 
:  000100 

:  000004 
^  000077 
=  000200 


REFERENCES 

#79-3491 

#78-3463 

#77-3438 

#10-629 

#10-636 

#10-637 

#10-638 

#10-639 

#10-640 

#10-641 

#10-642 

#10-643 

#10-630 

#10-644 

#10-645 

#10-646 

#10-647 

#10-648 

#10-649 

#10-650 

#10-651 

#10-631 

#10-652 

#10-653 

#10-654 

#10-655 

#10-656 

#10-657 

#10-658 

#10-659 

#10-632 

#10-660 

#10-661 

#10-662 

#10-663 

#10-664 

#10-665 

#1 0-633 

#10-634 

#10-635 

8-225 

8-327 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 


10-629 
10-636 
10-637 
10-638 
10-639 
10-640 
10-641 
10-642 
10-643 
10-630 
10-644 
10-645 
10-646 
10-647 
10-648 
10-649 
10-650 
10-651 
10-63^ 
10-652 
10-653 
10-654 
10-655 
10-656 
10-657 
10-658 
10-659 
10-632 
10-660 
10-661 
10-662 
10-663 
10-664 
10-665 
10-633 
10-634 
10-635 
16-939 

5-77 
5-77 
79-3487 
79-3489 

5-77 
5-77 
79-3491 

5-77 


rBFATFn  RV   MATRn  nw  ?9-,IIIN-R5  AT  02:50 
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VNTI      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:50 
SYMBOL  CROSS  REFERENCE 


H  2 

PAGE  17 

CREF   OA.OO 


VP 
CGI 


SYMBOL  VALUE 


$ALL16 

$ALL22 

SALPHA 

SALPOL 

$ANY 

SASUMR 

SAZFS 

$BFR 


****** 
****** 
000022 

****** 

000020 
****** 
****** 
****** 


GX 
GX 

GX 

GX 
GX 
GX 


SBLANK 

SCATS 

SCBDSG 

SCCBCT 

SCCBLH 

SCCBNM 

$CCBS 

SCCBSZ 

SCEACC 

$CET 

$CFG 

SCLBUF 

SCLDEQ 

SCLFLG 

ICLIOS 

SCLQUE 

SCLSAV 

SCMAND 

SCRPAR 

SCTIM 

SCXOPT 

SDALCT 

$DEA16 

SDECPT 


000006 

****** 

****** 
****** 

****** 
****** 

00255A  RG 

******  GX 
******  GX 

******  GX 
005410  R6 


GX 
GX 
GX 
GX 
GX 


****** 
****** 

****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

003366  RG 
******  GX 
******  GX 
003200  RG 
»*.*♦*   GX 
***♦*♦   GX 


REFERENCES 


12-786 

8-A92 
#18-1108 

#19-1139 

#20-1178 

#21-1220 

#22-1250 

#23-1265 

#32-1884 

#46-2529 

64-2887 

69-3163 

79-3494 

86-3675 

94-4026 

102-4435 

#18-1108 

#19-1139 

#20-1178 

#21-1220 

#22-1250 

#25-1265 

#52-1884 

#45-2529 

11-730 

29-1729 
♦8-266 

8-268 

8-271 

8-273 

8-275 

8-278 

8-281 

8-284 

8-288 

8-291 

8-294 

8-297 

♦8-297 

8-299 

♦8-551 

♦8-355 

♦8-555, 

8-375 

♦8-400 

♦8-401 

♦8-416 

♦8-417 

♦8-446 

♦8-447 

♦8-458 

11-745 

♦12-795 

♦12-796 

♦13-830 

♦13-831 

♦14-875 

♦14-876 

16-949 

♦17-1042 

17-1052 

17-1057 

17-1063 

17-1065 

17-1070 

17-1072 

17-1081 

17-1082 

26-1558 

♦25-1549 

♦26-1550 

♦26-1556 

♦26-1557 

♦26-1558 

♦26-1559 

♦26-1566 

26-1574 

26-1575 

25-1578 

♦25-1584 

♦26-1586 

♦26-1590 

26-1595 

26-1598 

26-1599 

♦26-1608 

♦25-1610 

♦26-1615 

61-2754 

61-2763 

61-2777 

♦62-2796 

♦62-2818 

♦65-2842 

♦65-2855 

54-2890 

64-2895 

65-2922 

65-2923 

65-2928 

65-2961 

♦67-3018 

♦57-3028 

♦57-3058 

♦57-3047 

♦57-5057 

♦57-3056 

♦67-3075 

♦67-3084 

♦67-3094 

♦67-3104 

♦67-5111 

69-5156 

69-3175 

69-3185 

69-5192 

♦70-3241 

♦71-3259 

♦72-3282 

♦72-5283 

♦72-5284 

♦73-3504 

74-3520 

♦74-5328 

75-3345 

♦75-3355 

♦75-3374 

♦76-3394 

76-3410 

•76-3418 

79-3496 

♦80-3555 

80-353? 

80-3545 

86-3678 

86-3691 

♦87-3720 

87-3723 

87-3727 

88-3748 

♦88-5751 

88-?"5 

88-5763 

94-4035 

♦94-4041 

♦94-4042 

♦94-4043 

♦94-4045 

♦94-4046 

♦94-4047 

♦94-4048 

♦94-4050 

♦94-4051 

♦94-4052 

♦94-4054 

♦94-4055 

♦94-4056 

♦94-4057 

♦94-4058 

94-4054 

94-4077 

98-4259 

98-4273 

98-4274 

102-4442 

102-4455 

102-4458 

♦105-4525 

♦105-4531 

105-4532 

♦105-4708 

#18-1108 

#19-1139 

#20-1178 

#21-1220 

#22-1250 

#23-1265 

#52-1884 

#45-2329 

24-1478 

24-1483 

55-2624 

83-5606 

83-3610 

91-3907 

92-3937 

10-600 

♦54-2607 

12-795 

♦12-798 

16-946 

♦16-949 

12-776 

53-2585 

♦54-2606 

54-2607 

8-472 

#12-775 

12-778 

12-797 

16-944 

53-2586 

65-2925 

65-2955 

69-3174 

79-3505 

80-5541 

86-5585 

87-5725 

88-3761 

94-4055 

98-4271 

102-4450 

103-4525 

105-4529 

105-4706 

29-1727 

8-452 

#28-1682 

9-557 

30-1844 

31-1871 

28-1707 

30-1790 

30-1805 

30-1819 

50-1850 

♦28-1684 

28-1710 

30-1754 

51-1867 

29-1730 

8-221 

28-1683 

•107-4779 

♦108-4817 

♦109-4851 

8-317 

8-485 

#17-1041 

♦60-2725 

54-2604 

9-541 

#16-938 

16-950 

16-1020 

26-1650 

8-457 

61-2753 

62-2792 

62-2808 

63-2841 

53-2865 

64-2889 

55-2920 

65-2950 

67-3017 

67-5027 

67-5037 

67-5046 

67-3056 

57-3065 

67-3074 

67-5083 

67-5093 

67-5103 

67-3110 

69-3184 

69-3191 

70-3239 

71-5257 

72-3280 

''3-^52^ 

74-3318 

75-3344 

75-3372 

76-3392 

76-5408 

88-5747 

94-4065 

94-4076 

98-4258 

102-4454 

roFaTFn  nv     MArnn     nw  ?9-iiiN-85   AT   02:50 
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VPli 
PR. 


92 

93 

94 

95 

96 

97 

98 

99 
TOO  000050 
101 

102  000002 

103  OOOOO'!, 

104  000006 

105  000010 

106  000012 

107  OOOOU 

108  000016 

109  000020 

110  000022 

111  000024 

112  000026 

113  000030 

114  000032 

115  000034 

116  000036 

117  000040 

118  000042 

119  000000 


.SSTTL  CONSTANT  DEFINITIONS 

■  *** 

■  LOCAL  SYMBOLS 

•  *** 


000002 


;  ERROR  CODES  RET 

' 

.ASECT 

.=2 

ERR2: 

.BLKW   1 

ERR4: 

.BLKW   1 

ERR6: 

.BLKW   1 

ERR8: 

.BLKW   1 

ERR10 

.BLKW   1 

ERR12 

.BLKW   1 

ERR14 

.BLKW 

ERR16 

.BLKU   1 

ERR18 

.BLKW   1 

ERR20 

.BLKW   1 

ERR22 

.BLKW   1 

ERR24 

.BLKU   1 

ERR26 

.BLKW   1 

ERR28 

.BLKW   1 

ERR30 

.BLKW   1 

ERR32 

.BLKW   1 

ERR34 

.BLKW   1 

.PSECT 

0=SUCCESS 

OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 

FILE  NOT  CONTIGUOUS 

LABEL  BLOCK  READ  FAILURE 

INVALID  PROCESS  IMAGE 

PROCESS  NOT  BUILT  FOR  APR5  (MAPPED) 

PROCESS  >  4K  WORDS  (MAPPED) 

PROCESS  EXTENSION  >  4K  WORDS  (MAPPED) 

PARTITION  NOT  IN  SYSTEM 

PROCESS/PARTITION  BASE  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE  (MAPPED) 

SUB-PCS  ALLOCATION  FAILURE  (MAPPED) 

MAIN  PARTITION  TOO  FRAGMENTED  (MAPPED) 

PROCESS  READ  FAILURE 


i/Din    _    wMD    DDnrccc    i /n   DntlTIMFQ    MATPn    \td^    O'^h    UpHnpQfiss 
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616 

617 

618 

619 

620 

621 

622 

625 

62^ 

625 

626 

627 

628 

629 

630 

631 

632  001540 

633 

63A  001546 

635  001554 

636 

637  001556 

638  001564 

639  001572 
640 

641  001574 

642  001602 

643  001610 

644  001612 

645  001620 

646  001626 

647  001634 

648  001640 

649  001642 

650  001646 

651  001664 

652  001672 

653  001674 

654  001702 
655 

656 

657 

658 

659 

660 

661 

662  001704 

6o3  001712 

664  001714 

665  001722 
666 

667 

668  001724 

669  001752 
670 

671 

672  001754 


.SBTTL  PR. PAR  -  FIND  PARTITION 

PR. PAR  -  FIND  PARTITION 

THIS  ROUTINE  IS  CALLED  TO  FIND  THE  PROCESS  PARTITION.  IF  THE  PARTITION  IS  A 
SYSTEM  CONTROLLED  PARTITION,  A  SUB-PARTITION  PCS  WILL  BE  CREATED. 

INPUTS: 

RO=LABEL  BLOCK  BUFFER  ADDRESS 
$$PAR=PARTITION  NAME  (OPTIONAL) 

OUTPUTS: 

C-B1T=SUCCESS/FAILURE 
$PNAME=PARTITION  NAME 
PCBA^PROCESS  PCB  ADDRESS 


042767  OOOOOOG  OOOOOOG  PR. PAR:  BIC 
000001  000150' 


052767 
001407 

012767 
012767 
000415 

016767 
016767 
001006 
016067 
016067 
016767 
016705 
001002 
000167 

026767 
001560 
026767 
001554 


052767 
001446 
052767 
001170 


026226     000254' 
000000     000256' 


000002G 
OOOOOOG 

OOOOOOG 
000002G 
OOOOOOG 
OOOOOOG 

000406 

000254' 

000256' 


000256' 
000254' 

000254' 
000256' 
OOOOOOG 


10$: 


20$: 
50$: 


000004G 
000006G 


40$: 


000040  000050G 
OOOOOOG  OOOOOOG 


052767 
001455 


OOOOOOG  OOOOOOG 
016701   000014G 


#FL.TOP,$FLAGS 

#MCLOA,MCfi  :. 
10$ 

#*RGEN,$PNAME 
#*R   ,$PNAME+2 
20$ 


BIT 
BEQ 

MOV 
MOV 
BR 

MOV 

MOV 

BNE 

MOV 

MOV 

MOV 

MOV 

BNE 

JMP 

GETRV 

CMP 

BNE 

CMP 

BNE 

.IF  DF 

CALL 

.IFF 

BIT 
BEQ 
BIT 
BNE 


.IF  NDF  R$$MPL 

BIT  #FL.TOP,$FLAGS 

BEQ  50$ 

.ENDC 


TURN  OFF  TOP-DOWN  LOADING 

MICROCODE  PARTITION  ? 
IF  NO  -  BRANCH 

ALWAYS  USE  GEN 

CONTINUE 

;    COPY  PARTITION  OVERRIDE   NAME 


$$PAR+2,$PNAME+2 

$$PAR,$PNAME 

20$  ;    IF  NE,   USE  OVERRIDE  NAME 

L$8PAR(R0),$PNAME    ;    ELSE   USE  PARTITION  FROM  PROCESS   FILE 

L$8PAR+2(R0),$PNAHE+2   ;    . . . 

$PAfiHD,$BFR  ;    GET  POINTER   TO  FIRST   PCB 

$BFR,R5  ;    GET  NEXT  PCB 

40$  ;    IF  NON-ZERO   ..   MORE   IN  LIST 

120$  ;    IF   ZERO,   END  OF   LIST 

R5,.PLGTH  ;    READ  PCS    INTO  BUFFER 

$PNAME,P.NAM+$BFR   ;    LOOK   FOR  MATCH  BETWEEN  $PNAME 

50$  ;   AND  PARTITION  NAME  FROM  PCB 

$PNAME+2,P.NAM+2+$8FR   ;    ... 

50$ 


VPK 

SYME 

SYME 

$MUl 
$NA^ 
$PAf 
$PD\ 
$PD\ 
$PN/ 
$PR( 
$PRE 
$PR! 
$PR1 
$PRl 
$PU' 
$RAI 

$RE/ 

$RLf 

$SA( 

$TI( 

$VF1 

$XP/ 

$$ 

$$E 

$$II 

$$P/ 

$$$ 

$$$■ 

.PLi 

.PP 


R$$MPL 
PR. SUB 

#PS.SYS,P.STAT+$BFR   ;    SYSTEM  CONTROLLED  PARTITION? 

60$  ■ 

#FL.CEX,$FLAGS 

150$ 


;CMP01] 
; [MP01 ] 


IF  EQ,  NO 

IS  THIS  THE  COMM  EXEC? 

IF  NE,  YES 


MOV 


$BFR+P.REL,R1 


LOAD  TOP  ? 

IF  NO  -  BRANCH 


GET  START  OF  PARTITION 


;[MP01] 
;[MP01] 


nnnrc  c  c 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


$MUL 

tNAME 

SPARHD 

SPDVNM 

SPDVTA 

SPNAME 

SPRCLNI 

SPREXT 

SPRINC 

$PRIO 

SPRLLN 

SPUTRC 

SRADDR 

SREADX 

SRLBL 

SSAVAL 

STIOUT 

SVFLAG 

SXPAR 

$$ 

$$EXT 

$$!NC 

$$PAR 

SSS 

$$$S 

.PLGTH 

.PPRO 


GX 
GX 
GX 
GX 
GX 

000254  RG 
GX 
GX 
GX 

000000  RG 
GX 
GX 
GX 


****** 


r  ****** 


~     ****** 
=  ****** 


:;  ****** 


=  ****** 
X  ****** 


r  ****** 


=  ^77777 

=  ****** 


=  ****** 
=  000054 
=  000136 


GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 

R 

R 
GX 
GX 


REFERENCES 

12-517 

10-341 

10-328 

17-933 

17-932 
#7-177 

12-529 

12-525 

12-512 
*9-265 

12-516 

9-295 
«9-292 
♦15-809 

16-904 

11-455 

17-960 

17-963 

10-325 

9-283 

7-133 

12-528 

12-515 

14-641 
#7-133 
#7-134 

9-292 

9-293 


12-530 
11-425 
14-646 


-945 
-637 


10-386 
*10-333 
*15-813 

12-489 


14-676 
10-372 
7-133 
12-537 

14-642 
7-134 
#7-137 
10-333 
10-384 
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13-606 
11-429 


►14-638 


14-724 
*10-383 
»15-819 


15-834 
10-374 
#7-133 


#7-136 
10-383 


12-500 


»14-641 


14-728 
*13-599 
♦15-828 


#7-134 


7-137 
14-650 


12-555 


♦14-642 


15-805 
♦14-650 
♦15-831 


7-136 


15-772 


VPR( 
Tab 


13-597 


15-785 


*U-644         ^14-645 


15-822 
♦  14-719 
♦15-851 


7-136 


15-777 


15-826 
♦14-722 
♦15-857 


#7-136 


15-805 


15-790 


14-651 


15-854 
♦14-726 
♦16-901 


#7-137 


15-869 


14-653 


15-859 
♦15-805 


16-901 
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Table  of  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

ALVBLK  -  ALLOCATE  VECTOR  BLOCK 

AXSYM  -  AUX  SPECIAL  SYMBOLS 

SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 

$ROL  -  ALLOCATE  REACHABILITY  TABLES 

SCACH  -  ALLOCATE  CACHE 

SALADJ  -  ALLOCATE  ADJACENCY  DATA  BASE 

$CKT  -  ALLOCATE  XPT  CIRCUIT  COUNTERS 

SALMHC  -  ALLOCATE  MINHOPS/MINCOST  MATRICES 

SALECL  -  ALLOCATE  ECL  NODE  COUNTERS 

FNDPDV  -  FIND  A  PDV  ADDRESS 

SCTSYM  -  FIND  SYMBOLS  FROM  CETA8 


VPRi 
$AL 


s- 

SA 

ft- 

KO 

H- 

V6 

9- 

<.^/ 

11- 

S09 

V- 

MM) 

11- 

ft91 

14- 

/99 

1S- 

HS4 

16- 

9  A) 

^/- 

10H0 

1H- 

1K9 

19- 

1185 

;[MP01] 
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SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 


566  001234 

567  001236 
568 

569  001242 

570  001250 

571  001254 
572 

573  001272 

574  001276 
575 

576  001302 

577  001310 

578  001326 

579  001332 

580  001334 

581  001340 

582  001542 

583  001346 

584  001352 

585  001354 

586  001360 

587  001366 

588  001374 

589  001402 

590  001410 

591  001426 

592  001432 

593  001434 

594  001436 

595  001440 

596  001442 
597 

598  001444 


011204 
016702 

016267 
016202 


016703 
016702 


005767 
100410 
020467 
001407 
062702 

000432 
010467 
016067 
016067 
016767 
016767 

062700 
010504 
005301 
003250 
000241 


000014' 

OOOOOOG  000016' 
OOOOOOG 


000100G 
000104G 


016767  000102G  OOOOOOG 


60$: 


OOOOOOG 
OOOOOOG 
000046 


OOOOOOG       70$: 
OOOOOOG  000030G  80$: 
OOOOOOG  000032G 
OOOOOOG  000042G 
OOOOOOG  000040G 


000002 


90$: 
101$ 


Page  11-1 

;  GET  SLN,  STA  PAIR 

;  GET  XPT'S  PDV  ADDRESS 


VF 

F^ 


(R2),R4 
XPTPDV,R2 

Z.DSP(R2),XPTDSP  ;  SAVE  XPT'S  MAPPING  BIAS 
Z.DAT(R2),R2  ;  GET  ADDRESS  OF  XPT'S  DDB 
R2,#N$XLEN     ;  READ  XPT'S  DDB 


N$TLC+$BFR,R3 
N$TLC+4+$BfR,R2 


GET  NUMBER  OF  COUNTERS 

GET  ADDRESS  OF  FIRST  COUNTER  BLOCK 


N$TLC+2+$BFR,$RBLCK  ;  MAP  TO  XPT'S  PROCESS  SPACE 

R2,#T$LLEN     ;  READ  IN  COUNTER  BLOCK 

$8FR  ;  HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 

70$  ;  8R  IF  NO  -  USE  IT 

R4,$BFR        ;  ELSE  IS  THIS  THE  CORRECT  ENTRY? 

80S  ■  BR  IF  YES 

#T$LLEN,R2      ;  POINT  TO  NEXT  COUNTER  BLOCK 

R3,60$         ;  CHECK  ALL  COUNTER  BLOCKS 

90$  ;  CONTINUE 

R4,$BFR        ;  STORE  CHANNEL  NUMBER  AND  PDV 

$$HTIM(R0),T$T5+$BFR  ;  STORE  HELLO  TIMER 

$$LTIM(R0),T$T6+$8FR  ;  STORE  LISTEN  TIMER 

$$NaRA,T$NRNI+$BFR  ;  STORE  NI  ROUTER  ADJACENCY  COUNT 

$$RPRI,T$RPRI+$B'^R  ;  STORE  ROUTER  PRIORITY 

R2,#T$LLEN  '"  ' 

#2,R0 

R5,R4 

Rl 

40$ 


EMSG$R  70 


WRITE  UPDATED  COUNTER  BLOCK 
UPDATE  OFFSET  FOR  NEXT  STATION  ENTRY 
RESTORE  STATION  TABLE  ADDRESS 
MORE  STATIONS  TO  CHECK? 


XPT  NOT  FOUND? 
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1U9 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 


004426 
004426 
004430 
004432 
004436 
004442 
004444 
004446 
004450 
004454 
004456 
004460 
004462 
004464 
004466 
004470 
004472 
004476 
004500 
004502 


.SBTTL      FNDPDV   -   FIND  A  PDV  ADDRESS 
FNDPDV  -   TRY    TO   FIND   PDV 


010046 
016701 
016^2 
001407 
012100 
001403 
026016 
001403 
005302 
001371 
000261 
005226 
C06016 
005741 
166701 
006316 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 


;  INPUTS: 

R0=RAD50  PDV  NAME 

;  OUTPUTS: 

C-BIT=SUCCESS/FA!LURE 

RO=PDV 

ADDRESS 

R1=PDV 

INDEX 

FNDPDV: 

SAVRG 

<R2> 

MOV 

RO,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

BEQ 

30$ 

10$: 

MOV 

(R1)+,R0 

BEQ 

20$ 

15$: 

CMP 

Z.NAM(RO),(SP)   , 

BEQ 

40$ 

20$: 

DEC 

R2 

BNE 

10$ 

30$: 

SEC 

40$: 

INC 

(SP)  + 

ROR 

(SP) 

TST 

-(R1) 

SUB 

$PDVTA,R1 

ASL 

(SP) 

RESRG 

<R2> 

RETURN 

SAVE  R2 

save  name  to  be  matched 
get  pdv  table  address 
and  number  of  pdv's 
if  zero,  no  pdv  si 
get  pdv  address 
if  zero,  skip  this  one 
does  the  name  match? 
if  eq,  yes  (c-bu  clear) 

loop  $pdvnm  times 
indicate  failure 
purge  stack 
save  c-bit 
calculate  pdv  index 

restore'c-bit 
restore  r2 
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326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

3A0 

341  001260 

542  001260 

3A3  001264 

344  001266 

345  001266 

346  001272 

347  001272 

348  001274 

349  001276 

350  001302 

351  001304 

352  001310 

353  001312 

354  001316 

355  001322 

356  001326 

357  001330 


.SBTTL  SREP.N  -  REPLACE  ERROR  CODE 

.SBTTL  $CUR.N,$PRV.N  -  REPLACE  FILE  NAME  AND  ERROR  CODE 

*$REP.N  -  REPLACE  "•"  WITH  aSCLIOS  (ERROR  CODE)  CONVERTED  TO  DECIMAL 
SCUR.N  -  REPLACE  CURRENT  LEVEL  FILE  NAME  AND  ERROR  CODE 
SPRV.N  -  REPLACE  PREVIOUS  LEVEL  FILE  NAME  AND  ERROR  CODE 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  STRING  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESTR0YED 
R3,R4=UPDATED 


icUR.N:: 


000402 


010500 

005720 

122720  000050 

001375 

117701   000132' 

005002 

112720  000056 
112720  000051 
105010 


SPRV.N:: 
SREP.N: 


10$: 


CALL 
BR 

'call 
'mov 

TST 

CMPB 

BNE 

HOVB 

CLR 

CALL 

MOVB 

MOVB 

CLR8 

RETURN 


SREP.C 
SREP.N 

SREP.P 

R5,R0 

(R0)  + 

#'(,(RO)t 

10$ 

aSCLJOS.RI 

R2 

$C8DSG 

#'.,(R0)+ 

#'),(R0)+ 

(RO) 


REPLACE  CURRENT  LEVEL  FILE  NAME 


REPLACE  PREVIOUS  LEVEL  FILE  NAME 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 
NOW  POINTS  AT  TEXT  STRING 
LOOK  FOR  LEFT  PAREN 

GET  ERROR  CODE 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  SIGNED  DECIMAL 

DEPOSIT  DECIMAL  POINT 

RIGHT  PAREN 

AND  ZERO  BYTE  (END  OF  TEXT  INDICATOR) 
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927 

928  004234 

929  004236 

930  004240 
931 

932  004242 
933 

934  004244 

935  004246 

936  004250 

937  004252 

938  004254 
939 

940  004256 

941  004260 

942  004262 
943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966  004264 

967 

968  004266 

969 


000000 
000000 
000000 

000000 

000000 
000000 
000000 
000000 
000000 

000003 
000000 
000000 


SCEAVL: 

.WORD 
.WORD 
.UORD 

0 
0 
0 

SCETDF: 

.WORD 

0 

SCETLN: 
SCETST: 

SCRAVL: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

0 
0 
0 
0 
0 

SPRAVL: 

.WORD 

:.WORD 

.WORD 

3 
0 
0 

SPOLHD: 

.IF  DF 
:.WORD 
.WORD 

RSSMPL 

0 

0 

SICAVL: 

.WORD 

r.WORD 

.WORD 

.WORD 

3 

0 
0 
0 

.IF  DF 
.REPT 

MSSPRO 
<M$$PR0-1> 

.WORD 
.WORD 
.WORD 
.WORD 
.ENDR 

3 

0 
0 
0 

000000 


SNTUIC: 
SNTLHB: 


.ENDC 
.ENDC 
.WORD   0 
.8LKW   32. 


CEX  POOL  LISTHEAD  IMAGE 


SHIFT  DIFFERENTIAL  BETWEEN  BUFFER  AND 
REAL  ADDRESSES  IN  CETAB 
LENGTH  OF  CETAB  IMAGE 
ACTUAL  START  OF  CETAB 


;  RSX  POOL  LISTHEAD  IMAGE 


ROUNDING  FACTOR 

OFFSET  TO  FREE  SPACE  LISTHEAD 


SECONDARY  POOL  LISTHEAD 
AVAILABLE  BLOCKS 

ICB  POOL  ROUNDING  FACTOR 
ICB  POOL  LISTHEAD 
FIRST  BLOCK  SIZE 
DUMMY  WORD 


SET  UP  ICB  POOL  LISTHEADS 
FOR  REMAINING  PROCESSORS 
ICB  POOL  ROUNDING  FACTOR 
ICB  POOL  LISTHEAD 
FIRST  BLOCK  SIZE 
DUMMY  WORD 


;LMP01] 
; [MP01 ] 
; CMP01 ] 

;[MP01] 
;[MP01] 
;[MP01] 
;[MP01] 

;[MP01] 
;[MP01] 
; CMPOI ] 
;[MP01] 
; [MP01 ] 
; CMPOI] 
;rMP01] 
.-CMPOI] 

; CMPOI] 

; CMPOI] 


NETWORK  UIC 

HOME  BLOCK  IMAGE  (1ST  BLOCK  OF  NTPOOL) 
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ARAMSK= 

A$$CH<= 

A$$CPS= 

AI-SPRI^ 

A$$TRP= 

A.LULU= 

A.LUNA= 

A.LUNU= 

CtACC 

CFSFLG 

CL.AST- 

CL.AT1= 

CL.CAS= 

CL.CMT= 

CL.EIF:: 

rL.EXN= 

C1-.EXT= 

CL.IND= 

CL.LCC= 

CL.NPR= 

CL.OPN= 

CL.RNE= 

Cl.XIT= 

CMOOE  = 

CM$CLE=: 

CM$SEr= 

CM$SHO= 

CS.D1F= 

CS.DVF= 

CS.EQU= 

CS.INP= 

CS.MOR= 

CS.NMf= 

CS.OUT= 

CS.ULD= 

C$$CICP= 

C$$ORE= 

C$$RSH= 

C.CMLD= 

C.DEVD= 

C.DIRD= 

C.DSDS= 

C.FILD= 

C.MI<:W1  = 

C.MKW2= 

C.SIZE= 

C.STAT= 

C.SWAD= 

C.TYPR= 

DEFFLG= 

DFCNT 

DFEXT 

DFLTNB 

DFPTR 

DFTLEN= 

DSIZE  = 

DSAMXC 


176000  6 

DSAMXH 

000074 

000000 

D$ANN 

000000 

000000 

DSBRPR 

000102 

000000 

DSBRTM 

000100 

000000 

DSOELF 

000045 

000002 

DSDELW 

000046 

000004 

DSEND  = 

000104 

C00006 

DSFNB 

000034 

000500RG 

DSHIOR 

000024 

001026RG 

DSHOST 

000022 

004000 

D$INAC 

000044 

000200 

DSINCT 

000042 

020000 

DSIPL 

000051 

000001 

D$LID 

000020 

000040 

DSLNAM 

000006 

040000 

DSLNUM 

000014 

000010 

DSLST 

000047 

000002 

DSMAXC 

000064 

000020 

DSMAXH 

000066 

000400 

DSMAXV 

000070 

000100  G 

D$MLL 

000040 

000004 

DSMNOD 

000041 

100000 

D$NA 

000062 

140000 

OSNBEA 

000056 

000002  G 

DSNBRA 

000054 

000001  G 

D$NEND= 

000054 

000004  G 

D$NLN 

000030 

000002 

D$NN 

000060 

000004 

DSOUTT 

000043 

000040 

DSRETF 

000050 

000001 

D$RNN 

000002 

000020 

DSRTMR 

000076 

000001 

DSSEG 

000036 

000002 

t)$SER 

000032 

000010 

DSSQRL 

000052 

000000 

D$$BUG= 

177514 

000400 

D$$ISK= 

000000 

177564 

D$$L11= 

000001 

000002 

D$$YNC= 

000000 

000006 

D$$YNM= 

000000 

000012 

EF 

000001 

000006 

ERRVI 

005316R 

000016 

ERRV2 

005406R 

000024 

ERR\/3 

005446R 

000026 

ERRV4 

005616R 

000054 

E$$XPR= 

000000 

000001 

FATAL  = 

176031 

000022 

FE.CAL= 

000040 

000000 

FE.CEX= 

020000 

000235 

FE.DRV= 

000010 

001032RG 

FE.DYM= 

010000 

001606R 

FE.EXP= 

000200 

000426R 

003  FE.EXT= 

000001 

001030RG 

FE.EXV= 

000004 

000007 

FE.FDT= 

002000 

000044  G 

FE.LSI= 

000400 

000072 

FE.MUP= 

000002 

FE.MXT= 

FE.NLG= 

FE.OFF= 

FE.PKT= 

FE.PLA= 

FE.X25= 

FILE 

FL.CEX= 

FL.CHA= 

FL.CNT= 

FL.DDM= 

FL.DLC= 

FL.ECH= 

FL.F[)X= 

FL.HDX= 

FL.KMX= 

FL.LLC= 

FL.LMC= 

FL.MUX= 

FL.PX1= 

FL.PX2= 

FL.TOP= 

FL.WRN= 

FNERR 

FNPTR 

FX.DIfi= 

FX.DLN= 

FX.DMX= 

FX.LEN= 

F$$LVL= 

F.ACTL= 

F.ALOC= 

F.BBFS= 

F.SDB  = 

F.8GBC= 

F.BKDN= 

F.BKDS= 

F.BKEF= 

F.BKP1= 

F.BKST= 

F.BKVB= 


CHR 

CNTG= 

DFNB= 

DSPT= 

DVNM= 

EF8K 


F.EFN  = 
F.EOBB= 
F.ERR  = 
F.EXT  = 
F.FACC= 
F.FF8Y= 
F.FLG  = 
F.FNAM= 
F.FNB  = 
F.FTrP= 


040000 

F.FVER= 

000120 

100000 

F.HIBK= 

000004 

001000 

F.LUN  = 

000042 

000100 

F.MBCT= 

000054 

000020 

F.MBC1= 

000055 

004000 

F.MBFG= 

000056 

001374RG 

F.NRBD= 

000024 

000010  G 

F.NREC= 

000030 

000020  G 

F.O\/BS  = 

000030 

004000  G 

F.RACC= 

000016 

000001  G 

F.RATT= 

000001 

000002  G 

F.RCNM= 

000034 

000040  G 

F.RCrL= 

000017 

000100  G 

F.RSIZ= 

000002 

000200  G 

F.RTYP= 

000000 

000400  G 

F.SEQN= 

000100 

000004  G 

F.SPDV= 

000072 

001000  G 

F.SPUN= 

000074 

002000  G 

F.STBK= 

000036 

010000  G 

F.UNIT= 

000136 

020000  G 

F.URBD= 

000020 

040000  G 

F.VBN  = 

000064 

100000  G 

F.VBSZ= 

000060 

001364R 

f2.ACN= 

000020 

001362R 

f2.AHR= 

010000 

000004 

F2.DAS= 

000001 

000003 

F2.DPR= 

000400 

000002 

F2.EVT= 

000010 

000000 

F2.GGF= 

002000 

000001 

F2.IRR= 

001000 

000076 

F2.L1B= 

000002 

000040 

F2.MP  = 

000004 

000062 

F2.P0L= 

000100 

000070 

F2.RAS= 

004000 

000057 

F2.RBN= 

020000 

000026 

F2.SDW= 

000040 

000020 

F2.STP= 

100000 

000050 

F2.SWP= 

040000 

000051 

F2.WND= 

000200 

000024 

F3.AST= 

000200 

000064 

F3.CLI= 

001000 

000075 

F3.CRA=: 

000001 

000034 

F3.EIS= 

000004 

000046 

F3.NWK= 

000002 

000044 

F3.PMN= 

004000 

000134 

F3.PR0= 

000040 

000010 

F3.RLK= 

020000 

000050 

F3.SHF= 

040000 

000032 

F3.STM= 

000010 

000052 

F3.TCM= 

002000 

000072 

F3.UDS= 

000020 

000043 

F3.UAT= 

010000 

000014 

F3.XHR= 

000100 

000074 

F3.11S= 

000400 

000110 

GCLBUF 

000030RG 

000102 

GCLSI2= 

000226 

000116 

G$$TPP- 

000000 

G$$TSS= 
G$$TTK= 
G$$WRD= 
G.MCRB^ 
HF.CIS= 
HF.EIS= 
HF.FPP= 
HF.QB  = 
HF.UBM= 
IE.EOF= 
IO.WLB= 
I$$RAR^ 
I$$RDN= 
KDSARO= 
KDSDRO= 
KINARO= 
KINAR5= 
KINAR6= 
KINAR7= 
KISARO= 
KISAR5= 
KISAR6= 
KISAR7= 
KISDRO= 
KISDR6= 
KISDR7= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
LD.ALI= 
LD.CEX= 
LD.CIR= 
LD.LIN= 
LD.LOG= 
LD.MOD= 
LD.NOD= 
LD.OBJ= 
LD.PRO= 
LEVL1  = 
LF.ACT= 
LF.BRO= 
LF.BWT=: 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LINBUF 


GX 
GX 


000000 
000000 
000000 
000002 
000200 
000002 
100000 
000004 
000001 
****** 
****** 
000000 
000000 
172360 
172320 
172340 
172352 
172354 
172356 
172340 
172352 
172354 
172356 
172300 
172314 
172316 
177546 
177546 
000000 
000074 
000000 
000030 
000024 
000035 
OOOr  5 
000.  1 
000037 
000027 
000032 
000026 
000001 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
001000RG 


004 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SCLSBK 

000176  RG 

6-102 

$CLSEF 

000156  RG 

#6-102 

SCLSIZ 

=  000306  RG 

#6-102 

SCLSRV 

000470  RG 

#6-102 

SCLTBF 

000202  RG 

#6-102 

tCLTSZ 

000204  RG 

#6-102 

SCLWEF 

000152  RG 

#6-102 

tCMAND 

002006  RG 

#15-457 

SCMFRK 

003752  RG 

#17-785 

SCMPDV 

003744  RG 

lt\7-?77 

SCPBIA 

000474  RG 

#6-125 

SCRAV 

004252  RG 

#17-937 

$CTIM 

002364  RG 

#15-523 

SCUR.N 

001260  RG 

#11-341 

tCXOPT 

004070  RG 

#17-828 

$C5TA 

=  »**•♦*  GX 

9-282 

SDDFNC 

004036  RG 

#17-815 

SDDMPV 

002420  RG 

#15-540 

SDECPT 

004030  RG 

#17-812 

SDEVHD 

003672  RG 

#16-750 

$DFN 

001160  RG 

#9-273 

SDFNAM 

001552  RG 

8-242 

$DFN2 

001162  RG 

#9-275 

SDFUIC 

001534  RG 

8-236 

SDLCPV 

002416  RG 

#15-539 

SERMSG 

=  *«♦»*♦  GX 

14-436 

SEROUT 

001674  RG 

#14-423 

SEVDSC 

004132  RG 

#17-853 

SEXSIZ 

003674  RG 

#16-751 

SFEATR 

002020  RG 

#15-498 

SFILHD 

004126  RG 

#17-850 

SFLAGS 

003406  RG 

#15-567 

SFMASK 

003676  RG 

#16-752 

SFNOUT 

001642  RG 

#14-413 

SFPDV 

=  ♦♦♦»**  GX 

25-1348 

SFUNC 

002002  RG 

#15-455 

SGCLEP 

=  ******     GX 

22-1254 

SGENND 

000720  RG 

#6-145 

SGENST 

000716  RG 

#6-144 

SGETAD 

004712  RG 

#21-1191 

SGETRC 

004432  RG 

#18-1033 

SGETRD 

004432  RG 

#18-1034 

SGETRV 

004366  RG 

#18-1001 

SHMBUF 

000612  RG 

#6-140 

$1CBI 

=  000016  G 

#15-467 

SICBLN 

002016  RG 

#15-468 

SKRBLN 

-  000004  G 

#15-464 

SLDBAF 

003736  RG 

#17-774 

tlGCON 

004204  RG 

#17-865 

SLGDDB 

004124  RG 

#17-849 

SLGFNB 

004152  RG 

#17-855 

$LGMON 

004200  RG 

#17-864 

9-278 
#13-391 


19-1135 


18-1027 


#13-392 


19-1137 


19-1138 


22-1272 


15-468 
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163 

16^ 

165 

166 

167 

168  000234 

169 

170 

171 

172 

173  0002AA 

17-; 

175 

176 

177 

178  0002A6 

179 

180 

181 

182  000250 

183 

184 

185 

186  000252 

187 

188 

189 

190  000346 

191  000352 

192  000356 

193  000362 

194  000366 


000000  000000  000000 


004000 
010000 
001000 
002000 
000000 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


.SBTTL   LOCAL  DATA 

NULL  PARAMETER  BLOCK; 
NUlL:    .WORD   0,0,0,0 

UNIT  NUMBER 
UNIT:    .BLKW 

DDM  PDV  INDEX  (SET  LINE) 

PDVX:    .BLKW  1 

STACK  POINTER  SAVE 

SPSAV:   .BLKW  1 

UCB  BUFFER 

UCB8UF:  .BLKW  30.  ;  LEAVE  PLENTV  OF  ROOM 

REQUEST  BLOCK  TO  $FLAGS  BIT  MAPPING  TABLE 

L8ITS:   .WORD  LS.f DX.FL.FDX   ;  SET  LINE  -  FDX,  HDX,  ECHO, 

.WORD  LS.HDX,FL.HDX 

PBITS:   .WORD  LS.ECH,FL.ECH   ;  SET  PROCESS  -  ECHO,  TOP 

.WORD  LS.TOP,FL.TOP 

.WORD  0 


TOP 
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H  15 

VRQB  -  VNP  PROCESS  REQUEST  BLOC  MACRO  VO5.03b  Tuesday  30-Jul-85  10:53 
SLTA  -  GET  SLT  ADDRESS 


Page  19 


575 
57^ 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
58<5  000774 

590  000776 

591  001000 

592  001004 

593  001010 

594  001012 

595  001020 

596  001022 

597  001026 

598  001032 

599  001040 

600  001042 

601  001050 

602  001052 

603  001060 

604  001062 

605  001070 

606  001074 

607  001102 

608  001104 

609  001112 

610  001116 

611  001120 

612  001122 

613  001124 

614  001126 

615  001130 

616  001132 

617  001136 

618  001140 

619  001144 

620  001146 

621  001152 

622  001156 

623  001162 

624  001170 

625  001172 

626  001176 

627  001202 
628 

629  001206 


012300 
001516 
010067 

103511 
132760 
001505 
010067 
010167 
132760 
001403 
052767 
005046 
132760 
001416 
052767 
012716 
132760 
001405 
052767 
012716 
005001 
152301 
005002 
152302 
022602 
103444 
112367 
105723 

103433 
010067 
010167 
010267 
126760 
101032 
116001 
066701 
016102 


.SSTTL   SLTA  -  GET  SLT  ADDRESS 
SLTA  -  GET  SLT  ADDRESS 


INPUTS: 

R3=REQUEST  BLOCK  POINTER 

.8LKW 

LR.LIN 

-LINE  NAME 

.BLKB         ; 

LR.CTL 

-  CONTROLLER  NUMBER 

.BLKB   1      ; 

LR.UNT 

-  UNIT  NUMBER 

.BLKB   1 

LR.TRI 

-  TRIBUTARY  NUMBER 

OUTPUTS: 

C-8IT=SUCCESS/fAILURE 
$SLTA=SLT  ADDRESS 
$SLN=SYSTEM  LINE  NUMBER 


SLTA: 


OOOOOOG 


OOOOOOG  0000006 

OOOOOOG 
000246" 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000017 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
000057 


5$: 


10$: 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOC 
OOOOOOG 


132762  OOOOOOG  OOOCOOG  20$: 


MOV  (R3)t,R0 

BED  101$ 

MOV  RO,$NAME 

CALL  $FPDV 

BCS  101$  , 

BITB  #Zf .DDM,Z.FLG(RO) 

BEQ  101$ 

MOV  RO,$DDMPV 

MOV  R1,PDVX        , 

BITB  #ZF.LMC,Z.FLG(RO) 

BEQ  5$ 

BIS  #FL.LMC,$FLAGS 

CLR  -(SP) 

BITB  #ZF.MUX,Z.FLG(RO! 

BEQ  10$ 

BIS  #FL.MUX,$FLAGS 

MOV  #15., (SP)       , 

BITB  #Zf .KMX,Z.FLG(RO) 

BEQ  10$ 

BIS  #FL.KMX,$FLAGS 

MOV  #47., (SP) 

CLR  R1 

BiSB  (R3)+,R1 

CLR  R2 

BISB  (R3)t,R2 

CMP  (SP)+,R2 

BLO  111$ 

MOVB  (R3)+,$TRIB 

TSTB  (R3)+ 

CALL  $FSLT 

BCS  101$ 

MOV  RO,$SLTA 

MOV  R1,$SLN 

MOV  R2,$$MUX 

CMP8  $TRIS,L.NSTA(RO) 

BHI  131$ 

MOVB  L.DLC(R0),R1 

ADD  $PDVTA+AB,R1 

MOV  A8(R1),R2 

BITB 


GET  LINE  NAME 

IF  ZERO,  RETURN  FAILURE 

SAVE  IT 

LOOK  FOR  PDV  ADDRESS 

IF  CS,  NO  SUCH  PROCESS 

;  IS  DDM  BIT  SET  IN  PDV? 

IF  EQ,  NO 

SAVE  DDM  PDV  ADDRESS 

AND  PDV  INDEX 

;  MICRO-CODE  LOAD  NEEDED? 

IF  EQ,  NO 

UPDATE  NETLDR  STATUS 

SET  MAXIMUM  UNIT  COUNT  FOR  NON-MUX 

;  MUX  DEVICE? 

IF  EQ,  NO 

UPDATE  NETLDR  STATUS 

MAXIMUM  OF  16.  UNITS/CONTROLLER 

;  COMIOP  MUX  DEVICE? 

IF  EQ,  NO 

UPDATE  NETLDR  STATUS 

MAXIMUM  OF  48.  UNITS/CONTROLLER 

GET  CONTROLLER  NUMBER 

AND  UNit' NUMBER 

VALID  UnIt  NUMBER? 
IF  LO,  NO 

SAVE  TRIBUTARY  NUMBER 
SKIP  NEXT  ENTRY 
TRY  TO  FIND  SLT 
IF  CS,  NOT  FOUND 
SET  SLT  ADDRESS 
AND  SYSTEM  LINE  NUMBER 
SAVE  UNIT  COUNT  (FOR  $NLCFG) 
;  IS  THE  TRIBUTARY  NUMBER  VALID  ? 
IF  HI,  NO 
GET  DLC  PDV  INDEX 
ADD  PDV  TABLE  ADDRESS 
GET  DLC  PDV  ADDRESS 


#ZF.DLC,Z.FLG(R2)  ;  IS  DLC  BIT  SET  IN  PDV? 


I  15 


VROB  -  VNP  PROCESS  REQUEST  BLOC  MACRO  V05.0?b  Tuesday  30-Jul-85  10:5 
tBlTS  -  COPY  BITS  TO  SFLAGS 


H  16 


Page  21 


1010 
1011 
1012 

ion 

10U 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
102<> 
1030 
1051 
1032 


$8ITS 
INPUT 


.S8TTL   $8ITS  -  COPY  BITS  TO  SFLAGS 

-  COPY  BITS  FROM  REQUEST  BLOCK  TO  SFLAGS 


S: 
RO  =  POINTER  INTO  MAPPING  TABLE 


OUTPUTS: 


002744 

002744  012701  000004G 

002750  012702  OOOOOOG 

002754  000401 

002756  005720 

002760  005710 

002762  001404 

002764  032011 

002766  001773 

002770  052012 

002772  000772 
002774 


§8ITS: 


R1  =  ADDRESS  OF  REQUEST  BLOCK  STATUS  WORD 
R2  =  ADDRESS  OF  SFLAGS 


SETUP  ADDRESSES 


MOV 

#S$LRBt4,R1 

MOV 

#SfLAGS,R2 

BR 

20S 

lOS: 

TST 

(R0)  + 

20S; 

TST 

(RO) 

BEQ 

30S 

BIT 

(R0)+,(R1) 

BEQ 

10S 

BIS 

(R0)t,(R2) 

BR 

20S 

30S: 

RETURN 

GO  TEST  FIRST  ITEM 

SKIP  SECOND  WORD  IN  TABlE  ENTRY 

END  OF  TABLE  ? 

IF  EQ,  YES 

IS  THE  BIT  SET  IN  REQUEST  BLOCK 

IF  EQ,  NO 

SET  THE  SIT  IN  SFLAGS 


I  16 


VNTI      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:50 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


FF.QUL 
FF.REM 
FIELDC 
FILBUF 

FILES 

FILFLG 

FINFIL 

FINOS  J 

FINREM 

FLAG 

FLSZ 

FLTFLG 

FNBEXT 

FNBLN 

FNBSZ 

FNBUFF 

FPOV 

FSLT 

F.ADD 

F.CEV 

F.CIR 

F.CLS 

F.EVT 

F.Fi.G 

F.H'SK 

F.L.  ' 

F.LIN 

F.LNK 

F.MOD 

F.NRBD 

F.NXT 
F.REM 
F.RSIZ 


000370 
100000 
000003 
000222  R6 

01^1^2  RG 
000252  RG 
01310^  R 
013632  R 
013732  R 
000062  R 
000020  G 
000044  R 
000006 
000264  RG 
000044  G 
00G266  RG 


015402  I 

015450 

000016 

000030 

000024 

000002 

000004 

000014 

=      ****** 

000016 
000020 
000000 
000022 

=  ****** 

000000 
000026 


GX 


GX 


GX 


F.SEi'     000004 
F.UR8D  -  ****** 


GX 


F.USE 

F.VAR 

GETSTR 

GRPUIC 

HEXIND 

HEXSTR 


000002 
000003 
016760  RG 
017062  RG 
015330  R 
000164  RG 


REFERENCES 

#5-77 

#5-77 

#7-194 

#7-176 
103-4551 

#y0-3819 

#7-181 
79-3512 
86-3693 
69-3181 

#6-129 

#7-177 

#6-124 

#7-193 

#7-187 

#7-190 

#7-189 
103-4539 
92-3938 
92-3946 

#5-77 

#5-77 

#5-77 

#5-77 

#5-77 

#5-77 
17-1087 

#5-77 

#5-77 

#5-77 

#5-77 
*8-292 
♦65-2959 
#5-80 
#5-77 
♦8-329 
♦16-948 
♦65-2920 
♦67-3065 
♦70-3239 
♦79-3506 
♦98-4258 
♦105-4707 
#5-77 
♦8-286 
♦69-3185 
#5-80 
#5-80 
#103-4569 
#104-4618 
93-3991 
#7-170 


98-4280 
7-177 


#80-3534 
#87-3718 
#88-3745 
♦84-3629 

103-4552 
♦77-3443 

101-4410 
♦101-4411 

98-4272 

7-190 

103-4599 
#96-4179 
#97-4211 


♦79-3497 
♦79-3499 
♦79-3503 

79-3493 


♦8-294 
♦65-2961 


•8-i02 

♦26-1569 

♦65-2926 

♦67-3074 

♦71-3257 

♦80-3542 

♦98-4272 


♦8-288 
♦88-3746 
98-4277 


93-3999 
95-4097 


90-3819 


I  1 

PAGE  5 

CREF   04.00 


90-3846    90-3847   ^90-3851 


♦90-3852 


101-4406   101-4407 


♦85-3647    86-3682 

♦79-3487  ^79-3489   ^79-3491 

102-4432   102-4443   102-4451 

101-4389 

7-191     7-192     90-3826 

104-4630   104-4676 


79-3503 

♦103-4541 

90-3857 


98-4276 


101-4388   102-4444 


♦79-3498 
•79-3500 


79-3498 


♦8-373 
♦69-3190 


♦8-418 

♦61-2753 

♦65-2956 

♦67-3083 

♦72-3280 

♦86-3686 

♦102-4451 


♦61-2752 

♦88-3748 

98-4278 


95-4115 
95-4102 


80-3543 
♦79-3501       ^79-3502 


79-3506 


'11-741 
♦69-3192 


♦8-448 

♦61-2778 

♦65-2960 

♦67-3093 

♦73-3303 

♦87-3726 

♦102-4454 


♦61-2754 
♦94-4062 
103-4524 


95-4117 
95-4113 


80-3542 


♦11-743 
♦  9':-4075 


♦8-457 

♦62-2792 

♦67-3017 

♦67-3103 

♦74-3318 

♦88-3747 

►102-4467 


♦61-2777 
♦94-4077 


♦11-742 

♦62-2808 

♦67-3027 

♦67-3110 

♦75-3344 

♦88-3762 

♦103-4524 


♦64-2892 
♦102-4466 


♦12-797 

♦63-2841 

♦67-3037 

♦69-3175 

♦75-3372 

♦94-4060 

♦103-4526 


♦64-2895 
♦102-4468 


♦13-834 

♦63-2863 

♦67-3046 

♦69-3184 

♦76-3392 

♦94-4063 

♦103-4530 


♦65-2923 


♦14-879 

♦64-2889 

♦67-3056 

♦69-3191 

♦76-3408 

♦94-4076 

♦103-4536 


♦64-2888 

♦64-2890 

♦65-2919 

♦65-2922 

♦69-3183 

♦94-4064 

♦98-4257 

♦98-4259 

♦102-4453 

♦102-4455 

♦103-4525 

103-4526 

#96-4138 

VNTI 
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VNTI      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:50 
SYMBOL  CROSS  REFERENCE 


I  2 
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CREF   0^.00 


VP 
LO 


SYMBOL  VALUE 


SDEUMR 

SDFUIC 

SDIGIT 

SDNUMB 

$EOS 

SEXIT 

SFAIL 

SFILHD 

SFMASK 

SGCLEP 

SGETAD 

SGETRV 


SGPRM 

SGTBUF 

SHMBUF 


SLAMDA 

SLGSTT 

SLSTAD 

$LSTRM 

SMAC 

SMAXOV 

$MFL 

$M'JL 

SNBIAS 

SNTCFP 

SNTCFS 

SNTLHB 

$NUMBR 

SOBJHD 

SOPTON 

SPARHD 

SPAVL 

SPDVNM 

SPDVTA 

SPUMR 

SPUTAD 

SPUTRC 


$08  IAS 
SQSTRT 
SOUAL 


=  ****** 
=  000024 
=  OOOOU 
=  000012 
=  000000 
=  177777 
=  ****** 
=  ****** 
=  ****** 
=  ****** 


GX 
GX 


GX 
GX 
GX 
GX 
GX 


****** 
003132  RG 
******  GX 


=  000000 

=  ****** 
=  ****** 
=  ****** 
=  ****** 
3  ****** 

017360 

-  ****** 
=  ****** 
=  ****** 

-  ****** 

-  ****** 
=  000002 

=  ***♦*♦ 

-  ****** 
=  ****** 
r:  ****** 
=  ****** 
:;  ****** 
=  ****** 

-  «■*>■*** 


GX 
GX 
GX 
GX 
GX 
RG 
GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 


GX 

GX 

**♦••  GX 


****** 
****** 


REFERENCES 

102-4467 
16-1018 
29-1726 
#18-1108 
#18-1108 
#18-1108 
#18-1108 
#18-1108 
79-3513 
8-225 
28-1702 
65-2926 
8-270 
26-1594 
64-2889 
67-3083 
74-3318 
18-1108 
13-839 
61-2752 
69-3183 
98-4261 
#18-1108 
*81-3563 
♦88-3757 
*88-3758 
29-1728 
13-828 
8-511 
24-1355 
*8-408 
8-460 
8-465 
»8-374 
#18-1108 
86-3694 
*107-4778 
8-266 
•8-378 
2R-1686 
<;c-1685 
*8-427 
8-402 
94-4060 
8-293 
26-1611 
67-3020 
67-3105 
75-3376 
»8-443 
*8-444 
M07-4780 


#19-1139 

#19-1139 

#19-1139 

#19-1139 

#19-1139 

80-3534 

8-327 

30-1752 

80-3542 

8-287 

26-1597 

65-2920 

67-3093 

75-3344 

19-1139 

14-884 

61-2758 

69-3187 

102-4453 

#19-1139 

89-3788 
89-3796 

14-873 
#106-4726 

24-1364 
♦8-414 

8-462 

8-467 
*8-375 
#19-1139 

87-3719 
♦108-4816 

17-1042 

56-2639 
56-2638 

8-418 

102-4451 

8-298 

26-1616 

67-3030 

67-3112 

76-3396 


#20-1178 
#20-1178 
#20-1178 
#20-1178 
#20-1178 

16-939 

87-3726 

8-329 

26-1607 

67-3017 

67-3103 

75-3372 

20-1178 

#15-908 
64-2888 
69-3190 
102-4457 

#20-1178 

89-3793 
♦89-3797 

53-2592 

24-1388 


♦8-476 
#20-1178 

♦109-4850 


96-4181 
59-2693 

8-448 

103-4526 

8-337 

61-2778 

67-3039 

69-3191 

76-3420 


#21-1220 
#21-1220 
#21-1220 
#21-1220 
#21-1220 


88-3762 

8-457 

26-1614 

67-3027 

67-3110 

76-3392 

21-1220 

64-2892 
88-3746 
102-4466 
#21-1220 

♦89-3795 


♦54-2610 
24-1417 


♦8-486 
#21-1220 


106-4731 
96-4180 

13-834 

103-4536 

8-459 

62-2801 

67-3048 

70-3243 

94-4076 


♦108-4818     ♦109-4852 


#22-1250 
#22-1250 
#22-1250 
#22-1250 
#22-1250 


98-4272 

16-948 

61-2753 

67-3037 

69-3184 

76-3408 

22-1250 

♦64-2893 
88-3750 


♦54-2611 
24-1430 


#23-1265 
#23-1265 
#23-1265 
#23-1265 
#23-1265 


103-4524 

17-1054 

62-2792 

67-3046 

70-3239 

88-3747 

23-1265 

65-2919 
94-4062 


#32-1884 
#32-1884 
#32-1884 
#32-1884 
#32-1884 


103-4530 

26-1573 

62-2808 

67-3056 

71-3257 

9'- -4063 

3     1884 

6.-2921 
94-4066 


#46-2329 
*46-2329 
#46-2329 
#46-2329 
#46-2329 


105-4707 

26-1577 

63-2841 

67-3065 

72-3280 

98-4258 

46-2329 

65-2954 
94-4075 


#22-1250      #23-1265       #32-1884       #46-2329 


24-1443 


#22-1250   #23-1265   #32-1884   #46-2329 


96-4192    106-4730 


14-879 

105-4709 

11-742 

62-2821 

67-3058 

71-3266 

102-4467 


65-2956 

12-797 
63-2844 
67-3067 
72-3291 


106-4749 
69-3175 


79-3506 


26-1569  26-1587 

63-2868  64-2894 

67-3076  67-3085 

73-3306  74-3330 


26-1583 
63-2863 
67-3074 
73-3303 
102-445', 


65-2959 
98-4257 


86-3686 

26-1592 
65-2960 
67-3095 
75-3357 


UMTI 
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VPIO  -  VNP  PROCESS  I/O  ROUTINES 
LOCAL  PATA 


121 

122 

123 

124 

125 

126  000000 

127 

128 

129 

130 

131 

132 

133  000000 

134  000047 
135 

136  000054 

137  000135 
138 

139 
140 
141 

142  000142 

143  000144 
144 

145 

146 

147 

148  000146 

149 

150 

151 

152 

153 

154  000150 

155  000152 

156  000154 
000157 
000162 
000165 

157  000166 
000171 
000174 
000177 

158  000200 
000203 
000206 
000211 

159 

160 

161 

162  000212 

163 

164 

165 

166 

167  000250 
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VPl 
PR. 


000001 
000000 

125 
115 
124 
000 
113 
115 
124 
000 
113 
115 
124 
000 


168 


116 
103 
123 

104 
103 
123 

104 
103 
123 


.S8TTL  LOCAL  DATA 
*** 

LOCAL  DATA 
*** 

.PSECT  DATA.D 


SPECIAL  CASE  ERROR  MESSAGES 


ERMSGS  <XN  VNP  —  Microcode  File  Open  Fail.ureXN> 

ERBLKS  UNAOP.MSGPRJ 

ERMSGS  <XN   VNP  —  Microcode  File  Label  Block  Read  ErrorXn> 

ERBLKS  UNARE.MSGPRI 


PROCESS  SIZES  (INCLUDING  EXTENSION) 


BLOX:    .8LKW   1 
BYTES:   .BLKU   1 


;  32.  WORD  BLOCKS 
;  BYTES 


101 
056 
113 

120 
056 
113 

132 
056 
113 


PROCESS  LINE  TABLE/CONTROLLER  TABLE  EXTENSION  SIZE 
EXTEND:  .BLKW   1 

MICROCODE  LOAD  PARTITION  DATA 

MCLOA  =  1 

MCFLG:  .UORD  0 

TMPOCB:  .BLKU  1 

UNAMC:  .ASCIZ  /UNAMC.TSK/ 

KDPMC:   .ASCIZ  /KDPMC.TSK/ 

KDZMC:   .ASCIZ  /KDZMC.TSK/ 

.EVEN 

MCFBF:   .BLK8   30. 

ERROR  INDICATION 
ERROR:   .BLKW   1 
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PR. PAR  -  FIND  PARTITION 


673  001740 

674 

675 

066701 

000016G 

ADD 

$SFRtP.SiZE,Rl   , 

GET  TOP  OF  PARTITION 

.IF  NDF 

R$$MPL 

676  001744 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#VF.SS,$VFLAG   , 

US  SYSTEM  ? 

677  001752 

001415 

BEQ 

45$ 

IF  NO  -  BRANCH 

678 
679 
680  001754 

.ENDC 

012702 

OOOOOOG 

MOV 

#SYSFDB,R2 
F.HiaK+2'R2),R2 

GET  FD8  ADDRESS 

681  001760 

016202 

000002G 

MOV 

GET  MAX  VBN 

682  001764 

162702 

000002 

SUB 

#2,R2 

CALCULATE  TOP  OF  MEMORY  IN  IMAGE 

683  001770 

000241 

CLC 

684  001772 

006302 

ASL 

R2 

685  001774 

006302 

ASL 

R2 

686  001776 

006302 

ASL 

R2 

687  002000 

020201 

CMP 

R2.R1 
50i 

LEGAL  BIAS  ? 

688  002002 

103007 

BHIS 

IF  YES  -  BRANCH 

689  002004 

690 

691  002006 

000403 

BR 

47$ 

CONTINUE 

022701 

007600 

45$ 

CMP 

#7600, R1 

WITHIN  124KW  (M  ONLY) 

692  002012 

103003 

BHIS 

50$ 

IF  YES  -  BRANCH 

693  002014 

694 

695  002022 

042767 

OOOOOOG 

OOOOOOG  47$ 

BIC 

#FL.T0P,$FLAGS 

IF  NO  -  LOAD  FIRSTFIT 

50$ 

CALL 

PR. SUB 

CREATE  SUB-PARTITION 

696  002026 

000503 

BR 

80$ 

697  002030 

032767 

OOOOOOG 

OOOOOOG  60$ 

BIT 

#FL.CEX,$FLAGS 

IS  THIS  THE  COMM  EXEC? 

698  002036 

001430 

BEQ 

70$ 

IF  EQ,  NO 

699  002040 

016701 

000014G 

MOV 

P.fiEL+$BFR,R1 

GET  PARTITION  START  IN  BLOCKS 

700  002044 

010102 

MOV 

R1,R2 

COPY  IT 

701  002046 

ASL$ 

6,R1 

CONVERT  TO  BYTES 

702  002062 

026001 

OOOOOOG 

CMP 

L$8SA(R0),R1 

WAS  CEX  BUILT  FOR  THIS  PARTITION 

703  002066 

001076 

BNE 

130$ 

IF  NE,  NO 

704  002070 

066702 

00001 6G 

ADD 

P.6LKS+$BFR,R2 

ADD  SIZE  TO  START  ADDRESS 

705  002074 

022702 

001000 

CMP 

#1000, R2 

IS  PARTITION  WITHIN  FIRST  16K? 

706  002100 

103007 

BHIS 

70$ 

•  IF  HIS,  YES 

707  002102 

032767 

000004 

OOOOOOG 

BIT 

#FE.EXV,$FMASK 

•  IS  20K  EXEC  SUPPORTED? 

708  002110 

001505 

BEQ 

170$ 

•  F  EQ,  NO 

709  002112 

022702 

001200 

CMP 

#1200, R2 

•   S  PARTITION  WITHIN  FIRST  20K? 

710  002116 

103502 

BLO 

170$ 

•  IF  LO,  NO 

711  002120 

026767 

000142' 

000016G  70$ 

CMP 

BL0X,P.BLKS+$BFR 

;  IS  PARTITION  BIG  ENOUGH  ? 

712  002126 

713 

714  002130 

101062 

BHI 

140$ 

•  IF  HI,  NO 

032767 

000200 

000030G 

BIT 

#PS.COM,P.STAT+$BFR  ;  COMMON  PARTITION? 

715  002136 

001462 

BEQ 

150$ 

;  IF  EQ,  NO 

716  002140 

105767 

000025G 

TSTB 

P.BUSV+1+$BFR 

;  IS  PARTITION  BUSY? 

717  002144 

001063 

BNE 

160$ 

;  IF  NE,  YES 

718  002146 

016704 

000012G 

MOV 

P.MAINt$BFR,R4 

;  GET  MAIN  PARTITION  PCB  ADDRESS 

719  002152 

GETRV 

R4 

;  ,EAD  IN  PCB 

720  002162 

105767 

000025G 

TSTB 

P.BUSY+1+$BFR 

;  IS  MAIN  PARTITION  BUSY? 

721  002166 

001052 

BNE 

160$ 

;  IF  NE,  YES 

122   002170 

GETRV 

R5 

;  READ  IN  PCB 

723  002200 

156767 

000024G 

000025G 

BISB 

P.8USY+$BFR,P.8U 

SY  +  1+$BFR  ;  SET  PARTITION  B'JSY 

724  002206 

PUTRC 

;  REWRITE  PCB 

725  002212 

016746 

000024G 

MOV 

P.8USY*-$BFR,-(SP 

5  ;  SAVE  BUSY  FLAG 

726  002216 

GETRV 

R4 

;  READ  IN  PCB 

727  002226 

152667 

000025G 

BISB 

(SP)t,P.BUSY+l+$8FR  ;  SET  MAIN  PARTITION  BUSY 

728  002232 
729 

PUTRC 

;  REWRITE  PCB 

;[MP01J 
;CMP01] 


VPIl 

MAC! 

MACI 

ASL! 
ASR' 
CACI 
CALI 


CALI 
CRA 
CTRI 
DHBl 
ECDI 
ERBi 
ERM 
ERR 
GET 
GET 

HWD 
PCB 
PUT 
PUT 
RAN 


RET 


J     4 

loin   _   wMD   DDnrc<:c    i /n   Dni;Ttwc<:   M4rpn   ufiR    K\h,   UerlnBcrisv    ?R-Aiin-R5   20:03      Paap    14-2 


I     5 


VPIO 

CREATED  BY  MACRO  ON  28 

-AUG-85  AT  20 

04     PAGE 

5 

MACRO  CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

ASL$ 

#5-58 

#5-82 

11-460 

12-549 

12-550 

14-701 

ASRS 

#5-58 

12-542 

13-610 

CACDFS 
CALL 

#5-59 
9-268 

5-71 
9-273 

9-275 

9-277 

9-278 

9-283 

9-292 

9-295 

9-298 

10-333 

10-351 

10-352 

10-355 

10-358 

10-361 

10-363 

10-372 

10-374 

10-383 

10-386 

10-39A 

10-396 

10-399 

11-455 

12-489 

12-517 

12-530 

12-545 

13-599 

13-606 

U-650 

K-695 

14-719 

14-722 

14-724 

14-726 

14-728 

15-773 

15-805 

15-809 

15-813 

15-819 

15-822 

15-826 

15-828 

15-831 

15-851 

15-854 

15-857 

15-859 

16-901 

16-904 

17-960 

17-962 

17-963 

CALLR 

15-870 

CRASH 

9-310 

CTRDFS 

#5-59 

5-70 

DHBDFS 

#5-58 

5-69 

ECDDBS 

#5-59 

5-72 

ERBLKS 

#5-59 

7-134 

7-137 

ERMSGS 

#5-59 

7-133 

7-136 

ERRPTS 

#5-59 

10-394 

10-399 

GETAD 
GETRV 

#5-58 
#5-58 

9-292 

10-333 

10-383 

13-599 

14-650 

14-719 

14-722 

14-726 

15-809 

15-813 

15-819 

15-828 

15-831 

15-851 

15-857 

16-901 

HWDDFS 

#5-58 

5-67 

PCBDFS 

#5-58 

5-68 

PUT  AD 
PUTRC 

#5-58 
#5-58 

9-295 

10-386 

14-724 

14-728 

15-805 

15-822 

15-826 

15-854 

15-859 

RAND 

#9-292 

9-292 

#9-295 

9-295 

#10-333 

10-333 

#10-383 

10-383 

#10-386 

10-386 

#13-599 

13-599 

#14-650 

H-650 

#14-719 

14-719 

#14-722 

14-722 

#14-724 

14-724 

#K-726 

14-726 

#14-728 

14-728 

#15-805 

15-805 

#15-809 

15-809 

#15-813 

15-813 

#15-819 

15-819 

#15-822 

15-822 

#15-826 

15-826 

#15-828 

15-828 

#15-831 

15-831 

#15-851 

15-851 

#15-854 

15-854 

#15-857 

15-857 

#15-859 

15-859 

#16-901 

• O-901 

RETURN 

9-301 
15-867 

10-379 
16-906 

10-391 
16-913 

11-441 
17-947 

11-464 
17-965 

12-562 

12-578 

13-614 

14-736 

15-861 

■J'"MI 

#5-58 

VPRi 
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VPR 
$R0 


3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
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.TITLE  VPRO  -  VNP  SET  PROCESS  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  "SET  PROCESS"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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VF 


600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 
610 
6-11 
612 
613 
6U 
615 
616 
617 

618  00K52 

619  001472 

620  001476 
621 

622  001500 

623  001504 

624  001506 

625  001512 

626  001514 

627  001516 

628  001520 
629 

630  001522 

631  001524 

632  001530 

633  001534 
634 

635  001550 

636  001554 
637 

638  001556 

639  001562 

640  001566 

641  001604 

642  001610 
643 

644  001612 

645  001614 

646  001620 

647  001622 

648  001632 
649 

650  001636 

651  001640 
652 

653  001642 

654  001644 

655  001650 

656  001656 


$R0L 
INPUTS: 

OUTPUTS: 


005767  000060G 
001534 

016704  000060G 
010401 

016705  000062G 
001401 

005201 
005201 
060501 

006301 

062701   000077 

042701   000077 


103506 


$ROL: 


10$: 


016702 
016202 

OOOOOOG 
OOOOOOG 

010067 
010403 

000024G 

005203 
010367 
005002 

000022G 

010267 

000026G 

010501 
001413 

005201 
010167 
016767 
006303 

000030G 
000024G  000032G 

.SBTTL  $ROL  -  ALLOCATE  REACHABILITY  TABLES 
ALLOCATE  REACHABILITY  TABLES 

$PDVA  -  XPT  PDV  ADDRESS 

REACHABIIITY  TABLES  ALLOCATED 

NSROAI   -  NUMBER  OF  ENTRIES  IN  NODE  REACHABILITY  TABLE 

N$R0A1+2  -  BIAS  OF  NODE  REACHABILITY  TABLE 

NSROAI +4  -  VIRTUAL  ADDRESS  OF  NODE  REACHABILITY  TABLE 

N$R0A2   -  NUMBER  OF  ENTRIES  IN  AREA  REACHABILITY  TABLE 

N$ROA2+2  -  BIAS  OF  AREA  REACHABILITY  TABLE 

N$R0A2+4  -  VIRTUAL  ADDRESS  OF  AREA  REACHABILITY  TABLE 


GETRV 

TST 

BEQ 

MOV 
MOV 
MOV 
BEQ 
INC 
INC 
ADD 

ASL 
ADD 
BIC 

ASR$ 

CALL 
BCS 

MOV 

MOV 

GETRV 

MOV 

MOV 

INC 

MOV 

CLR 

BIAS 

MOV 

MOV 
BEQ 

INC 
MOV 
MOV 
ASL 


$DECPT,#0$END 

$BFR+D$NN 

70$ 

$8FR+D$NN,R4 

R4,ft1 

$BFfi+D$NA,R5 

10$ 

R1 

R1 

R5,R1 

R1 

#77,fi1 
#77, R1 
6,R1 

$ALN18 
80$ 

$PDVA,R2 

Z.DAT(R2),R2 

R2,#N$XLEN 

R0,N$ROA1+2+$BFR 

R4,R3 

R3 

R3, NSROAI +$BFR 

R2 

R2 

R2,N$ROA1t4+SBFR 

R5,R1 
20i 

R1 


READ  DECNET  HOME  BLOCK 

GET  MAX  NODES 

IF  ENDNODE  -  BRANCH 

STORE  MAX  NODES 
COPY  MAX  NODES 
STORE  MAX  AREAS 
IF  NONE  -  BRANCH 
INCLUDE  EXTRA  AREA  ENTRY 
INCLUDE  EXTRA  NODE  ENTRY 
INCLUDE  AREAS 

CONVERT  TO  BYTES 
ROUND  UP  TO  NEXT  BLOCK 

CALCULATE  NUMBER  OF  BLOCKS 

ALLOCATE  POOL.. 

THIS  SHOULD  NEVER  OCCUR,  BUT 

GET  XPT  PDV  ADDRESS 
GET  XPT  DDB  ADDRESS 
READ  XPT  DDB 
STORE  BIAS  OF  NODE  ROL 
GET  MAX  NODES 

INCREASE  BY  ONE 

STORE  NUMBER  OF  ENTIRES  IN  NODE  ROL 

SET  VIRTUAL  ADDRESS 


GET  MAX   AREAS 

IF   LEVEL1    -  BRANCH 


R1,N$R0A2t$BFR 

NSROAI +2*-$BFR,N$R0A2+2  +  $BFR 

R3 


INCREASE  BY  ONE 

STORE  NUMBER  OF  ENTRIES  IN  AREA  ROL 
STORE  BIAS  OF  AREA  ROL 
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1182 

1183 

118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

119A 

1195 

1196  O0A504 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120-; 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123'!. 

1235 

1236 

1237 

1238 


.S8TTL   SCTSYM  -  FIND  SYMBOLS  FROM  CETAS 

«**  -  SCTSYM  -  FIND  SYMBOLS  FROM  CETAB 

INPUT: 

SNAME  =  RAD50  PROCESS  NAME 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

SCTBAD  =  CTB  ADDRESS  FOR  THIS  PROCESS  (ZERO  IF  NOT  A  DDM) 


;CMP01] 


SCTSYM: 


.IF  DF 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 

TST 

BEQ 

SWTCHl 

SWTCHO 

MOV 

ADD 

MOV 

MOV 


RSSMPL 

SNAME, CTBSYM+2 

#SDFUIC,RO 

ffCETNAM.RI 

#ST6EXT,R2 

SAZFS 

#CTBLK,RO 

SSYMBL 

CT8LK+2 

20$ 


SNTLHB+.CXALL,R1 
CTVAL,R1 
RI.SCTBIM 
RI.SCTBAD 


SEE  IF  CTB  ALREADY  IN  LIST 


3$: 


5$: 


MOV 

MOV 

BEQ 

GETRV 

CMP 

BNE 

MOV 
ADD 
MOV 
MOV 
RETURN 


MOV 
ADD 
MOV 
MOV 
MOV 


SCTLST.SBFR 

$BFR,RO 

5$ 

R0,#L.KRB+2 

R0,R1 

3$ 

#$CETAB,RO 
CTVAL.RO 
RCCTBSAV 
RO.SCTBAD 


*SCETAB,RO 

TVAi  RO 
RO.CIBSAV 
RO.SCTBAD 
$CTLST,L.LNK(RO) 


FORM  SYMBOL  NAME  TO  LOOK  FOR  "SCTXXX  ' 

GET  THE  COMM  EXEC  UIC 

FORM  ASCIZ  FILE  SPEC  "[XX,5X3CETAB.STB' 


GET  SYMBOL  BLOCK  TO  LOOK  FOR 

LOOK  FOR  IT 

WAS  SYMBOL  DEFINED  ? 

IF  EQ,  NO  ..  ASSUME  IT  IS  N01  A  DDM 

SET  DEFAULT  BUFFERS 

;  GET'sTART  OF  CETAB 
CALCULATE  FIRST  CTB  ADDRESS 
SAVE  CTB  ADDRESS 
SAVE  CTB  ADDRESS  AGAIN 


GET  START  OF  CTB  LIST 

STORE  NEXT  CTB  ADDRESS 

IF  END  OF  LIST  -  BRANCH 

READ  CTB 

IS  THIS  OUR  CTB  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

CALCUALTE  CTB  ADDRESS  IN  VNP  TEMPLATE 


SAVE  THIS  FOR  VALT  ROUTINE 
CTB  ALREADY  IN  LIST 


CALCUALTE  CTB  ADDRESS  IN  VNP  TEMPLATE 


SAVE  THIS  FOR  VALT  ROUTINE 
;  LINK  CTB  INTO  FRONT  OF  CTB  CHAIN 
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vv 
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EEEEEEEEEE 
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LL 

SSSSSSSS 
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LL 
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LL 

SS 

LL 

SS 

LL 
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SS 

.L 

SSSSSS 

LL 

SSSSSS 

LL 
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LL 

SS 

LL 
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359 
360 
361 
362 
363 
36A 
365 
366 
367 
368 

369  001332  010C46 

370  001334  116700  000206' 

371  001340  062600 

372  001342  006300 

373  001344  010046 

374  001346  006300 

375  001350  006300 

376  001352  062600 

377  001354  062700  001414' 

378  001360 
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.SBTTL  SLFNP  -  SETUP  LOCAL  flLE  NAME  POINTER 
SLFNP  -  SETUP  LOCAL  FILE  NAME  POINTER 

RO^NUMSER  TO  ADD  TO  GCL  LEVEL  INDICATOR  (0=CURRENT,  1=PREVI0US) 

OUTPUTS: 

R0=LOCAL  FILE  NAME  AREA  ADDRESS 

SLFNP: 


MOV 

RO,-(SP) 

SAVE  CURRENT/PREVIOUS  INDICATOR 

MOVB 

$CLEVL,RO 

GET  CURRENT  GCL  LEVEL 

ADD 

(SP)+,RO 

ADJUST  LEVEL  BY  ORIGINAL  RO  VALUE 

ASL 

RO 

2X 

NOV 

RO,-(SP) 

SAVE  2X  VALUE 

ASL 

RO 

4X 

ASL 

RO 

8X 

ADD 

(SP)+,RO 

10X 

ADD 

#NAMES-10. 

,R0 

OFFSET  INTO  LOCAL  STORAGE  AREA 

RETURN 

J  10 
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971 
972 
973 
97^ 
975 
976 
977 
978 
979 
980 
981 
982 
983 
98^ 
985 
986 
987 
988 
989 
990 
991 
992 
993 
99^ 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
100A 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
lOU 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 


00'4366 
00A366 


.SBTTL  $GETRC,$GETRV  -  GET  A  RECORD  FORM  SYSTEM  IMAGE  FILE 

»*-$GETRC 
•*-$GETRV 

GET  A  RECORD  FROM  THE  SYSTEM  IMAGE  FILE.  THE  RECORD 

CANNOT  BE  MORE  THAN  512.  BYTES  BUT  CAN  CROSS  BLOCK 

BOUNDARIES.  THE  ADDRESS  SUPPLIED  TO  THIS  ROUTINE  IS 

ASSUMED  TO  BE  IN  THE  EXECUTIVE  VIRTUAL  ADDRESS  SPACE.  ^  „,, 

THE  ADDRESS  IS  VALIDATED  ;  I.E.  IT  CHECKS  [MP01] 

TO  BE  SURE  THAT  THE  ENTIRE  RECORD  DESCIBED  BY  SRADDR  8 

SRSIZE  IS  ENTIRELY  WITHIN  THE  EXECUTIVE  ADDRESS 

SPACE. 

INPUTS: 

SRADDR  -ADDRESS  OF  THE  RECORD. 
SRSIZE  -SIZE  OF  THE  RECORD. 

°^  ^   ALL  ENTRIES  WILL  CHECK  IF  THE  RECORD  ADDRESS  IS  INVALID,  THEN  A  CMPOI] 
FATAL  ERROR  IS  DECLARED.  ELSE  THE  SPECIFIED  RECORD  IS  READ  FROM 
THE  TASK  IMAGE  FILE  INTO  SBFR. 

NOTE:  ALL  REGISTERS  ARE  PRESERVED  ACROSS  CALL. 


SGETRV: 


004366 
004372 
004376 
004400 
004404 
004406 
004412 


016746  174064 

032716  000001 

001122 

066716  173654 

103517 

012746  120000 

032767  000004  177256 


.MCALL 

HUDDFS 

HWDDFS 

HARDWARE  OFFSETS 

.ENA8L 

LS8 

.IF  DF 

RSSMPL 

; CMPOI ] 

BIT 

#160000, SRADDR 

ADDRESS  WITHIN  FIRST  4KW  ? 

; CMPOI ] 

BEQ 

1$ 

IF  YES  -  BRANCH 

; CMPOI] 

BIT 

#DF.DAS,SDFLAG 

D-SPACE  ENABLED  ? 

; CMPOI] 

BEQ 

IS 

IF  NO  -  BRANCH 

; CMPOI] 

MOV 

SR8LCK,RB 

SAVE  BIAS 

; CMPOI] 

MOV 

.D8IAS,SRBLCK 

IF  YES  -  MAP  TO  RSX  POOL 

; CMPOI ] 

MOV 

SRADDR, RA 

SAVE  VIRTUAL  ADDRESS 

; CMPOI] 

CALL 

06LK 

CALCULATE  BLOCK  AND  ADDRESS 

; CMPOI] 

CALL 

SGETAD 

TAKE  A  LEAP 

; CMPOI] 

MOV 

RA, SRADDR 

RESTORE  VIRTUAL  ADDRESS 

.-CMPOI] 

MOV 

RB,SRBLCK 

RESTORE  BIAS 

; CMPOI] 

RETURN 

.-CMPOI] 

.ENDC 

.-CMPOI] 

MOV 

SRADDR, -(SP) 

GET  ADDRESS  OF  RECORD 

BIT 

#i.(sp5 

ODD  ADDRESS? 

BNE 

30i 

IF  NE  YES 

ADD 

SRSIZE, (SP) 

CALCULATE  HIGHEST  ADDRESS 

BCS 

30S 

IF  CS  ADDRESS  OVERFLOW 

MOV 

#120000, -(SP) 

ASSUME  20K  EXEC 

BIT 

#FE.EXV,SFMASK 

20K  EXEC  SUPPORTED? 
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LINSIZ 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP^- 

LN.OPE= 

LN.REF= 

L^J.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LQ.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET= 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKN 

LO.SNM 

LO.TPA 

L0.TR8 

LO.TRI 

LO.iJMT 


001024RG 


000000 
000005 
OOOOOA 
000003 
000003 
000001 


000000  G 


000004 

000001 

000002 

000002 

000017 

000360 

000006 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

0000A7 

000004 

000024 

000040 

000032 

000062 

000060 

000046 

000030 

000004 

000034 

000022 

000024 

000044 

000002 

000022 

000012 

000004 

000056 

000026 

000010 

000012 

000064 

000030 

000016 

000054 

000014 

000014 

000035 

000020 

000034 

000030 

000053 


LO.VCT 

LO.VER 

LR.ACC 

LR.ACO 

LR.ADD 

LR.ALl 

LR.BLK 

LR.CTL 

LR.DES 

LR.HLP 

LR.LIN 

LR.NAM 

LR.PAS 

LR.PRO 

LR.STS 

LR.TRI 

LR.TYP 

LR.UCB 

LR.UIC 

LR.UNT 

LS.ALI= 

LS.CEX= 

LS.CIR= 

LS.CXO= 

LS.CX5= 

LS.ECH= 

LS.FDX= 

LS.HDX= 

LS.HLP= 

LS.LIN= 

LS.LMC= 

LS.LOG= 

LS.MOD= 

LS.NOD= 

LS.NT1= 

LS.OBJ= 

LS.OPT= 

LS.PRO= 

LS.TOP= 

LS.TST= 

LS.UNF= 

LS.XIT= 

LX.AL1= 

LX.CEX= 

LX.CIR= 

LX.LIN= 

LX.LOG= 

LX.NOD= 

LX.08J= 

LX.PRO= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

L.COST 

L.CTL 

L.CVA 


000014 

000042 

000020 

000052 

000012 

000002 

000010 

000004 

000010 

000002 

000002 

000012 

000041 

000002 

000000 

000006 

000002 

000016 

000020 

000005 

000016 

000001 

000033 

010000 

000400 

001000 

004000 

010000 

000012 

000003 

000007 

000020 

000036 

000014 

000013 

000022 

000400 

000002 

002000 

000010 

020000 

000011 

000017 

000004 

000034 

000006 

000021 

000015 

000023 

000005 

000000 

000000 

000001 

000000 

000015 

000012 

177776 


L.DDM 
L.CDS 
L.DLC 


DLM 
DLS 
FLG 
KRBA 
LEN  = 
MPF 
NMST 
.NSTA 
,OWNR 
_,UNT 
MACTYP 
MAXOV 
MPAR  = 
MPCSR  = 
MS.ALL= 
HS.CJR= 
HS.CSR= 
MS.EXT= 
MS.INC= 
MS.LLC= 
MS.MTP= 
MS.MUX= 
MS.PRI= 
MS.SEC= 
MS.VCT= 
M$$CRB= 
H$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR=: 
NAMES 
NONMAP 
NTPNAM 
NTPPAR 
NTPSAV 
NTPSIZ 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
N.ANM1= 
N.ANM2= 
N.DID  = 
N.DVNM= 
N.FID  = 
N.FNAM= 
N.FTYP= 
N.FVER= 
N.NEXT= 


000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013  . 

001034RG 

000476RG 

172100 

177746 

000437 

001000 

000001 

000200 

000100 

000040 

000010 

000420 

000002 

000400 

000004 

000124 

000000 

000000 

000000 

000000 

000000 

001426R 

001000RG 

000734RG 

000740RG 

000756RG 

000750RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000002 

000024 

000024 

000032 

000000 

000006 

000014 

000016 

000022 


N.STAT= 

000020 

OP$STA= 

89829^ 

N.UNIT= 

000034 

OP$TPA= 

000020 

OF$INS= 

000001 

0P$TR1= 

000040 

OFSLOG- 

000100 

OP$UCS= 

000020 

OF$OFF= 

000002 

OP$USE= 

000002 

OF  SON  = 

000000 

OP$VEC= 

000040 

OF$SMC= 

000200 

OP$\/ER= 

000040 

OP$ADD= 

000200 

OP$XAC= 

000001 

OP$ALL== 

000200 

OP$XPR= 

000002 

OP$CCS= 

000004 

CP$X5S= 

000004 

OP$CIE= 

004000 

0P$X9S= 

000010 

OP$CON= 

000400 

PBLOX 

001004RG 

0P$COP= 

000001 

PDVNAM 

001036RG 

0P$C0S= 

000100 

PF.PSV= 

000002  G 

OP$DST= 

000200 

PF.XDF= 

000001  G 

OP$DTE= 

000040 

PF.XGA= 

000004  G 

OP$DUP= 

000002 

PJRQ  = 

177772 

OP$ESr= 

000100 

PMOOE  = 

030000 

OP$EVE= 

010000 

PREFIX 

001622R 

OP$FIL= 

000200 

PREF2 

001631R 

OP$GRP= 

000100 

PRO   = 

000000 

OP$HOS= 

000001 

PR1   = 

000040 

OP$HTM= 

000002 

PR4 

000200 

OP$INA= 

004000 

PR5 

000240 

OP$INC= 

001000 

PR6   = 

000300 

OP$KDS= 

002000 

PR7   = 

000340 

OP$KDT= 

000400 

PS 

177776 

OP$KEV= 

001000 

PSTART 

001002RG 

OP$KGR= 

001000 

PUMR 

001010RG 

OP$KNT= 

010000 

P$$P45= 

000000 

OP$KSK= 

002000 

P$$WRD= 

000000 

OP$LCT= 

000200 

QF$ACT= 

000001 

OP$LNE= 

000040 

QF$ALL= 

000002 

OP$LOC= 

000001 

QF$KNO= 

000004 

OP$LST= 

000002 

QF$LOO= 

000010 

OP$LTM= 

000001 

Q$$OPT= 

000010 

OP$LVL= 

000010 

Q.IOAE= 

000012  G 

OPSMAC= 

000010 

Q.IOEF= 

000006 

OP$MCO= 

000002 

Q.IOFN= 

000002  G 

OP$MDE= 

000400 

Q.10LU= 

000004 

OP$MLI= 

000004 

Q.10PL= 

000014  G 

0P$MON= 

000100 

Q.10PR= 

000007 

OP$MST= 

000020 

Q.10SB= 

000010  G 

OP$NAM= 

000004 

RA 

000730RG 

OP$NET= 

004000 

RB 

000732RG 

OP$NLI= 

000002 

RQB 

003430RG 

OP$NOD= 

000020 

RQBST  = 

003430RG 

0P$OUT= 

002000 

R$$DER= 

000000 

0P$0WN= 

000020 

R$$K11= 

000001 

OP$PAR= 

000010 

R$$SND= 

000000 

OP$PR  = 

000010 

R$$11M= 

000000 

OP$RET= 

010000 

SBFLG 

000772RG 

OP$RPA= 

000010 

SBNAM 

000766RG 

OP$SCO= 

000001 

SBPAR 

000762RG 

OP$SEG= 

000400 

SBPCB 

000746RG 

OP$SER= 

000400 

SBPOOL 

000760RG 

OP$SIN= 

000010 

SF.ACT= 

000200  G 
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SYMBOL  CROSS  REFERENCE 
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PAGE  11 

CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

SLGPDV 

004122  RG 

#17-848 

SLGSTT 

004130  RG 

#17-851 

SLGUIC 

004176  RG 

#17-863 

SLLCTA 

003710  RG 

#17-763 

$LOUSZ 

000472  RG 

#6-124 

19-1091 

SLSTAD 

000724  RG 

#7-170 

$LSTRM 

000722  RG 

#7-169 

SLTMFC 

004010  RG 

#17-802 

$MAC 

001616  RG 

#13-398 

SMAXOV 

004120  RG 

6-126 

#17-847 

SMISS 

002014  RG 

#15-460 

$MXVCT 

003604  RG 

#16-707 

SNAME 

002344  RG 

#15-516 

$NBIAS 

004072  RG 

#17-829 

SNMCLH 

004212  RG 

#17-868 

SNMLST 

004110  RG 

#17-841 

SNTLHB 

004266  RG 

#17-968 

SNTLPT 

004066  RG 

#17-827 

SNTUIC 

004264  RG 

#17-966 

SOB.IHD 

004112  RG 

#17-842 

SOPTON 

002004  RG 

#15-456 

SPANK 

=  »»*«*♦  GX 

14-446 

22-1275 

SPARHD 

003700  RG 

#16-753 

SPAVL 

004106  RG 

#17-839 

SPDVA 

002342  RG 

#15-515 

SPOVNM 

003712  RG 

#17-764 

SPDVTA 

003704  RG 

#17-761 

SPFLAG 

003416  RG 

#15-622 

SPRAVL 

004260  RG 

#17-941 

SPRV.N 

001266  RG 

#11-344 

SPSHPT 

000174  RG 

#6-102 

SPSIPT 

004032  RG 

#17-813 

25-1350 

SPUMR 

004100  RG 

#17-834 

SPUTAD 

004700  RG 

#20-1157 

SPUTRC 

004444  RG 

#19-1058 

SPUTRD 

004444  RG 

#19-1079 

SPWRFl 

004102  RG 

#17-837 

SQBIAS 

004074  RG 

#17-830 

SQSTRT 

004076  RG 

#17-831 

SQUAL 

002010  RG 

#15-458 

SRADDR 

000456  RG 

#6-118 

18-1021 

19-1084 

19-1095 

21-1222    23-1285 

SRBLCK 

000460  RG 

#6-119 

21-1213 

23-1285 

♦24-1313 

•24-1322   *24-1323 

IRDBAF 

004060  RG 

#17-824 

SRDBCT 

004052  RG 

#17-821 

SRDBLH 

004054  RG 

#17-822 

SRDBNM 

003722  RG 

#17-768 

SRDBSZ 

003724  RG 

#17-769 

SRDBTH 

003742  RG 

#17-776 

SRDQCT 

004064  RG 

#17-826 

SRDOSL 

004062  RG 

#17-825 

SREP.C 

001222  RG 

#10-309 

11-342 

SREP.N 

001272  RG 

11-343 

#11-346 
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ERROR  MESSAGES 
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196 
197 
198 
199 

200  000370 

201  000371 

202  OOOAOO 
205 

20^ 
205 
20f. 
207 
208 

209  000506 

210  000540 

211  0006U 

212  000652 

213  000730 
2K  000764 

215  001020 

216  001064 

217  001126 

218  001164 

219  001220 

220  001302 

221  001350 

222  001410 

223  001440 

224  001466 

225  001530 

226  001550 

227  001604 

228  001644 

229  001700 

230  001734 

231  001772 

232  002036 

233  002074 

234  002134 

235  002210 

236  002252 

237  002320 
238 

239 
240 
241 

242  002352 

243  002353 

244  002366 
245 

246 

247  OCOOOO 


015 
126 


116 


.SBTTL  ERROR  MESSAGES 

ERROR  MESSAGE  BUFFER 

fRRMSG:  .BVTE  15 

120         .ASCII  "VNP  —  " 

ERRBUF:  .BLKB  70. 

.EVEN 


ERROR  MESSAGES 

NTLERS 
NTLERS 
NTLERS 
NTLER$ 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


,99,7,SRERR,REP7,,<IUegal  function> 
,98,7,SRERR,REP7, ,<Communications  executive  not  loadecO 
,97,7,$RERR,REP7,,<Process  not  in  system> 
,96,7,$RERR,REP7,,<Garbage  in  process  descriptor  \/ector> 
,95,7,SRERR,REP7,,<Line  not  in  system> 
,94,7,SRERR,REP7,,<Ulegal.  CSR  address> 
,93,7,SRERR,REP7,,<IUegal.  interrupt  priority> 
,92,7,SRERR,REP7,,<iaegal.  interrupt  vector> 
,91,7,$RERR,REP7,,<No  data  block  address> 
,90,7,$RERR,REP7,,<Ulegal  unit  number> 

,88,7,$RERR,REP7,  ,<Garbage  in  DLC  process  descriptor  \/ector> 
,87,7,SRERR,REP7,,<Units  not  in  ascending  order> 
,86,7,SRERR,REP7,,<Tributary  not  in  system> 
,Zl,7,$RERR,REP7,,<De\/ice  offline> 
,Z3,7A,SRERR,REP7A,,<stiU  active> 
,Z4,7,SRERR,DEV7,,<Deuice  **:  stiU  mQunted> 
,Z5,7B,$RERR,REP7B, ,<loaded> 
,Z6,7,SRERR,REP7,,<Line  in  wrong  state> 
,Z7,7,SRERR,REP7,,<Device  **:  stiU  active> 

,<Node  in  wrong  state> 

,<Line  in  wrong  state> 

,<Vector  not  in  system> 

,<Process  may  not  be  unloaded> 

,<XPT  process  not  found> 
,02,7,SRERR,REP7,,<XPT  process  not  loaded> 
,03,7,SRERH,REP7,,<Re\/erse  mapping  table  inconsistent> 
,04,7,SRERR,REP7,,<Line  not  assigned  to  XPT>  ;*; 

,05,7,SRERR,REP7,,<Line  parameter  not  applicable>      ;*; 
,06,7,SRERR,REP7,,<PSI  not  generated> 


,Z8,7,SRERR,REP7,, 

,Z8,7,SRERR,REP7, 

,ZP,7,SRERR,REP7, 

,ZR,7,$RERR,REP7, 

,01,7,SRERR,REP7, 


000 
103 
114 


ERROR  MESSAGE  FORMAT  STRINGS 


150 
151 


141 
156 


FMT7: 

FMT7A: 

FMT78: 


.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

.PSECT 


"Channel 
"Line  « 
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VRQB  -  VNP  PROCESS  REQUEST  BLOf  MACPO  V05.03b  Tuesday  30-Jul-85  10:53 
SLTA  -  GET  SLT  ADDRESS 


M 


630  0012H 

001415 

BEQ     121$ 

631  001216 

026702 

OOOOOOG 

CMP     $DDMPV,R2 

632  001222 

001001 

BNE     30$ 

633  001224 

005002 

CLR     R2 

63A  001226 

010267 

OOOOOOG 

30$.- 

MOV     R2,$DLCPV 

635  001232 

RETURN 

636 
637 
638 
639 

640  001234 

;  ERROR 

CONDITIONS 

101$: 

EMSG$R  95 

641  001242 

1 1 1  $  : 

EMSG$R  90 

642  001250 

121$: 

EMSG$R  88 

643  001256 

131$: 

EMSG$R  86 

Page  19-1 


IF  ED,  NO 

COMBINATION  DDM/DLC? 
IF  NE,  NO 

INDICATE  NO  DLC  PDV 
SAVE  DLC  PDV  ADDRESS 


LINE  NOT  IN  SYSTEM 
ILLEGAL  UNIT  NUMBER 
GARBAGE  IN  DLC  PDV 
TRIBUTARY  NOT  IN  SYSTEM 
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tFPDV  -  f IND  PDV 


IM 


Page  28 


10  V. 

1035 

1036 

1037 

1038 

1039 

10A0 

10A1 

1042 

10'!i5 

10A/ 

1045 

10A6  002776 

10A7  002776 

10A8  003000 

1049  003004 

1050  003010 

1051  003012 

1052  003014 

1053  003016 

1054  003022 

1055  003024 

1056  003026 

1057  003030 

1058  003032 

1059  003034 

1060  003036 

1061  003040 

1062  003044 
10b3  003050 
1064  003052 


0100^6 
016701 
016702 
001407 
012100 
001403 
026016 
001403 
005302 
001371 
000261 
005226 
006016 
005741 
166701 
010167 
006316 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 
000246' 


.SBTTL  $FPDV  -  FIND  PDV 

$FPDV  -  TRY  TO  FIND  PDV 

INPUTS: 

RO=RAD50  PDV  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
RO=PDV  ADDRESS 
R1,R2=DESTR0YED 

IfPDV: 


(SP) 


MOV 

RO,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

BtQ 

30$ 

10$: 

MOV 

(R1)+,R0 

BEQ 

20$ 

15$: 

CMP 

Z.NAM(RO) 

BEQ 

40$ 

20$: 

DEC 

R2 

BNE 

10$ 

m: 

SEC 

40$: 

INC 

(SP)  + 

RDR 

(SP) 

TST 

-(Rl) 

SUB 

$PDVTA,R1 

MOV 

R1,P!)VX 

ASL 

(SP) 

RETURN 

SAVE  NAME  TO  BE  MATCHED 
GET  PDV  TABLE  ADDRESS 
AND  NUMBER  OF  PDV'S 
IF  ZERO,  NO  PDV'SI 
GET  PDV  ADDRESS 
IF  ZERO,  SKIP  THIS  ONE 
DOES  THE  NAME  MATCH? 
IF  EQ,  YES  (C-SIT  CLEAR) 

LOOP  $PDVNM  TIMES 
INDICATE  FAILURE 
PURGE  STACK 
SAVE  C-BIT 
CALCULATE  PDV  INDEX 

SAVE  PDv' INDEX  VALUE 
RESTORE  C-BIT 
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CREf        0^.00 


SYMBOL 

VALUE 

REFERENCES 

HRDADD 

01A550  RG 

#93-3988 

HSAD 

OUAO^  RG 

#91-3903 

HSAR 

0U36^  RG 

#91-3897 

IBUF 

00004A  RG 

#19-1139 

30-1798 

IBUFO 

000000  RG 

#18-1108 

30-1783 

1BUF2 

0001 2A  RG 

#20-1178 

30-1811 

IBUF3 

000254  RG 

#21-1220 

30-1768 

IBUFA 

000306  RG 

#22-1250 

30-1771 

IBUF5 

000324  RG 

#23-1265 

30-1774 

IE. EOF 

=   »«*»**     Gx 

28-1710 

INAC 

010624  R 

#67-3054 

INCT 

010500  R 

#67-3035 

INIBUF 

016002  R 

#99-4340 

101-4390       103-4545       103-4549 

lO.WVB 

=   »»*»»«     GX 

10-624 

I  PL 

011022  R 

#67-3081 

ISTATE 

000466  RG 

31-1873 

#32-1884 

I$$AS 

=:     »****♦ 

5-72 

5-75 

KBUF 

000002  RG 

#19-1139 

30-1797 

KBUFO 

000000  RG 

#18-1108 

30-1782 

KBUF2 

000004  RG 

#20-1178 

30-1810 

<BUF3 

000014  RG 

#21-1220 

30-1767 

3UF4 

000020  RG 

#22-1250 

30-1770 

■.BUF5 

000022  RG 

#23-1265 

30-1773 

KISARO 

=   172340 

#5-75 

k:lSAR6 

=   172354 

#5-75 

KUORD 

000032  RG 

31-1872 

#32-1884 

LBRA 

=  000074 

#27-1666 

LODLM 

017636  R 

106-4753 

#108-4808 

LDLINE 

017516  R 

106-4756 

#107-4777 

LDPRO 

020026  R 

106-4738 

#109-4849 

LD.ALI 

=  000030 

#5-78 

LD.CEX 

=  000024 

#5-78 

LD.CIR 

=  000035 

#5-78 

LD.LIN 

=  000025 

#5-78 

LD.LOG 

=  000031 

#5-78 

LD.MOD 

=  000037 

#5-78 

LD.NOD 

=  000027 

#5-78 

LD.OBJ 

=  000032 

#5-78 

LD.PRO 

=  000026 

#5-78 

LET 

=  000100 

#7-202 

96-4140 

LF.ACT 

=  lO^OOO 

#5-73 

LF.BRO 

=  000400 

#5-73 

59-2703 

LF.BWT 

=  000007 

#5-73 

LF.ENA 

=  002000 

#5-75 

28-1695         59-2705         59-2714 

LF.LPB 

=  0010CO 

#5-73 

LF.MDC 

=  000100 

#5-73 

LF.MFL 

=  004000 

#5-73 

28-1695         59-2712         66-3002 

LF.MTP 

=  000020 

#5-73 

LF.PAC 

^  000200 

#5-73 

LF.RDY 

^  040000 

#5-73 

LF.REA 

=  010000 

#5-73 

LF.SER 

=  000040 

#5-73 

28--;695 

103-4553 


106-4746 


rocsTPn  nv      MArBn     nw   PQ-IIIN-R5   AT   02:50 
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VNTI  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:50 

SYMBOL    CROSS  REFERENCE 


SYMBOL      VALUE 
SRADDR      =   .»*..♦      GX 


$RAD50 

SRBLCK 

SRDBCT 

SRDBLH 

SRDBNM 

SRDBS 

SRDBSZ 

SRDBTH 

SRETI 

$RET2 

SRONLY 


SRSIZE 
SRSNTI 
SSAVAL 
SSAVRG 
SSAVVR 
SSDSCT 
SSDBLH 
SSDBNM 
SSDBS 


=  000016 
=   ******     (_ 
=    ******      GX 
=   ******     GX 
-   «*«♦**     GX 

00264A  RG 

=   «***»♦     GX 

-^   ******     GX 

001356  RG 

OOHOO  RG 

=   ****** 


****** 

020156 
****** 
****** 
****** 
****** 
****** 
****** 
002776 


GX 

RG 
GX 
GX 
GX 
GX 
GX 
GX 

RG 


REFERENCES 

♦8-268 
♦8-457 
♦26-1577 
♦62-2808 
♦67-3027 
♦67-3110 
♦75-334A 
♦88-3762 
♦103-A524 
#18-1108 
♦8-390 
♦5A-2608 
13-830 
13-822 
8-503 
13-823 
53-2591 
#8-521 
8-522 
18-1108 
21-1220 
32-1884 
♦8-267 
#110-4880 
10-583 
108-4808 
12-775 
♦54-2609 
14-875 
14-866 
8-499 


8-280 
♦11-742 
♦26-1583 
♦63-2841 
♦67-3037 
♦69-3175 
♦75-3372 
♦94-4060 
♦103-4526 
#19-1139 
♦8-415 

13-831 
53-2587 
#13-819 
53-2588 


#8-527 
18-1108 
21-1220 
32-1884 

♦17-1043 

28-1682 


14-876 
53-2589 
#14-863 


SSDBSZ 

=       ****** 

GX 

14-868 

53-2590 

$SLTA 

=       ****** 

GX 

♦59-2700 

59-2709 

SSLTMA 

=       *♦♦**♦ 

GX 

28-1691 

59-2683 

SSLTNM 

;:      ****** 

GX 

28-1692 

59-2684 

SSTRNG 

=  000004 

#18-1108 

#19-1139 

SSUBXP 

=  000010 

#18-1108 

#19-1139 

SSWOVL 

::     ****** 

GX 

8-519 

8-525 

SUHRAL 

002262 

R 

8-362 

#11-684 

SVFLAG 

-      ****** 

GX 

♦8-523 

♦8-527 

SVNTI 

000000 

RG 

#8-218 

$VRQB 

=    ****** 

GX 

110-4879 

SXAVL 

-    ****** 

GX 

♦8-382 

♦8-389 

SXBIAS 

-    ****** 

GX 

♦8-381 

♦8-388 

SXLINK 

-    *♦*♦♦♦ 

GX 

105-4713 

SXPAR 

=    ****** 

GX 

16-972 

16-976 

SSL  I  NX 

=    ****** 

GX 

♦67-3019 

SSNODC 

-    ****** 

GX 

•67-3029 

SSSARG 

=  000003 

#10-624 

10-624 

SSSFLG 

^   U7777 

#18-1108 

#19-1139 

SSSGLB 

r    ****** 

10-624 

ssskey 

=  177777 

#18-1108 

#19-1139 

J    2 
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CREF       04.00 


♦8-287 

♦12-797 

♦26-1594 

♦63-2863 

♦67-3046 

♦69-3184 

♦76-3392 

♦94-4063 

♦103-4530 

#20-1178 

♦8-445 

♦13-836 
54-2606 


18-1108 
21-1220 
32-1884 


♦8-295 

♦13-834 

♦26-1597 

♦64-2889 

♦67-3056 

♦69-3191 

♦76-3408 

♦94-4076 

♦103-4536 

#21-1220 

♦13-829 

♦13-837 
54-2608 


19-1139 
22-1250 
46-2329 


8-305 
♦14-879 
♦26-1607 
♦65-2920 
♦67-3065 
♦70-3239 
♦79-3506 
♦98-4258 
♦105-4707 
#22-1250 
♦14-874 


♦16-955         ^16-956 


♦8-329 

♦16-948 

♦26-1614 

♦65-2926 

♦67-3074 

♦71-3257 

♦80-3542 

♦98-4272 


19-1139 
22-1250 
46-2329 


19-1139 
22-1250 
46-2329 


106-4726       110-4877 


♦14-881 
54-2609 


66-2991 

97-4220 

#20-1178 

#20-1178 


♦14-882 


97-4215 
106-4743 
#21-1220 
#21-1220 


♦16-958         ^16-959 


106-4742 

#22-1250 
#22-1250 


#23-1265 
#23-1265 


17-1083   ♦110-4878  ♦110-4881 


#10-624 
#20-1178 


10-624 
#21-1220 


#10-624 
#22-1250 


10-624 
#23-1265 


VP 
LC 


♦8-402 

♦17-1054 

♦61-2753 

♦65-2956 

♦67-3083 

♦72-3280 

♦86-3686 

♦102-4451 


♦8-418 

♦26-1569 

♦61-2778 

♦65-2960 

♦67-3093 

♦73-3303 

♦87-3726 

♦102-4454 


♦8-448 

♦26-1573 

♦62-2792 

♦67-3017 

♦67-3103 

♦74-3318 

♦88-3747 

♦102-4467 


#23-1265   #32-1884   #46-2329 


20-1178 
23-1265 


20-1178 
23-1265 


20-1178 
23-1265 


#32-1884 
#32-1884 


#46-2329 
#46-2329 


#10-624 
#32-1884 


10-624 
#46-2329 


10-624 


#20-1178       #21-1220       #22-1250       #23-1265       #32-1884       #46-2329 


rDCSTFn   nv     Msrun     nw   PQ-iiiM-RS    AT   02:50 


PAGE   20 


K     2 


[,: 


L 


J  3 

VPIO  -  VNP  PROCESS  I/O  ROUTINES  MACRO  V05.03b  Uednesday  28-Aug-85  20:03  Page  7-1 
LOCAL  DATA 


VP! 
PR. 


169 

170 

171 

172  000252 

173 

17A 

175 

176 

177  00025A 

178 

179 

180 

181 

182  000260 

183 

18^. 

185 

186 

187  000262 

188 

189 

190 

191 

192 

193  000000 

194  000000 
195 

196  OOOCOO 


PARTITION  CONTROL  BLOCK  ADDRESS 
PCBA:    .BLKU   1 

PARTITION  NAME 
iPNAME::.BLKW   2 

LOAD  SIZE  OF  PROCESS 
$LDSIZ::.BLKW   1 

UNA  Micro  code  error  msg  buffer 
MBUF:    .BLKB   80. 


BLOCK  I/O  BUFFER 


DSKSUF: 


.PSECT 
.BLKW 

.PSECT 


..8UF,D 
1 


wDin  _  v/MD  DDnrccc  i /n  onnTiMPc;  MATDn  yiD'^    n^h  UoHnPcHAv  PR-Aun-fiS  Pnif)"^   Paop  8 
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PR. PAR  -  FIND  PARIITION 


Page  U-2 


730 
731 
732  002236 

.ENDC 

010567 

000252' 

80$: 

MOV 

R5,PCB/i 

733  002242 

005767 

000250' 

90$: 

TST 

ERROR 

734  002246 

001401 

BEQ 

110$ 

735  002250 

000261 

100$ 

SEC 

736  002252 

110$ 

RETURN 

737 
738 
739 
740 
741  002254 

;•  ERROR  CONDITIONS 

012^67 

000022 

000250' 

120$ 

MOV 

*ERR18 

ERROR 

742  002262 

000767 

BR 

90$ 

743  002264 

012767 

000024 

000250' 

130$ 

MOV 

*ERR20 

ERROR 

744  002272 

000763 

BR 

90$ 

745  002274 

012767 

000026 

000250' 

140$ 

MOV 

i»ERR22 

ERROR 

746  002302 

000757 

BR 

90$ 

747  002304 

012767 

000030 

000250' 

150$ 

MOV 

#ERR24 

ERROR 

748  002312 

000753 

BR 

90$ 

749  002314 

012767 

000032 

000250' 

160$ 

MOV 

#ERR26 

ERROR 

750  002322 

000747 

BR 

90$ 

751  002324 

012767 

000034 

000250' 

170$ 

MOV 

#ERR28 

ERROR 

752  002332 

000743 

BR 

90$ 

;[MP01J 


SET  PCS  ADDRESS 

DID  ERROR  OCCUR  IN  KERNEL  MODE?  (CLEARS  C-SIT) 

IF  ZERO,  NO 

INDICATE  FAILURE 


PARTITION  NOT  IN  SYSTEM 

PROCESS/PARTITION  BASE  ADDRESS  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSV 

ILLEGAL  COMM  EXEC  PARTITION 


nnt;    n7K    i.iorjno 
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♦«F!LE'*ID>«VPRMPT 


VPRI 
MACi 


vv 

vv 

pppppppp 

RRRRRRRR 

MM 

MM 

pppppppp 

TTTTTTTTTT 

vv 

vv 

pppppppp 

RRRRRRRR 

MM 

MM 

pppppppp 

TTTTTTTTTT 

\l\l 

vv 

pp    pp 

RR      RR 

MMMI^ 

MMMM 

pp      PP 

vv 

vv 

pp    pp 

RR      RR 

MMMf 

MMMM 

PP      PP 

vv 

vv 

pp    pp 

RR      RR 

MM 

«IH  MM 

PP      PP 

vv 

vv 

pp    pp 

RR      RR 

MM 

*IM  MM 

PP      PP 

\/v 

vv 

pppppppp 

RRRRRRRR 

MM 

MM 

PPPPPPPP 

\/v 

vv 

pppppppp 

RRRRRRRR 

MM 

MM 

PPPPPPPP 

vv 

vv 

pp 

RR  RR 

MM 

MM 

PP 

vv 

vv 

pp 

RR  RR 

MM 

MM 

PP 

vv 

vv 

pp 

RR    RR 

MM 

MM 

PP 

vv 

vv 

pp 

RR    RR 

MM 

MM 

PP 

vv 

pD 

RR      RR 

MM 

MM 

PP 

vv 

pp 

RR      RR 

MM 

MM 

PP 

SSSSSSSS 

TTTTTTTTTT 

SSSSS5SS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

ssssss 

ssssss 

SS 

SS 

SS 

SS 

lLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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MACRO  DEFINITIONS 


VPR 
$RC 


54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 

74  000000 

75  000000 

76  000000 
11 

78 


.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL  ASL$,EMSG$R,GETRV,PUTRC,GETAD,PUTAD,CTRDF$,XPDDB$,SLTDF$ 
.MCALL  BIAS,ASR$,ECDDB$,DHBDF$,RESRG,SAVR6,CACDF$,ADJDF$ 
.MCALL  SWTCHI,SWTCHO,VECDF$,NTLDF$,CEACC$ 


.JF  DF  R$$MPL 

.MCALL  CTSDFS 

CTBDFS 

.ENDC 

CTRDFS 

ADJDFI 

ECDDBI 

XPDDBS 

SLTDFS 

DHBDF$ 

CACDFS 

VECDFS 

NTLDFS   ,,H 

.ENA8L  LC 

CMP01D 
CMP01] 
CMPOI] 
[MP01] 


DEFINE  ECL  COUNTERS  OFFSETS  AND  SYMBOLS 
DEFINE  ADJACENCY  DATA  BASE  SYMBOLS 
DEFINE  ECL  DATA  BASE  OFFFSETS 
DEFINE  XPT'S  DDB  OFFSETS  AND  SYMBOLS 
DEFINE  SLT  OFFSETS  AND  SYMBOLS 
DEFINE  DECNET  HOME  BLOCK  OFFSETS 
DEFINE  CACHE  OFFSETS 
DEFINE  VECTOR  BLOCK  OFFSETS 
DEFINE  NTL  HOME  BLOCK  OFFSETS 
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SROL   -   ALLOCATE    REACHABILITY   TABLES 
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VI 

$1 


657  001660 

658  001664 
659 

660  001670 
661 

662  001674 

663  001676 

664  001700 

665  001702 
666 

667  001704 

668  001706 

669  001710 
670 

671  001712 

672  001716 

673  001720 
674 

675  001724 

676  001726 

677  001730 

678  001734 

679  001736 
680 

681  001742 

682  001762 

683  001764 

684  001766 
685 

686  001770 

687 

688 

689  001772 

690 


066703  000026G 
010367  000034G 


060504 
005204 
005705 
001401 

005204 
006304 
010401 

022704  001000 

002002 

012704  001000 

160401 

010405 

012703  OOOOOOG 

105023 


060402 
010104 
001351 


ADD 
MOV 

N$R0AU4t$BFR,R3 
R3,N$R0A2+4t$BFR 

20$: 

PUTRC 

ADD 
BEQ 

R5,R4 
R4 
R5 
30$ 

30$: 

INC 

ASL 
MOV 

R4 
R4,R1 

40$: 

CMP 
BGE 
MOV 

#512. ,R4 
50$ 
#512. ,R4 

50$: 
60$: 

SUB 

MOV 

MOV 

CLRB 

SOB 

R4,R1 
R4,R5 
#$BFR,R3 
(R3)  + 
R5,60$ 

PUTAD 
ADD 
MOV 
BNE 

R2,R4,R0 
R4,R2 
R1,R4 
40$ 

70$: 

RETURN 

80$: 

EMSG$R 

99 

GET  START  OF  NODE  ROL  TABLE 
SET  VIRTUAL  ADDRESS  OF  AREA  ROL 

WRITE  XPT  DDB  TO  IMAGE 

DETERMINE  TOTAL  NUMBER  OF  ENTRIES 
ALLOW  ONE  MORE  ENTRY  FOR  NODE  ROL 
MULTI  AREA  ? 
IF  NO  -  BRANCH 

ALLOW  ONE  MORE  ENTRY  FOR  AREA  ROL 
CONVERT  TO  BYTES 
COPY  ROL  SIZE 

MORE  THAN  ONE  BLOCK  ? 

IF  NO  -  BRANCH 

SET  SIZE  TO  ONE  BLOCK 

CLACULATE  REMAINING  SIZE 
SAVE  TRANSFER  SIZE 
STORE  BUFFER  ADDRESS 
INIT  BUFFER 


WRITE  ROL  TO  IMAGE 
UPDATE  VIRTUAL  ADDRESS 
COPY  REMAINING  SIZE 
IF  YES  -  BRANCH 


ROL  ALLOCATION  FAILURE 
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VPRO  -  VNP  SET  PROCESS  ROUTINES  MACRO  V05.03b  Wednesday  28-Aug-85  20:01 
SCTSVM  -  FIND  SYMBOLS  FROM  CETAB  ;[MPOT] 


1239 
12A0 
12A1 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 


SWTCHO 

PUTRC 

SWTCHO 

MOV 


*$CTLST 
$CT8IM,#2 
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SET  BUFFER 

UPDATE  CTB  POINTER  IN  IMAGE 

REST  BUfFER 


R1,$CTLST 
SEARCH  DEVICE  LIST  FOR  RE-CONFIGURATION  DEVICE 


10$: 


20$: 


MOV 

MOV 

BEQ 

GETRV 

CMP 

BNE 

MOV 
MOV 
CLC 
RETURN 


$DEVHD,$BFR 

$8FR,R0 

101$ 

R0,#D.PCB+2 

$RCDEV,$BFRtD.NAM 

10$ 

CTBSAV,R1 
R0,L.DCB(R1) 


GET  START  OF   DEVICE   LIST 

GET  NEXT  DCB  ADDRESS 

IF   EQ,    END  OF    LIST 

READ  NEXT  DCB 

;    IS    THIS   THE   RE-CONFIGURATION  DEVICE 

IF   NE,   NO   ..    KEEP  LOOKING 

GET   CTB  ADDRESS 

STORE   DCB  ADDRESS    IN  CTB 

SUCCESS 

RETURN  TO  USER  MODE 


000001 


ERROR   CONDITIONS 
01$:        EMSG$R      9A 
.ENDC 

.END 


;  ERROR  -  COULD  NOT  FIND  RE-CONFIGURATION  DEV. 
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VRES  -  VNP  ROOT  MACRO  V05.03b  Tuesday  17-Sep-85  16:15 
Table  ot  contents 

MACRO  DEFINITIONS 

DATA 

SAZFS  -  SET  UP  ASCIZ  FILE  SPEC 

SETUP  DEFAULT  FILE  NAME 

$REP.C,$REP.P  -  REPLACE  FILE  NAME 

SREP.N  -  REPLACE  ERROR  CODE 

$CUR.N,$PRV.N  -  REPLACE  FILE  NAME  AND  ERROR  CODE 

SLFNP  -  SETUP  LOCAL  FILE  NAME  POINTER 

$ASFS  DATA 

ERROR  HANDLING 

DATA  FOR  INPUT  PARAMETERS 

RSX  DATA  FROM  RSX11M.STB 

CEX  DATA 

$GETRC,$GETRV  -  GET  A  RECORD  FORM  SYSTEM  IMAGE  FILE 

SPUTRC  -  PUT  RECORD  TO  SYSTEM  IMAGE  FILE 

SPUTAD  -  PUT  RECORD  TO  SYSTEM  IMAGE  FILE 

SGETAD  -  GET  RECORD  FROM  SYSTEM  IMAGE  FILE 

$VGCL  -  GET  COMMAND  LINE 

ERROR  MESSAGES 

SCEACC  -  ACCESS  BLOCK  IN  EXTENDED  POOL 

SSWOVL  -  SWITCH  OVERLAYS 
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SASFS  DATA 
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380 
381 
382 
383 
38A 
385 

386  001 

387  001 

388  001 

389  001 

390  001 

391  001 

392  001 

393  001 

394  001 

395  001 

396  001 

397  001 

398  001 
399 
400 


.SBTTL  $ASFS  DATA 
SAZFS  DATA  AREA 


362  000000  FNPTR: 

364  015  FNERR: 

365  126  116  120 

374  123  131  072  FILE:: 

426  NAMES: 

534  123  131  060  SDFUIC:; 

552  130  130  130  SDFNAM:: 

564  103  105  124  $CET: 

573  122  123  130  $RSX: 

602  103  105  130  $CEX: 

606  124  123  113  DFEXT: 

612  123  124  102  $STB: 

616  115  101  103  SMAC: 


.NLIST 

BEX 

.WORD 

0            ;  POIN 

.BYTE 

15 

.ASCII 

"VNP  —  " 

.ASCIZ 

"SV:[XXX,XXX]XXXXXXXXX 

.BLKB 

7*10. 

.ASCIZ 

"SY0:[XXX,XXX]" 

.ASCIZ 

"XXXXXXXXX" 

.ASCIZ 

"CETAB  " 

.ASCIZ 

"RSXIIM" 

.ASCIZ 

"CEX" 

.ASCIZ 

"TSK" 

.ASCIZ 

"STB" 

.ASCIZ 

"MAC" 

.rVEN 

.NLIST 

BEX 

POINTER  TO  FILENAME 


.XXX 
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$GETRC,$GETRV  -  GET  A  RECORD  FORM  SYSTEM  IMAGE  FILE 

1028  00A420  001002  BNE 

1029  00«22  012715  100000  MOV 
1050  004426  022626  10$:    CMP 
1031  004450  103505  BLO 
1032 
1053  004432  SGETRC:: 

1034  004432  004267  OOOOOOG  $GETRD::JSR 

1035  004436  012746  OOOOOOG  MOV 

1036  004442  000404  BR 
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10$ 

#100000, (SP) 
(SP)*,(SP)+ 
30$ 


R2,$SAVVR 

#.GET,-(SP) 

20$ 


IF  NE  YES 

SET  LIMIT  FOR  MAPPED  SYSTEM 

VALID  ADDRESS? 

IF  LO  NO 


SAVE    VOLATILE    REGISTERS 

SET  ADDRESS  OF   RECORD  ACCESS  ROUTINE 
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Symbol,  table 


SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC  = 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SISDRO= 

SLFNP 

SLTNUM 

3PARE1 

SPARE2 

SPSAV 

SRC   = 

SR3   = 

SUBPAR 

SWR 

SYSDNB 

SYSFDB 

S$tWRG= 

S$$YS2= 

S.ANM1= 

S.ANM?= 

S.BFHD= 

S.COST 

S.ETEF= 

S.FATT= 

S.FDB  = 

S.FLG 

S.FNAM= 

S.FNB  = 

S.FNBW= 

S.FNTV= 

S.FTYP= 

S.LEN 

S.MPR 

S.NFEN= 

S.NMST 

S.OWNR 

TIOUT 

TOPFLG 

TPS 

TY$CHA= 

TY$EVE= 

TY$STA= 

TY$SUM= 

T$$KMG= 

T$$MIN= 

UBMPR  = 

UDSARO= 

UDSDRO= 

UISARO= 

UISAR4= 

UISAR5= 

UISAR6= 

UISAR7= 
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000100  G 

U1SDR0= 

177600 

000004  G 

U1SDR4= 

177610 

000040  G 

UISDR5= 

177612 

000020  G 

U  SDR6= 

177614 

000010  G 

U  SDR7= 

177616 

000001  G 

UMRFLG 

000776RG 

000002  G 

UMRPTR 

000774RG 

000040  G 

VF.ACP= 

001000  G 

172200 

VF.ADD= 

000400  G 

001532R 

VF.DLX= 

004000  G 

001040RG 

VF.EAD= 

020000  G 

004220RG 

VF.ECH= 

000020  G 

004224RG 

VF.FIX= 

000100  G 

001006RG 

VF.INI= 

000040  G 

177572 

VF.NTi= 

000001  G 

172516 

VF.ON  = 

000002  G 

000744RG 

VF.PEM= 

002000  G 

177570 

VF.PSI= 

040000  G 

00041 6R 

VF.SED= 

100000  G 

000256RG 

VF.SKA= 

010000  G 

000000 

VF.SS  = 

000010  G 

007600 

VF.TRA= 

000004  G 

000014 

VF.VDT= 

000200  G 

000005 

V$$CTR= 

001000 

000020 

vi.ns;y= 

000001  G 

000001  G 

UC.CNT= 

000400 

000002 

UC.EVE= 

004000 

000016 

WC.TRI= 

002000 

000140 

WC.UNT= 

001000 

000000  G 

W.TSEF= 

000002 

000006 

X$$DBT= 

000000 

000036 

ZF.COU= 

001000  G 

000017 

ZF.DDM= 

000001  G 

000004 

ZF.DIA= 

004000  G 

000002 

ZF.DLC= 

000002  G 

000004  G 

ZF.DVP= 

100000  G 

003550R 

ZF.IN1= 

040000  G 

000020 

ZF.KMX= 

000020  G 

000002  G 

ZF.LLC= 

000004  G 

000003  G 

ZF.LMC= 

000100  G 

OOOOOOR 

ZF.MAN= 

020000  G 

000754RG 

ZF.MFL= 

000010  G 

177564 

ZF.MTM= 

000400  G 

000400 

ZF.MUX= 

000040  G 

001000 

ZF.PSE= 

002000  G 

002000 

ZF.SLI= 

010000  G 

000000 

ZF.TIM= 

000200  G 

000000 

ZF.X3P= 

000000  G 

000000 

ZS.ASN= 

100000  G 

170200 

ZS.BSY= 

140000  G 

177660 

Z.AVL 

000014  G 

177620 

Z.DAT 

000016  G 

177640 

Z.DSP 

000000  G 

177650 

Z.FLG 

000010  G 

177652 

Z.LEN  = 

000016  G 

177654 

Z.LLN 

000006  G 

177656 

Z.MAP 

000020  G 

Z.NAM 

2. PCS 

Z.SCH 

$ADRX 

$ADRZ 

SASTLV 

$AZFS 

$BFR 

SBIAS 

SBIGCT 

$CBDSG= 

SCCBAF 

SCCBAL 

SCCBCT 

SCCBLH 

SCCBNM 

SCCBSZ 

SCEACC 

SCEAVL 

SCELFN 

$CET 

SCETAB 

SCETDF 

SCETLN 

SCETND 

SCETST 

$CEX 

SCEXND 

SCLASN 

SCLAST 

$CL8UF=: 

SCLCSl 

SCLEVL 

SCLFDB 

SCLFLG 

$CLIOS= 

SCLMCR 

SCLPMT 

SCLPRM 

SCLQIO 

$CLRTN= 

SCLSBK 

SCLSEF 

$CLSIZ= 

SCLSRV 

$CLT8F 

SCLTSZ 

SCLWEF 

SCMAND 

SCMFRK 

SCMPDV 

SCPBIA 

$CRAVL 

$CTIM 

SCUR.N 

SCXOPT 

$C5TA  = 


000004  G 

000012  G 

000007  G 

000504RG 

000502RG 

000210RG 

001042RG 

OOOOOORG 

002346RG 

000726RG 

**»**♦  GX 

003734RG 

003740RG 

003732RG 

004040RG 

00371 6RG 

003720RG 

005622RG 

004236RG 

004210R 

001564RG 

OOOOOORG 

004242RG 

004244RG 

OOOOOORG 

004246RG 

001602RG 

004234RG 

000162RG 

000172RG 

000310RG 

000212RG 

000206RG 

000266RG 

000464RG 

000132RG 

OOOOOORG 

000466RG 

000472R 

000122RG 

******  GX 

000176RG 

0001 56RG 

000306RG 

000470RG 

000202RG 

000204RG 

000152RG 

002006RG 

003752RG 

003744RG 

000474RG 

004252RG 

002364RG 

001260RG 

004070RG 

******  GX 


$DDFNC 
SDDMPV 
SDECPT 
SDEVHD 
$DFN 

003  SDFNAM 
$DFN2 

004  SDFUIC 
SDLCPV 
$ERMSG= 
SEROUT 
SEVDSC 
SEXSJZ 
SFEATR 
SFILHD 
$FLAGS 
SFMASK 
SFNOUT 
$FPDV   = 
$FUNC 
$GCLEP= 

006  SGENND 
SGENST 
SGETAD 

007  SGETRC 
SGETRD 
SGETfiV 
SHMBUF 

003  $ICBI  = 

'"  SICBLN 

$KRBLN= 

SLDBAF 

. .  SLGCON 

003  SLGDDB 

003  SLGFNB 

003  SLGMON 

003  SLGPDV 

003  SLGSTT 

003  SLGUJC 

003  SLLCTA 

SLOWSZ 

003  SLSTAD 

003  SLSTRM 

003  SLTMFC 

003  $HAC 

003  $MAXOV 

003  $MISS 

003  SHXVCT 

$NAME 

SNBIAS 

SNMCLH 

SNMLST 

SNTLHB 

SNTLPT 

SNTUIC 

SOBJHD 

SOPTON 


003 
003 
003 
003 


004036RG 

002420RG 

004030RG 

003672RG 

001160RG 

001552RG 

001162RG 

001534RG 

002416RG 

******  GX 

001674RG 

004132RG 

003674RG 

002020RG 

004126RG 

003406RG 

003676RG 

001642RG 

******  GX 

002002RG 

******  GX 

000720RG 

00071 6RG 

004712R6 

004432RG 

004432RG 

004366RG 

000612RG 

000016  G 

00201 6RG 

000004  G 

003736RG 

004204RG 

004124R6 

004152RG 

004200RG 

004122RG 

004130RG 

0041 76R6 

003710RG 

000472RG 

000724RG 

000722RG 

00401  ORG 

001616RG 

004120R6 

002014RG 

003604RG 

002344RG 

004072RG 

004212RG 

004110RG 

004266RG 

004066RG 

004264RG 

004112RG 

002004RG 


$PANIC= 

**♦♦♦*  GX 

SPARHD 

003700RG 

$PAVL 

004106RG 

$PDVA 

002342RG 

$PDVNH 

00371 2RG 

SPDVTA 

003704RG 

SPFLAG 

003416RG 

SPRAVL 

004260RG 

SPRV.N 

001266RG 

SPSHPT 

000174RG    003 

SPSIPT 

004032RG 

$PUMR 

004100RG 

SPUTAD 

004700RG 

SPUTRC 

004444RG 

SPUTRD 

004444RG 

SPWRFl 

0041 02RG 

SQBIAS 

004074RG 

SQSTRT 

004076RG 

$QUAL 

002010RG 

SRADDR 

000456RG 

SRBLCK 

000460RG 

SRDBAF 

004060RG 

SRDBCT 

004052RG 

SRDBLH 

004054RG 

SRDBNM 

003722RG 

SRDBSZ 

003724RG 

SRDBTH 

003742RG 

SRDQCT 

004064RG 

SRDQSL 

004062RG 

SREP.C 

001222RG 

SREP.N 

001272RG 

SREP.P 

001226RG 

$RET1  = 

******  GX 

$RET2  = 

******  GX 

$RSIZ 

000454RG 

$RSIZE= 

000260RG 

$RSX 

001573RG 

$SAVVR= 

******  GX 

SSDBAF 

004050RG 

SSDBCT 

004042RG 

SSDBLH 

004044RG 

SSDBNH 

003726RG 

SSDBSZ 

003730RG 

SSHLST 

004216RG 

$SLN 

002422RG 

SSLTA 

002414RG 

SSLTMA 

003706RG 

SSLTNM 

003714RG 

SSNAPT 

004034RG 

SSQRCM 

0041 16RG 

$STB 

001612RG 

SSTMFC 

003770RG 

SSWOVL 

00571 6RG 

SSYMND 

003672RG 

SSYMTB 

003550RG 

SSYSIZ 

003702RG 

$TCK50 

004114RG 
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SYMBOL  VALUE 


REFERENCES 


SREP.P 

001226  RG 

#10-312 

tRETI 

=  »»«««»  Gx 

25-1354 

SRET2 

=  ».♦«**  Gx 

25-1356 

$RSIZ 

000A54  RG 

*6-116 

tRSIZE 

=  000260  RG 

#6-117 

tRSX 

001573  RG 

#13-394 

$SAVVR 

=  *»*♦**  GX 

18-1034 

SSDBAF 

004050  RG 

#17-820 

SSDBCT 

00AO42  RG 

#17-817 

SSDBLH 

00A044  RG 

#17-818 

SSDBNM 

003726  RG 

#17-770 

SSDBSZ 

003730  RG 

#17-771 

SSHLST 

00A216  RG 

#17-915 

$SLN 

002A22  RG 

#15-541 

SSLTA 

002A1A  RG 

#15-538 

$SLTMA 

003706  RG 

#17-762 

SSLTNM 

003714  RG 

#17-765 

SSNAPT 

004034  RG 

#17-814 

ISQRCM 

004116  RG 

#17-845 

$STB 

001612  RG 

#13-397 

SSTMFC 

003770  RG 

#17-793 

SSWOVL 

005716  RG 

#25-1346 

SSYMND 

0036-2  RG 

#16-742 

SSYMTB 

003550  RG 

#16-655 

SSYSIZ 

003702  RG 

#16-754 

$TCK50 

004114  RG 

#17-844 

STIOUT 

001654  RG 

#14-417 

STKlOO 

004114  RG 

#17-843 

STMPBF 

000000  RG 

#7-203 

STMPND 

000000  RG 

#7-208 

$TRIB 

002340  RG 

#15-513 

STYPE 

002012  RG 

#15-459 

STISCL 

004012  RG 

#17-803 

STIOOC 

003772  RG 

#17-794 

STIOOQ 

003764  RG 

#17-790 

$T50CL 

003772  RG 

#17-795 

$T500 

003764  RG 

#17-791 

SUNBAD 

000510  RG 

#6-136 

SUNBLK 

000512  RG 

#6-137 

SUNBSZ 

000506  RG 

#6-135 

SUNEND 

000612  RG 

#6-138^^ 

SVACP 

=  ««««*«  GX 

25-1355 

SVCTOF 

000464  RG 

#6-121 

SVCTVB 

000462  RG 

#6-120 

SVFLAG 

003412  RG 

#15-589 

SVFLGl 

003414  RG 

#15-620 

SVGCL 

005022  RG 

#22-1253 

SXAVL 

004106  RG 

#17-840 

SXBIAS 

004104  RG 

#17-838 

$XBUF2 

003420  RG 

#15-629 

SXFRAD 

000466  RG 

#6-122 

SXFRSV 

000470  RG 

#6-123 

11-345 


18-1024 


23-1292 


19-1079    20-1163    21-1199    22-1253 


14-440 


19-1094 
19-1093 


22-1273 
24-1322 
19-1089 
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2^9 
250 
251 
252 
253 
25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 

267  000000 

268  000000 

269  000004 

270  000010 

271  000012 

272  000016 

273  000020 

274  000024 

275  000026 

276  000030 

277  000032 

278  000036 

279  000040 

280  000046 

281  000054 

282  000060 

283  000062 

284  000064 

285  000066 

286  000070 

287  000074 

288  000102 

289  000110 
290 

291 
292 
293 
294  000112 


.SBTTL  SNLRQB  -  PROCESS  REQUEST  BLOCK 

SNLRQB  -  PROCESS  RECEIVE  DATA  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  PROCESS  THE  NETLDR  REQUEST  BLOCK  AND  TO 
INITIALIZE  THE  LOCATIONS  "$FUNC"  AND  "SWISS". 

INPUTS: 

$$LRB=LOAD   REQUEST   BLOCK 

OUTPUTS: 

C-81T=SUCCESS/FAILURE 
ALL  REGISTERS=DESTROYED 
$FUNC=FUNCTION  CODE  (0=NOP) 
$MISS=MISSING  PARAMETERS  BIT  MASK 
$PDVA=PDV  ADDRESS  (SET/CLEAR  PROCESS  ONLY) 
$SLTA=SLT  ADDRESS  (SET/CLEAR  LINE  ONLY) 


010667 
012703 
012304 
042704 
001435 
022704 
103432 
010405 
006305 
016505 
001425 
016767 
042767 
005067 

103402 
005715 
001374 
010467 


000250' 
000004G 

177400 

000037 


177776' 

000002G  OOOOOOG 
OOOOOOC  OOOOOOG 
OOOOOOG 


iNLRQB: 


OOOOOOG 


10$: 


20$: 


MOV 

MOV 

MOV 

BIC 

BEQ 

CMP 

BLO 

MOV 

ASL 

MOV 

BEQ 

MOV 

BIC 

CLR 

CALL 

BCS 

TST 

BNE 

MOV 

SWTCHI 

SUTCHO 

RETURN 


SP.SPSAV 

mLft8+4,R3 

(R3)+,R4 

*''C<377>,R4 

101$ 

*FMAX,R4 

101$ 

R4,R5 

R5 

FTAS-2(R5),R5 

101$ 

$FLAGS+2,$FLAGS 

#*C<FL.TOPIFL.ECH 

$MISS 

a(R5)+ 

20$ 

(R5) 

10$ 

R4,$FUNC 


ERROR  CONDITION 
101$:   EMSG$R  99 


SAVE  STACK  POINTER 

GET  REQUEST  BLOCK  ADDRESS 

GET  FUNCTION  CODE 

IF  ZER6!'iLLEGAL  FUNCTION 
IS  IT  A  VALID  FUNCTION  CODE? 
IF  LO,  NO 

COPY  FUNCTION  CODE 
MAKE  A  WORD  INDEX 
GET  SUBROUTINE  TABLE  POINTER 
IF  ZERO,  ILLEGAL  FUNCTION 
INIT  FLAG  WORD  WITH  DEFAULT  VALUES 
IFL.WRN>,$FLAGS  ;  BE  SURE  ... 
NO  PARAMETERS  MISSING  YET  (CLEARS  C-BIT) 
KEEP  CALLING  SUBROUTINES 
UNTIL  C-BIT  IS  SET 
OR  END  OF  TABLE  (0)  IS  REACHED 

SET  FUNCtlON  CODE 
BE  SURE  WE  ARE  USING  THE 
DEFAULT  BUFFERS 


ILLEGAL  FUNCTION  CODE 


K  U 
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1^:^5] 
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6^5 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 

667  001264 

668  001264 

669  001272 

670  001300 

671  001302 

672  001306 

673  001310 

674  001312 

675  001316 

676  001320 

677  001324 

678  001326 

679  001334 

680  001340 

681  001342 

682  001344 

683  001350 

684  001352 

685  001360 

686  001372 

687  001376 

688  001400 

689  001402 

690  001406 

691  OOKIO 

692  001414 

693  001416 

694  001424 

695  001430 

696  001432 

697  001434 

698  001440 

699  001442 

700  001446 

701  00'450 


.SBTTL  CHKLP  -  CHECK  LINE  PARAMETERS 
CHKLP  -  CHECK  LINE  PARAMETERS 


INPUTS: 


LS.OPT  SET  IF  ANY  OPTIONAL  PARAMETERS 
R3=REQUEST  BLOCK  POINTER 

.8LKU   1 

.BLKW   1 

.8LKW   1 

.8LKW   1 


LO.CSR  -  CSR  ADDRESS 

LO.PRI  -  INTERRUPT  PRIORITY 

LO.VCT  -  INTERRUPT  VECTOR 

LO.SCR  -  SECONDARY  CSR 


OUTPUTS: 

C-BIT=SUCCESS/FA1LURE 

R3=DESTR0YED 

$$CSR=CSR  ADDRESS 

$$PRI=]NTERRUPT  PRIORITY 

$$VECT=INTERRUPT  VECTOR 

..SCSR=SECONDARY  CSR 

SWISS  MAY  BE  SET  NON-ZERO  IF  ANY  FIELDS  ARE  MISSING 


CHKLP: 

012767 

OOOOOOG 

OOOOOOG 

10$: 

MOV 

#MS.ALL,$MISS 

ALL  PARAMETERS  MISSING 

032767 

000400 

000004G 

BIT 

#LS.0PT,$SLRBt4 

ANY  OPTIONAL  PARAMETERS  INCLUDED? 

001002 

BNE 

20$ 

IF  NE,  YES                ^  „_ 

012703 

000234' 

MOV 

#NULL,R3 

IF  NOT,  USE  NULL  INPUT  PARAMETERS 

012300 

20$: 

MOV 

(R3)+,R0 

GET  CSR  VALUE 

001411 

BEQ 

30$ 

IF  ZERO,  FIELD  MISSING 

022700 

160000 

CMP 

#1 60000, RO 

IS  IT  AN  I/O  PAGE  ADDRESS? 

101071 

BHI 

101$ 

IF  HI,  NO 

032700 

000003 

BIT 

#3,R0 

S  IT  A  MULTIPLE  OF  4? 

001066 

BNE 

101$ 

F  NE,  NO 

042767 

OOOOOOG 

OOOOOOG 

8IC 

*MS.CSR,$MISS 

INDICATE  CSR  INCLUDED 

010067 

OOOOOOG 

30$: 

MOV 

R0,$$CSR 
(R^)+,RO 

SET  CSR  ADDRESS 

012300 

MOV 

GET  PRIORITY  VALUE 

001406 

BEQ 

40$ 

IF  ZERO,  FIELD  MISSING 

022700 

000007 

CMP 

#7,R0 

IS  IT  RANGE  1-7? 

103457 

BLO 

111$ 

IF  LO,  NO 

042767 

OOOOOOG 

OOOOOOG 

BIC 

#MS.PRI,$MISS 

INDICATE  PRIORITY  INCLUDED 

40$: 

ASL$ 

5.R0 

CONVERT  TO  PSW  PRIORITY  VALUES 

010067 

OOOOOOG 

MOV 

r6,$$pri 

SET  INTERRUPT  PRIORITY 

012300 

MOV 

(R3)+,R0 

GET  VECTOR  VALUE 

001411 

BEQ 

50$ 

IF  ZERO,  FIELD  MISSING 

032700 

000003 

BIT 

*3,R0 
12f$ 

IS  IT  A  MULTIPLE  OF  4? 

001043 

BNE 

F  NE,  NO 

026700 

OOOOOOG 

CMP 

$MXVCT,RO 

S  IT  A  LEGAL  VECTOR  ? 

101443 

BLOS 

131$ 

..  NO 

042767 

OOOOOOG 

OOOOOOG 

BIC 

#MS.VCT,$MISS 

INDICATE  VECTOR  INCLUDED 

010067 

OOOOOOG 

50$: 

MOV 

RO^$$VECT 

SET  INTERRUPT  VECTOR 

012300 

MOV 

(R?)+,RO 

GET  SECONDARE  CSR  VALUE 

001411 

BEQ 

60$ 

IF  ZERO,  FIELD  MISSING 

022700 

160000 

CMP 

#160000, RO 

IS  IT  AN  I/O  PAGE  ADDRESS? 

101020 

BHI 

101$ 

IF  HI,  NO 

032700 

000003 

BIT 

#3,R0 

S  IT  A  MULTIPLE  OF  4? 

001015 

BNE 

101$ 

■   F  NE,  NO 

042767 

OOOOOOG 

OOOOOOG 

BIC 

#MS.SEC,$MISS 

■  INDICATE  SECONDARY  CSR  INCLUDED 

If  IS 


_J 
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1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

107^ 

1075 

1076 

1077 

1078 

1079 

1080 

^081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

111A 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 


0O505A 
0O3O5A 
003060 
003062 
00306A 
003070 
003071 
003100 
003104 
003106 
003110 
003114 
003116 
003124 
003126 
003132 
003134 
003142 
003144 
003150 
003154 
003156 
003162 
003170 
003172 
003176 
003202 
003210 
003212 
003214 
003216 
003220 
003222 
003226 
003230 
003232 
003234 


012746 
011646 
110146 
110266 
016700 
012701 
005067 
012002 
005201 
026701 
001436 
126267 
001367 
126216 
001364 
126267 
001035 
016746 
062716 
110136 
005267 
126266 
001345 
010266 
010166 
032767 
001335 
005726 
012600 
012601 
100404 
016702 
005702 
001001 
000261 


.S8TTL  $fSLT  -  FIND  SLT 

SFSLT  -  TRY  TO  FIND  SLT 

INPUTS: 

R1=C0NrR0LLER  NUMBER  (BYTE) 
R2=UN]T  NUMBER  (BYTE) 
PDVX=DDM  PDV  INDEX 

OUTPUTS: 

C-B]T=SUCCESS/FAILURE 

RO=SLT  ADDRESS 

R1=SYSTEM  LINE  NUMBER 

R2=NUM8ER  OF  UNITS  ON  THIS  CONTROLLER 


177777 


000001 
OOOOOOG 
177777 
000244' 


OOOOOOG 

OOOOOOG  000246' 

OOOOOOG 

OOOOOOG  000244' 

000244' 
000002G 

000244' 
OOOOOOG  000001 

000002 
000004 
OOOOOOG  OOOOOOG 


000244' 


iFSLT: 


MOV 

*-1,-(SP) 

MOV 

(SP),-(SP) 

MOVB 

R1,-(SP) 

MOVB 

R2,1(SP) 

MOV 

$SLTMA,RO 

MOV 

*-1,R1 

CLR 

UNIT 

10$:    MOV 

(R0)+,R2 

INC 

R1 

20$:    CMP 

$SLTNM,R1 

BEQ 

30$ 

CMPB 

L.DDM(R2),PDVX 

BNE 

10$ 

CMPB 

L.CTL(R2),(SP) 

BNE 

10$ 

CMPB 

L.UNT(R2),UNIT 

BNE 

101$ 

M)V 

UNJT,-(SP) 

A>D 

#$SLN+2,(SP) 

MOVB 

R1,a(SPW 

INC 

UNIT 

CMPB 

L.UNT(R2),1(SP) 

BNE 

10$ 

MOV 

R2,2(SP) 

MOV 

R1,4(SP) 

BIT 

#FL.MUX,$FLAGS 

BNE 

10$ 

30$:    TST 

(SP)t 

MOV 

(SP)+,RO 

MOV 

(SP)+,R1 

em 

35$ 

MOV 

UNIT,R2 

TST 

R2 

BNE 

40$ 

35$:    SEC 

40$:    RETURN 

;  ERROR  CONDITION 

003236  016706  000250' 


LEAVE  ROOM  FOR  SLT  ADDRESS  AND  SLN 

SAVE  CONTROLLER  NUMBER 

AND  UNIT  NUMBER 

GET  SLT  MAPPING  TABLE  ADDRESS 

GET  FIRST  LINE  NUMBER 

NO  UNITS  ON  THIS  CONTROLLER  YET 

GET  NEXT  SLT  ADDRESS 

AND  NEXT  LINE  NUMBER 

IS  IT  END  OF  SLT'S? 

IF  EQ,  YES 

DOES  DDM  PDV  INDEX  MATCH? 

IF  NE,  NO 

DOES  CONTROLLER  NUMBER  MATCH? 

IF  NE,  NO 

ARE  UNIT  NUMBERS  IN  ASCENDING  ORDER? 

IF  NE,  NO 

SAVE  UNIT  NUMBER 

POINT  TO  SYSTEM  LINE  NUMBER 

SAVE  MUX  LINE  NUMBER 

TALLY  UNITS  ON  THIS  CONTROLLER 

DOES  UNIT  NUMBER  MATCH? 

IF  NE,  NO 

SAVE  SLT  ADDRESS 

SAVE  SYSTEM  LINE  NUMBER 

MUX  DEVICE? 

IF  NE,  YES  -  SEARCH  ENTIRE  SLT 

PURGE  STACK 

RETRIVE  SLT  ADDRESS 

SYSTEM  LINE  NUMBER 

IF  MI,  LINE  NOT  FOUND 

RETURN  UNITS  FOUND  IN  R2 

ANY  UNITS  FOUND?  (CLEARS  C-BIT) 

IF  NE,  SUCCESS 

INDICATE   FAILURE 


RESTORE    SP   TO   $NLRQB  ENTRY   VALUE 
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SYMBOL  VALUE 


LF.TIM 

LF.UNL 

LF.X2P 

LINSIZ 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.DN 

LN.OOP 

LN.OPE 

^N.REF 

LN.SjR 

LN.STA 

LN.SUB 

LN.TRI 

LQ.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LQ.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIN 

LO.LTM 

LO.MAC 

lO.MDE 

lO.NAM 

LO.NET 

LO.NNM 

LC.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

I  O.PRI 

LO.RET 

LO.RPA 

LO.SCR 


=  000010 
=  02C000 
=  000000 

-    *•*  ^t* 

=  000000 

=  000005 

=  000004 

=  000003 

=  000003 

=  000001 

=  000000 

=  000004 

=  000001 

=  000002 

--  000002 

=^  000017 

=  000360 

=  000006 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

000040 

000032 

000062 

000060 

000046 

000030 

000004 

000034 

G00022 

000024 

000044 

=  000002 

000022 

000012 

000004 

000056 

000026 

000010 

000012 

000064 

000030 

000016 


GX 


REFERENCES 

#5-73 
*5-73 
#5-73 
9-558 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 


»30-1756 


30-1843       *31-1869 


♦109-4859 

5-78 
5-78 


O09-4858 


VN 

SYI 

SYI 

.A 
.A 
.B 
.B 
.B 
.B 
.B 
.C 
.F 
.F 
.F 
.F 
.F 
.F 
.H 
.H 
.M 
.N 
.N 
.N 
.N 
.N 
.N 
.N 
.N 
.N 
.N 
.N 
.C 
.C 

.c 

.C 

.c 
.c 

.F 
.F 


»109-4860 


r nc  A  TCn  Dv 


MATDn   nui  TQ-uiM-Dt.  AT  1^0  >  ^0 


L    1 


U. 


L 
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ALLC 
ALLOC 
.BASEB 
.BUFCT 
BUFDF 
BUFNM 
.BUFSK 
.CRCOV 
.FLBKO 
.FLBKl 
,FLBK2 
,FLBK3 
,FLBK4 
.FUDG 
.HSTAD 
.HSTAR 
.MGEXT 
.NAM 
.NAM1 
.NAM2 
.NODAR 
.NODNB 
.NODNM 
.NOMAP 
.Nl 
.N2 
.N3 
.NA 
.OCPY 
.OEND 
.OFLAG 
.ONAME 
.ONUM 
.OVFY 
.PLGTH 
. PNUMB 


.PNUMH 

.PPRO 

.PROMF 

.PRONM 

.PSTCN 


004562  R 
=  ».*•*♦  GX 

=  UOOOO 
006A2A  R 
00632A  R 
006356  R 
0063A2  R 

r  ******   GX 

016372  RG 
016410  RG 
016A26  RG 
016AA4  RG 
016A62  RG 
004056  R 
007416  R 
007470  R 
=  ***«»*  GX 
004464 
004452 
004460 
007312 
007236 
007056 
004426  R 
003662  R 
003672  R 
003710  R 
003726  R 
013434  RG 
013456  RG 
013402  RG 
013306  RG 
013242  RG 
013356  RG 
=  ******  GX 
=  ******  GX 


r  ****** 
-  ****** 
006520  R 
006500  R 


GX 
GX 


GX 


REFERENCES 

#24-1487 
8-383 
#5-75 
#54-2603 
#50-2540 
#52-2568 
#51-2555 

13-824 

#103-4493 

#103-4497 

#103-4501 

#103-4505 

#103-4509 

#24-1378 

#63-2838 

#63-2854 

8-403 

24-1462 

#24-1461 

#24-1463 

#62-2808 

#62-2791 

#61-2751 

#24-1455 

#24-1337 

#24-1340 

#24-1346 

#24-1351 

#86-3668 

#86-3674 

#85-3647 

#83-3604 

#82-3580 

#84-3621^ 

8-267 

24-1328 

2;-145s 

59-2690 

63-2842 

67-3035 

67-3075 

69-3171 

72-3286 

75-3374 

81-3559 

85-3650 

91-3903 

60-2723 

8-330 

#56-2638 

#55-262? 

24-1469 


11-699 
8-497 


14-869 


11-686 
#24-1464 


'-285 

■4-1331 
24-1487 
60-2725 
63-2854 
67-3038 
67-3081 
69-3206 
73-3304 
76-3389 
81-3561 
86-3668 
91-3912 
73-3300 


♦24-1438 
15-913 


24-1353 


K    2 
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CREF       04.00 


*24-1487 


24-1455 


VF 
$C 


>329 

24-1334 

24-1488 

60-2734 

63-2857 

67-3044 

67-3084 

69-3208 

74-33:'2 

76-3394 

81-3563 

86-3671 

91-3917 

77-3438 


68-3134       ♦68-3139 


24-1360 


17-1043 
24-1337 
25-1499 
60-2736 
67-3015 
67-3047 
67-3091 
70-3234 
74-3325 
76-3412 
82-3580 
91-3879 


26-1534 
24-1343 
25-1502 
62-2794 
67-3018 
67-3054 
67-3094 
70-3241 
74-3328 
76-3415 
82-3586 
91-3882 


26-1539 
24-1347 
25-1505 
62-2796 
67-3019 
67-3057 
67-3101 
71-3259 
75-3348 
76-3418 
84-3629 
91-3885 


26-1569 
24-1354 
25-1508 
62-2810 
67-3025 
67-3063 
67-3104 
71-3261 
75-3352 
77-3440 
84-3630 
91-3888 


26-1629 
24-1361 
52-2571 
62-2813 
67-3028 
67-3066 
67-3111 
72-3282 
75-3355 
77-3442 
85-3647 
91-3894 


24-1378 
59-2677 
63-2838 
67-3029 
67-3072 
69-3160 
72-3283 
75-3369 
78-3467 
85-3648 
91-3897 


78-3463        82-3584         86-3669         91-3913 


83-3612 


95-4103 


95-4105 


96-4161        •103-4573 


ULfi  mn 


iM-Qt;    AT    n')>Kri 
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r 
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VP 
PR 


198 

199 

200 

201 

202 

203 

20A 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 


.SBTTL  SCXJO  -  CEX  I/O 

$CXIO  -  CEX  I/O  (RSX-IIM-PLUS  ONLY) 

THIS  ROUTINE  IS  CALLED  TO  TRANSFER  THE  CEX  TASK  IMAGE  INTO  MEMORY  IN  EXEC 
SPACE. 

INPUTS: 

Rl^FILE  SPEC  ADDRESS 
R2=FILE  SPEC  LENGTH 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R0=ERROR  CODE 
R1,R2=DESTR0YED 


.IF 

DF,R$$MPL 

$CXIO:: 

CLR 

ERROR 

NO  ERROR,  EITHER 

CALL 

$CLOPE 

OPEN  PROCESS  FILE 

TSTB 

a$CLIOS 

LOOK  AT  GCL  lOSB 

BMl 

101$ 

IF  MI,  FAILURE 

BIS 

(RO)+,(RO) 

IS  FILE  CONTIGUOUS? 

BEQ 

111$ 

IF  EQ,  NO 

CALL 

PR.L8L 

READ  LABEL  BLOCK 

BCS 

10$ 

IF  CS,  ERROR 

CALL 

PR.XFR 

READ  PROCESS  TASK  IMAGE  INTO  CORE 

10$: 

CALL 

$CLDEQ 

CLOSE  PROCESS  FILE 

TST 

ERROR 

ANY  ERRORS?  (CLEARS  C-8IT) 

BEQ 

30$ 

IF  ZERO,  NO 

20$: 

SEC 

INDICATE  FAILURE 

30$: 

MOV 
RETURN 

ERROR, RO 

GET  ERROR  CODE 

;  ERROR 

CONDITIONS 

i01$: 

MOV 

#ERR2, ERROR 

OPEN  FAILURE 

BR 

20$ 

111$: 

MOV 

#ERR6, ERROR 

NOT  CONTIGUOUS 

BR 

10$ 

.ENDC 


nr  r  MA  rnn 
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PRM 
Tab 


754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
76A 
765 
766 
767 
768 
769 
770 
771 

772  002334 

773  002340 

774  002344 

775  002346 

776  002352 
in   002356 

778  002362 

779  002364 

780  002366 

781  002370 
782 

783  002372 

784  002400 

785  002402 

786  002410 

787  002416 
788 

789  002420 

790  002426 
791 

792  002434 

793  002440 
794 

795 
796 
797 
798 
799 
800 
801 
802 
803 
804 

805  002454 

806  002472 

807  002474 

808  002476 

809  002500 

810  002510 


.SBTTL  PR.SU8  -  CREATE  SUB-PARTITION 

PR. SUB  -  CREATE  SUB-PARTITION 

THIS  ROUTINE  IS  CALLED  IF  THE  PROCESS  PARTITION  IS  SYSTEM  CONTROLLED. 
A  NEW  SUB-PARTITION  IS  CREATED  AND  LINKED  IN.  THE  PRESENCE  OF  AN  MCB 
PROCESS  IN  A  SYSTEM  CONTROLLED  PARTITION  IS  DENOTED  BY  SETTING  THE  COMMON 
BIT  (PS.COM)  IN  THE  PCB  STATUS  WORD  (P.STAT)  AND  BY  SETTING  THE  PARTITION 
NAME  (P.NAM)  TO  "NT.***",  WHERE  "**♦"  IS  THE  THREE  CHARACTER  RAD50  PDV  NAME. 

INPUTS: 

R5=MA1N  PARTITION  PCB  ADDRESS 

OUTPUTS: 

R0,R1,R2,R3,R4=DESTR0YED 
R5=SUB-PART1TI0N  PCB  ADDRESS 


016701   OOOOOOG 


103002 
000167 
012701 
016702 
006202 
005021 
005302 
001375 


000426 

OOOOOOG 

OOOOOOG 


PR. SUB: 

10$: 
20$: 


032767 
001407 
016767 
012767 
000406 

012767 
016767 

010567 
016767 


000001   000150' 

OOOOOOG  000004G 
050670  000006G 


055274  000004G  30$: 

OOOOOOG  000006G 

000012G        40$: 

000142'  OOC016G 


002446  012767  000640  000030G 


010501 
005002 
005046 


066702  000014G 


50$: 


MOV 

CALL 

BCC 

JMP 

MOV 

MOV 

ASR 

CLR 

DEC 

BNE 

BIT 
BEQ 
MOV 
MOV 
BR 

MOV 
MOV 

MOV 
MOV 


.IF  OF  R$$MPL 


MOV 
MOV 

.IFF 
MOV 

.ENDC 

PUTRC 

MOV 

CLR 

CLR 

GETRV 

ADD 


GET  PCB  LENGTH 

TRY  TO  ALLOCATE  SUB-PARTITION  PCB 

IF  C  CLEAR,  THEN  OK 

FAILURE  THEN 

COPY  PCB  ADDRESS 

GET  PCB  LENGTH 

CONVERT  TO  A  WORD  COUNT 

ZERO  THE  ENTIRE  SUB-PCS 


.PLGVH.RI 

$ALL15 

10$ 

100$ 

*$BFR,R1 

.PLGTH,R2 

R2 

(R1)  + 

R2 

20$ 

#MCL0A,MCFLG    ;  MICROCODE  PARTITION  ? 
30$  ;  IF  NO  -  BRANCH 

$NAME,P.NAM+$BFR  ;  LOOK  FOR  PCB 
#"fiMC,P.NAM+2+$BFR  ;  . . . 
40$  ;  CONTINUE 

**RNT.,P.NAM+$BFR  ;  SET  NAME  TO  "NT.***" 
$NAME,P.NAMt2+$BFR  ; 

R5,P.MAIN+$BFR  ;  MAIN  PCB  ADDRESS 
BL0X,P.BLKS<-$8FR       ;  SIZE  IN  32.  WORD  BLOCKS 


#ps.com:ps.nsfips.fxoips.chk,p.stat+$bfr 
#p2.r0n,p.st2t$bfr    ;  read  only 


SET  STATUS 


;[MP01] 

;[MP013 
;[MPOn 


#ps.com:ps.nsfips.sys,p.stat+$bfr 


;[MP01] 
COMMON,  NO  SHUFFLING;[MP01] 

;[MP01] 


RO,.PLGTH 

R5,R1 

R2 

-(SP) 

R1 

P.REL+$BFR,R2 


WRITE  INITIALIZED  PCB  TO  SYSTEM  IMAGE 

COPY  MAIN  PCB  ADDRESS 

NO  PREVIOUS  SUB-PCB 

PREVIOUS  SUB-PCB  IF  SPACE  IS  FOUND 

READ  IN  PCB 

GIVING  BIAS  OF  NEXT  HOLE  IN  PARTITION 


.-J -  -J  - 
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n 


J 
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VPRO  -  VNP  SET  PROCESS  ROUTINES 
LOCAL  DATA 

80 
81 
82 
83 
8A 
85 
86 
87  000000 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10A 

105 

106 

107 

108 

109 

110 

111 

112 

113 

IK 

115 

116 

117 

118 

119 

120 

121 

122 

123 

12'i 

125 

126 

127 

128 

129 

130 

131 

132 

133 

131 

135 

136 


000000 
000004 
000005 
000006 
000012 
000013 


OOOOU 
000016 


000020 
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.SBTTL  LOCAL  DATA 


;  LOCAL  DATA 


VPF 
SRC 


C44 
040 
040 
044 
040 
040 


130 
130 


123     124 


000024     044     130 


000032  000070'  000000 
000036 


130  VECTAB: 
130   VECLEN: 


.PSECT 

.NLJST 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 


DATA,D 

BEX 

"SXXX" 

40 

40 

"$XXX" 

40 

40 


.IF  DF  R$$MPL 


PROCESS  VECTOR  TABLE  SYMBOLS 


CETNAM:  .ASCIZ  /CETAB/ 

CT8LK:   .WORD  0,0 

CTBSYM:  .RAD50  "SCTXXX' 

CTVAL:   .BLKW  1 
.ENDC 


XPTPDV:  .BLKW   1 
XPTDSP:  .BLKW   1 

SYMBOL  TABLE  EXTENSION 

102   STBEXT:  .ASCIZ   "STB" 

;  ASCII  DISPATCH  TABLE  NAME 
130  DSPTAB:  .ASCII   "SXXXTB" 
.EVEN 

PROCESS  DISPATCH  TABLE  SYMBOL 


CETAB  FILE  NAME 
CONTROLLER  SYMBOL  NAME 


PDV  ADDRESS  FOR  XPT 
XPT'S  ADDRESSING  BIAS 


;[MP013 


;CMP01] 

[MP01] 
CMP01] 
CMP01] 
[MP013 


P8LK 
PBLK 
PSYM 


.IF  DF  R$$MPL 

.WORD  VECSYM.O 

.IFF 

.WORD  SPRINCO 

.ENDC 

.BLKW  2 
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692 

695 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707  002000 

708  002020 

005767 

000060G 

709  002024 

001155 

710 

711  002026 

005000 

712  002030 

156700 

000040G 

713  002034 

010002 

714  002036 

012701 

000012 

715  002042 

716 

717  002046 

016700 

OOOOOOG 

718  002052 

016067 

OOOOOOG  000016 

719  002060 

016000 

OOOOOOG 

720  002064 

721 

722  002102 

010267 

000062G 

723  002106 

016702 

000016' 

724  002112 

016700 

000064G 

725  002116 

726  002122 

022700 

140000 

727  002126 

003003 

728  002130 

062702 

000200 

729  002134 

000454 

730 

731  002136 

010103 

732  002140 

060003 

733  002142 

022703 

140000 

734  002146 

002047 

735 

736  002150 

162703 

140000 

737  002154 

160301 

738  002156 

010105 

739  002160 

016702 

000016' 

740 

741  002164 

022705 

001000 

742  002170 

002002 

743  002172 

012701 

001000 

744 

745  002176 

012704 

OOOOOOG 

746  002202 

010102 

74  7  002204 

105024 

748  002206 

.SSTTL  $CACH  -  ALLOCATE  CACHE 


SCACH  -  ALLOCATE  CACHE 

XPT  PDV  ADDRESS 


INPUTS: 

$PDVA 


OUTPUTS: 

CACHE  IS  ALLOCATED  IN  XPT  PROCESS  SPACE  FOR  ENDNODES 


30$: 

40$: 
50$: 


N$CACH  -  SIZE  OF  CACHE 


$CACH: 

:  GETRV 
TST 
BNE 

$DECPT,#D$END 

$BFR+D$NN 

110$ 

10$: 

CLR 

BISB 

MOV 

MOV 

CALL 

RO 

$BFRtD$MLL,RO 

R0,R2 

#CiLEN,R1 

$MUL 

MOV 
MOV 
MOV 
GETRV 

$PDVA,RO 

Z.DSP(RO),XPTDSP 
Z.DAT(RO),RO 
RO,#N$XLEN 

MOV 

MOV 

MOV 

PUTRC 

CMP 

BGT 

ADD 

BR 

R2,$BFR+N$CACH 

XPTDSP,R2 

$8FR+N$CACH+2,R0 

#140000, RO 
20$ 

#200, R2 
70$ 

20$: 

MOV 
ADD 
CMP 
BGE 

R1,R3 
R0,R3 

#140000, R3 
70$ 

SUB 
SUB 
MOV 
MOV 

#140000, R3 
R3,R1 
R1,R5 
XPTDSP,R2 

CMP 
BGE 
MOV 

MOV 
MOV 
CLR8 
SOB 


#512. ,R5 
40$ 
#512. ,R1 

#$8Ffi,R4 
R1,R2 
{R4)  + 
R2,50$ 


READ  DECNET  HOME  BLOCK 

ENDNODE  ? 

IF  NOT  -  BRANCH 

INIT  REG 

READ  MAX  LOGICAL  LINKS  VALUE 
SAVE  NUMBER  OF  CACHE  ENTRIES 
GET  CACHE  ENTRY  SIZE 
CALCULATE  TOTAL  SIZE 

GET  XPT  PDV  ADDRESS 
GET  XPT  BIAS 
GET  XPT  DDB  ADDRESS 
READ  XPT'S  DDB 

STORE  NUMBER  OF  CACHE  ENTRIES 

SAVE  XPT  BIAS 

GET  ADDRESS  OF  NI  CACHE 

WRITE  UPDATED  XPT  DDB  TO  IMAGE 

IS  CACHE  IN  SECOND  4KW  BLOCK  ? 

IF  NO  -  BRANCH 

ADJUST  RELOCATION  BIAS  TO  NEXT  4KW 

CONTINUE 

COPY  SIZE 

CALCULATE  TOP  OF  NI  CACHE 

IS  TOP  INTO  SECOND  4KW  BLOCK  ? 

IF  NO  -  BRANCH 

CALCULATE  SIZE  IN  SECOND  BLOCK 
CALCULATE  SIZE  IN  FIRST  BLOCK 
COPY  SIZE 
COPY  XPT  PROCESS  BIAS 

MORE  THAN  ONE  TRANSFER  NEEDED  ? 

IF  NO  -  BRANCH 

LIMIT  TO  MAXIMUM  SIZE  (1000  BYTES) 

GET  SUFFER  ADDRESS 

COPY  SIZE 

INIT  BUFFER 

IF  MORE  -  BRANCH 
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ALVBLK 

ATSACL= 

AT$ADN= 

AT$AUP= 

AT$CYC  = 

AT$LV1= 

AT$LV2= 

AT$NEX= 

AT$UP  = 

AXSYM 

ASCIR 

ASLEN 

ASNID 

ASTM 

ASTMI 

A$TSZ 

ASTYP 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

C$LEN 

CSNID 

C$NXH 

CSTIM 

C$$CKP= 

C$$ORE= 

C$$RSH= 

OSPTAB 

DTBLK 

DTSYM 

DTVAL 

DSAMXC 

DSAMXH 

D$ANN 

DSBRPR 

DSBRTM 

DSDELF 

DSDELW 

DSEND  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAC 

DSIMCT 

D$IPL 

D$LID 

D$LNAM 

DSLNUM 

DSLST 

DSMAXC 

DSMAXH 

DSMAXV 

DSMLL 

DSMMOD 

0$NA 

DSNBEA 


000346R 

000100 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000460R 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000012 

000000 

000002 

000010 

000000 

000400 

177564 

000024R 

0001 14R 

0001 20R 

000124R 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

OOOOU 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 


DSNBRA 
D$NEND= 
DSNLN 
D$NN 
DSOUTT 
DSRETF 
DtRNN 
OSRTMR 
D$SEG 
D$SER 
DSSQRL 
D$$BUG= 
D$$ISK= 
D$$L11= 
D$$YNC= 
D$$YNM= 
ETAB1 
ETAB2 
E$NBR 
E$NBS 
E$NCR 
E$NCS 
ESNIC 
ESNLEN 
ESNLLA 
ESNLNK 
E$NML 
ESNMR 
002  E$NHS 
002  ESNNOD 
002  ESNRT 
002  ESNRTP 
ESNSEG 
ESNTIH 
ESNUSE 
ESSTRT 
E$$XPR= 
FNDPDV 
F$$LVL= 
F.RSIZ= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSfi= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LF.ACT= 
LF.BRO= 

LF.swr= 

LF.ENA= 
LF.LPB= 
LF.MDC= 


000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000222R 

000232R 

000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 

000000 

004426R 

000001 

««***•  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 


LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
002  LN.00P= 
002  LN.OPE= 
LN.REF= 
LN.SER= 
LN.SrA= 
LN.SUB= 
LN.TRJ= 
LO.CON 
LO.CSR 
LO.CTL 
LO.LJN 
LO.PAR 
LO.PRI 
LO.SCR 
LO.STA 
LO.VCT 
LR.AST 
LR.CIR 
LR.CTL 
LR.EFN 
LR.LIN 
LR.PRM 
LR.PRO 
LR.STS 
LR.TC8 
LR.UNT 
LS.AST= 
LS.CEX= 
LS.CIR= 
LS.CXO= 
LS.CX5= 
LS.DLM= 
LS.ECH= 
LS.FDX= 
LS.HDX= 
LS.LIN= 
LS.LMC= 
LS.N7I= 
LS.ON  = 
LS.OPT= 
LS.PR0= 


004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000006 
000006 
000014 
000004 
000010 
000010 
000014 
000015 
000012 
000026 
000002 
000004 
000004 
000002 
000030 
000002 
000000 
000002 
000005 
100000 
000001 
000010 
010000 
000400 
004000 
001000 
004000 
010000 
000003 
000007 
004000 
000011 
000400 
000002 


LS.PWF= 

LS.T0P= 

LS.UNF= 

LS.X25= 

LS.11D= 

LX.CEX^ 

LX.LJN= 

LX.PRO= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$nR= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L . KRBA 

L.LEN  = 

L.MPF 

L.NHST 

L.NSTA 

L . OWNR 

L.UNT 

HILBLK 

M$$CRB= 

H$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NF$BLK= 

NF$DMO= 

NF$MOU= 

NF$RST= 

NF$SCN= 

NF$SHU= 

NF$TIM= 

NSACQ 

NSACTL 

NSADJl 

N$ADJ2 

NSCACH 

N$CIR 

N$CRC 

N$DLA 

NiDLY 

NSELEN 

N$ENC 

NSERRC 

NSFLG 

N$FNC 

NIGENQ 


040000 

N$GTM 

000015 

002000 

N$HC1 

000052 

020000 

N$HC2 

000056 

000012 

NSHIGH 

000033 

004000 

N$LLT 

000026 

000004 

N$LLTM 

000024 

000006 

N$LVC 

000036 

000005 

N$LV1 

000002 

000000 

N$LV2 

000010 

000000 

NSMBXQ 

000050 

000001 

NSMHCI 

000036 

000000 

N$MHC2 

000044 

000015 

N$PLD 

000016 

000012 

N$PLLT 

000030 

177776 

N$PRI 

000076 

000002 

NSROAI 

000022 

000004 

N$R0A2 

000030 

000003 

NSRTHX 

000014 

000006 

NSRTMI 

000014 

000010 

N$RTM2 

000015 

000000 

N$RT1 

000000 

000016 

N$RT2 

000006 

000022 

N$SLA 

000016 

000022 

NSSNOD 

000012 

000020 

NSTCTL 

000112 

000014 

N$TIM 

000004 

000021 

N$TLC 

000100 

000013 

N$TNC 

000114 

000140R 

002  NSTRC 

000106 

000124 

NSTTCB 

000110 

000000 

N$VCB 

000010 

000000 

N$VER 

000066 

000000 

NSXLEN 

000124 

000000 

N$$ACC= 

000001 

000000 

N$$BUF= 

00000' 

000100 

N$$LDV= 

00000- 

000010 

N$$HCP= 

00000- 

000040 

N$$MLL= 

00000- 

000002 

N$$l«IOV= 

000010 

000020 

N$$NCT= 

000001 

000004 

N$$PEM= 

000001 

000200 

PBLK 

000032R    002 

000000 

PRSYM 

000600R 

000032 

PR1SC 

000162R    002 

000072 

PRIOOM 

0001 50R    002 

000074 

PSYM 

000036R    002 

000062 

PVAL 

000042R    002 

000034 

P$$P45= 

000000 

000120 

P$$WRD= 

000000 

000020 

P.BLKS= 

******  GX 

000014 

P.REL  = 

******  GX 

000054 

Q$$OPT= 

000010 

000042 

R$$DER= 

000000 

000022 

R$$K11= 

000001 

000005 

R$$SND= 

000000 

000006 

R$$11M= 

000000 

000052 

SECBLK 

0001 52R    002 
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2 
3 

i, 
5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
5'' 
54 
55 
56 
57 


.IF  DF  M$$PRO 
.  UF  EQ  M$$PRO 
.IIF  EQ  M$$PRO 
.IIF  EQ  M$$PRO 
.IIF  EQ  l*l$$PRO 


.IFF 
.TITLE 
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1  .TITLE  VRES1 

2  .TITLE  VRES2 

3  .TITLE  VRES3 

4  .TITLE  VRES4 


VRES  -  VNP  ROOT 


CHP01] 
[MP01] 
[MPOn 
rMPOl] 
LMP01] 
[MP01] 


;[MPOn 


.ENDC 

.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  ROOT  SEGMENT  DATA 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-llM-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-PLus  V3.0 


OF  ITS 


L  9 


VRES  -  VNP  ROOT  MACRO  VO5.03b   Tuesday   17-Sep-85   16:15 
ERROR  HANDLII^G 


Page  U 
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A02 
403 
40A 

.SBTTL 

ERROR   HANDLING 

•    ERROR 

REPORTING 

A05 

; 

406 

407 
408 
409 

176031 

FATAL== 

-999. 

-' 

001622 

126 

116           120 

PREFIX: 

.ASCII 

/VNP  —   / 

; 

410 

001631 

052 

106           101 

PREF2: 

.ASCIZ 

/♦FATAL*    / 

■ 

411 
412 
413 

.EVEN 

001642 

SFNOUT: 

414 

001642 

012700 

001364' 

'mov 

«FNERR,RO 

415 

001646 

016701 

177510 

MOV 

FNPTR.RI 

416 

001652 

160001 

SUB 

R0,R1 

417 

001654 

STIOUT: 

418 

001654 

010067 

176134 

'mov 

RO.TIOUTtQ.IOPL 

419 

001660 

010167 

176132 

MOV 

R1,TI0UT+Q.I0PL^ 

2 

420 

001664 

DJR$ 

*TIOUT 

421 

001672 

RETURN 

422 

423 

001674 

SEROUT: 

424 

001674 

105067 

177731 

'CLRS 

PREF2 

425 

001700 

022701 

176031 

CMP 

*-999.,R1 

426 

001704 

001003 

BNE 

5$ 

427 

001706 

112767 

000052     177715 

MOVB 

#'*,PREF2 

428 

001714 

010146 

5$: 

MOV 

R1,-(SP) 

429 
430 
431 

001716 

010046 

MOV 

RO,-(SP) 

001720 

016700 

000310" 

MOV 

$CLBUF,RO 

432 

001724 

012701 

001622' 

MOV 

#PREFIX,R1 

433 

001730 

112120 

10$: 

MOVB 

(R1)+,(R0)+ 

434 

001732 

001376 

BNE 

10$ 

435 

001734 

005300 

DEC 

RO 

436 

001736 

CALL 

$ERMSG 

437 

001742 

060001 

ADD 

R0,P1 

438 

001744 

016700 

000310' 

MOV 

$CLBUF,RO 

439 

001750 

160001 

sue 

R0,R1 

440 
441 
442 

001752 

CALL 

$TIOUT 

001756 

012600 

MOV 

(SP)t,RO 

445 

001760 

012601 

MOV 

(SP)+,R1 

444 

001762 

022701 

176031 

CMP 

#-999., R1 

445 

001766 

001002 

BNE 

20$ 

446 

001770 

000167 

OOOOOOG 

JMP 

$PANIC 

447 

001774 

005726 

20$: 

TST 

(SP)  + 

448 

001776 

000261 

SEC 

449 

002000 

RETURN 

FATAL  ERRORS  HAVE  R2  SET  TO  THIS  VALUE 

PREFIX  MESSAGE 

FATAL  ERROR  MESSAGE  NOTIFICATION 


GET  MESSAGE  ADDRESS 
CALCULATE  LENGTH 


BUFFER  ADDRESS 

AND  LENGTH 
WRITE  IT  TO  TI: 


ASSUME  NON-FATAL  ERROR 
IS  THIS  A  FATAL  ERROR  ? 


NO 
INCLUDE 


'♦FATAL*'  MESSAGE 
SAVE  POSSIBLE  FLAG 
PRESERVE  RO 

SET  ADDRESS  OF  OUTPUT  BUFFER 
SET  ADDRESS  OF  PREFIX 
MOVE  PREFIX  INTO  PLACE 

SET  ADDRESS  OF  OUTPUT  BUFFER 
REFORMAT  ERROR  MESSAGE 
FORM  ADDRESS  OF  TERMINATOR 
SET  ADDRESS  OF  OUTPUT  STRING 
FORM  TOTAL  STRING  LENGTH 
OUTPUT  MESSAGE 

RESTORE  RO 

AND  R1 

IS  THIS  FATAL  ERROR 

NO 

YES 

DON'T  RETURN  HERE 

WARNINGS  SET  C-BIT 

BUT  HERE 
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1038 

1039 

1040 

lOAl 

1042 

1043 

10A4 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1065 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 


.S8TTL  SPUTRC 
•»-$PUTRC 
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PUT  RECORD  TO  SYSTEM  IMAGE  FILE 


THIS  ROUTINE  IS  CALLED  TO  PUT  A  RECORD  INTO  THE  TASK  IMAGE  FILE.  THE 
ADDRESS  OF  THE  RECORD  IS  DEFINED  BY  THE  CONTENTS  OF  SRADDR  AND  THE  SIZE 
BY  THE  SYSTEM  IMAGE  FILE  FOB. 


INPUTS: 

SRADDR 

SYSFDB+F.RSIZ 

SBFR 


-ADDRESS   OF   THE  RECORD. 
-SIZE   OF    THE   RECORD. 
-RECORD   TO  BE  WRITTEN. 


OUTPUTS: 

THE  RECORD  CONTAINED  IN  SBFR  IS  WRITTEN  INTO  THE  TASK  IMAGE  AT 

THE  ADDRESS  SPECIFIED  BY  SRADDR. 

NOTE:  ALL  REGISTERS  ARE  PRESERVED  ACROSS  CALL. 


004444 


004444 
004450 
004454 
004456 
004462 
004464 


004470 
004474 
004476 
004502 
004504 
004510 


004267 
012746 
010346 
012700 
005001 
016702 


005767 
001021 
020267 
103016 
016702 
016703 


OOOOOOG 
OOOOOOG 

000256' 

173766 


173772 

173770 

175752 
173750 


SPUTRC: 

.IF  DF 

RSSMPL 

;[MP01] 

BIT 

#160000, SRADDR 

TRYING  TO  ACCESS  FIRST  4KW  ? 

BED 

5S 

IF  YES  -  BRANCH 

BIT 

#DF.DAS,SDFLAG 

D-SPACE  ENABLED  ? 

;[MP01] 

BEQ 

5S 

IF  NO  -  BRANCH 

;[MP01] 

MOV 

$R8LCK,RB 

SAVE  BIAS 

;[MP01] 

MOV 

.DBIAS.SRBLCK 

MAP  TO  PSX  POOL 

;[HP01] 

MOV 

SRADDR, RA 

SAVE  VIRTUAL  ADDRESS 

;[MP01] 

CALL 

DBLK 

CALCULATE  BLOCK  AND  ADDRESS 

;[MP01] 

CALL 

SPUTAD 

DO  A  BIASED  WRITE 

;  :mpoi  ] 

MOV 

RA, SRADDR 

RESTORE  VIRTUAL  ADDRESS 

;  :mpoi] 

MOV 

RB,SRBLCK 

RESTORE  BIAS 

RETURN 

5S: 

.ENDC 

;[MP01] 

SPUTRD 

:JSR 

R2,SSAVVR 

SAVE  NONVOLATILE  REGISTERS 

MOV 

#.PUT,-(SP) 

SET  ADDRESS  OF  RECORD  ACCESS  ROUTINE 

20S: 

MOV 

R3,-(SP) 

SAVE  R3 

MOV 

*SySFDB,RO 

GET  ADDRESS  OF  INPUT  FILE  FDB 

22S: 

CLR 

Rl 

CLEAR  HIGH  PART  OF  VIRTUAL  BLOCK 

NUMBER 

MOV 

SRADDR, R2 

GET  ADDRESS  OF  RECORD  IN  TASK  IMAGE 

.IF  DF 

RSSMPL 

;[MP01] 

BIT 

#DF.SCO,SDFLAG 

SSCVOL  READ  ? 

8NE 

25S 

IF  YES  -  BRANCH 

.ENDC 

; EMPOI ] 

TST 

SXFRAD 

IS  THIS  A  VIRGIN  SYSTEM? 

BNE 

25S 

IF  NE  YES 

CMP 

R2.SL0WSZ 

•  REFERENCING  DISPLACED  MEMORY  ? 

BHIS 

25l 

•  IF  HIS  NO 

MOV 

SVCTVB,R2 

■  GET  VBN  OF  MEMORY  DISPLACED  BY  ' 

SAV 

MOV 

SVCT0F,R3 

■  GET  BLOCK  OFFSET  OF  LOCN  0 
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tTIOUT 

STKIOO 

STMPBF 

STMPND 

tTRlB 

STYPE 

STISCL 

STIOOC 

STIOOQ 

$T50CL 

$T50Q 

SUNBAD 

SUNBLK 

$UNB52 

SUNEND 

tVACP  = 

SVCTOF 

SVCTVB 

SVFLAG 

SVFLGI 

SVGCL 

SXAVL 

SXBIAS 

$XBUF2 

SXFRAD 

SXFRSV 

$XLEN2 

.  ABS. 

$$FSR1 
$$$GCL 
TMP$$A 
TMP$$B 
CET$$A 
CET$$B 


00165ARG 

OOAIURG 

OOOOOORG 

OOOOOORG 

002340RG 

00201 2RG 

00A012RG 

003772RG 

00376ARG 

003772RG 

00576^RG 

00051  ORG 

000512RG 

000506RG 

00061 2RG 

«♦»***  GX 

000A64RG 

000A62RG 

003A12RG 

003AURG 

005022RG 

004106RG 

00A104RG 

003';20RG 

000A66RG 

000470RG 

003422RG 

177776 
005756 
0O2O';0 
000502 
001200 
000000 
000000 
000000 


$X2HLD 
$X2MBS 
OOA  $X2MRT 
005  $X2MWS 
$X2RET 
$X3CAL 
$X3CLR 
$X3DBS 
$X3DUS 
$X3MBS 
$X3MCL 
$X3MRE 
$X3MRS 
$X3MWS 
$X3RES 
$X3RST 
SZTIME 
$$ 

$$APR 
$$CSR 
$$DCHA 
$$DEV 
$$DPR 
$$EXT 
$$HTIM 
$$INC 
$$LINX 


Errors  detected: 


000 
001 
002 
003 
004 
005 
006 
007 
0 


(RW,I 
(RW,1 
(RW.D 
(RW,I 
(RW,I 
(RW.l 
(RW,I 
(RW,I 


003A04RG 
003376RG 
003A00RG 
00337'iRG 
003A02RG 
002376RG 
002400RG 
002366RG 
002372RG 
002370RG 
002406RG 
002410RG 
002';i2RG 
002374RG 
002402RG 
002404RG 
C037';6RG 

\nm 

00257ARG 
002504RG 
002724RG 
002356RG 
002654RG 
002022RG 
002036RG 
002350RG 
002362RG 

-GBL.ABS.OVR) 
,LCL,REL,CON) 
,GBL,REL,OVR) 
,LCL,REL,CON) 
.LCL.REL.OVR) 
.LCL,REL,CON) 
.LCL.REL.OVR) 
,LCL,REL,C0N) 


'♦•  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file; 
Size  of  core  pool : 
Operating  system: 


107 

90 

22203  Words 

17608  Words 

RSX-11M/PLUS 


(  87  Pages) 
(  67  Pages) 


$$LR8 

$$LSAD 

$$LTIM 

$$MTP 

$$MUX 

$$NBRA 

$$NODC 

$$PAR 

$$PCHA 

$$PRI 

$$RPRI 

$$SCSR 

$$SNUM 

$$T8L 

$$VECT 

$$$   = 

$$$ARG= 

$$$OST= 

$$$T1  = 

$$$T2  = 

$$$$  = 

.A8TIM 

.ALLOC 

.CEAVL 

.CEPWR 

.CLINS 

.CLKHD 


003424RG 

003372RG 

002176RG 

002512RG 

002662RG 

002656RG 

002336RG 

002352RG 

003230RG 

002506RG 

002660RG 

00266ARG 

0025URG 

002360RG 

002510RG 

005450R 

000003 

000010 

000002 

000166R 

005616R 

003640RG 

001012RG 

003662RG 

003670RG 

003572RG 

003644RG 


003 


CRAVL 

003552RG 

CRCOV 

003666RG 

DEUMR 

003634RG 

DEVHD 

003556RG 

DLCOV 

003661RG 

EXSIZ 

003560RG 

FMASK 

003562RG 

FRKHD 

00357'iRG 

FSRCB= 

******  G 

GET  = 

******  GX 

HEADR 

003576RG 

MAXC 

002026RG 

MAXH 

002030RG 

MGEXT 

003626RG 

MGMGE 

003630RG 

NETPF 

003654RG 

NN 

002024RG 

NSO 

003606RG 

NS1 

00361  ORG 

NS2 

00361 2RG 

NS3 

0036URG 

NS4 

00361 6RG 

NS5 

003620RG 

NS6 

003622RG 

NS7 

003624RG 

NTUIC 

003656RG 

.PARHD 

.PATT 

.PDVTA 

.PHDR 

.PLGTH 

.P0INT= 

.PPRO 

.PUT  = 

.RDBNH 

.RDBSZ 

.ROUTM 

.SDBNM 

.SDBSZ 

.STKDP 

.SVSIZ 

.SYSNH 

.TLGTH 

.TS<HD 

.UMRHD 

.VCTR 

..COO 

.  .SCSR 

...PC1= 

...PC2= 

...PC3= 

...TPC= 


003564RG 

003616RG 

003660RG 

003650RG 

003602RG 

******  GX 

003652RG 

******  GX 

0010URG 

001016RG 

002032RG 

001020RG 

001022RG 

003600RG 

003566RG 

003570RG 

003642RG 

003636RG 

003632RG 

003604RG 

00355'iRG 

002034RG 

000256R 

000452R 

000256R 

000006 


DB2'!'vREs!T50;n32,134]VRE5/CR/-SP=DB2:[l.nRSXMCM.SML/ML.[130,110]NETLI8/ML,[130.10]RSXMCM/PA:l.[132,10]VRES 
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CREF   OA.OO 


SYMBOL  VALUE 


tXLEN2 
$X2HLD 
$X2MB5 
$X2MRT 
$X2MWS 
$X2RET 
$X3CAL 
tX3CLR 
$X5DBS 
$X3DWS 
$X3MBS 
$X3MCL 
$X3MRE 
$X3MR5 
$X3MWS 
$X3RES 
$X3RST 
SZTIME 
S$ 


$$APR 

$$CSR 

$$DCHA 

SSDEV 

$$DPR 

$$EXT 

$$HTIM 

$$INC 

$$LINX 

$$LRB 

$$LSAD 

$$LTIM 

$$MTP 

SSMUX 

SSNBRA 

$$NODC 

$$PAR 

$$PCHA 

$$PR1 

$$RPRI 

$$SCSR 

SSSNUM 

$$TBL 

$$VECT 

$$$ 

$$$ARG 

$t$GLB 

$i$v 

$$$T2 
$$$$ 


003^.22  RG 

005^0^  RG 

003376  RG 

003400  RG 

003374  RG 

003402  RG 

002376  RG 

002A00  RG 

002366  RG 

002372  RG 

002370  RG 

002406  RG 

002410  RG 

002412  RG 

002374  RG 

002402  RG 

002404  RG 

003746  RG 
=  177777 


002574  RG 
002504  RG 
002724  RG 
002356  RG 
002654  RG 
002022  RG 
002036  RG 
002350  RG 
002362  RG 
003424  RG 
003372  RG 
002176  RG 
002512  RG 
002662  RG 
002656  RG 
002336  RG 
002352  RG 
003230  RG 
002506  RG 
002660  RG 
002664  RG 
002514  RG 
002360  RG 
002510  RG 
005450  R 
000003 


000002 
000166  R 
005616  R 


REFERENCES 

#15-630 
#15-563 
#15-560 
#15-561 
#15-559 
#15-562 
#15-528 
#15-529 
#15-524 
#15-526 
#15-525 
#15-532 
#15-533 
#15-534 
#15-527 
#15-530 
#15-531 
#17-778 

23-1282 
#23-1285 

23-1290 
#15-548 
#15-543 
#15-554 
#15-520 
#15-549 
#15-499 
#15-510 
#15-518 
#15-522 
#15-634 
#15-558 
#15-511 
#15-546 
#15-552 
#15-550 
#15-512 
#15-519 
#15-556 
#15-544 
#15-551 
#15-553 
#15-547 
#15-521 
#15-545 
#23-1282 
#6-96 
#6-102 

6-96 
#6-102 
#6-102 
#23-1285 


23-1282 
23-1286 
23-1290 


#23-1282 

23-1286 

#23-1290 


23-1283 

#23-1286 

23-1291 


23-1283 

#23-1287 

2^-1291 


#23-1283 

23-1288 

#23-1291 


23-1284 

23-1288 

#23-1292 


23-1284 
#23-1288 


#23-1284 
#23-1289 


23-1285 
6-96 
6-102 
6-102 

6-102 
#23-1287 


#23-1286 
#6-96 
#6-102 
6-102 


23-1287 
6-96 
6-102 
6-102 


#23-1288 
#6-96 

#6-102 
6-102 


23-1289 
6-96 

6-102 
6-102 


#23-1290 

#6-96 

#6-102 


23-1292 

6-96 

6-102 


6-96 
6-102 


#23-1289       #23-1292 


L  13 


J 


VRQB 
NOP  - 


K  U 

■  VNP  PROCESS  REQUEST  BLOC  MACRO  V05.03b  Tuesday  30-Jul-85  10;5.3 
NO  PRELIMINARY  WORK  REQUIRED 


Page  TO 


296 
297 
298 
299 
300 

301  000120 

302  000122 


000241 


NOP: 


.SBTTL 
NOP 


CLC 
RETURN 


NOP  -  NO  PRELIMINARY  WORK  REQUIRED 
-  NO  CHECKING  OR  LOOKUPS  NEEDED 
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CH<LP  -  CHECK  LINE  PARAMETERS 


^IM 


702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
71? 
7'? 
7U 


O0U56  010067  OOOOOOG 

00U62  012767  000001  OOOOOOG 

00H70  112767  000001  OOOOOOr 

C0K76  000241 

001500 


001502 
001510 
001516 
001524 


60$: 

MOV     RO,..SCSR 
MOV     #1,$$MrP 
Move    #1,$$SNUM 
CLC 
RETURN 

•  ERROR 

CONDITIONS 

101$: 
111$; 
121$: 
131$: 

EMSCSR  94 
EMSG$R  93 
EMSGSR  92 
EMSGSR  ZP 

SAVE   SECONDARY  CSR 

DEFAULT   TO  ONE   STATION 

AND  STATION  NUMBER   1    (POINT-TO-POINT) 

INDICATE   SUCCESS 


ILLEGAL   CSR   VALUE 
ILLEGAL    PRIORITY   VALUE 
ILLEGAL    VECTOR   VALUE 
VenOn  NOT    IN  SYSTEM 
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tfSLT  -  FIND  SLT 

1125  0032^2  EMSG$R  87  ;  UNITS  OUT  Of  ORDER 


VNTI      CREATED  BV  MACRO  ON  29-JUN-85  AT  02:50 
SYMBOL  CROSS  REFERENCE 


L  1 

PAGE  8 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LO.SEG 

000054 

#5-78 

LC.SKA 

OOOOU 

#5-78 

lO.SKN 

OOOOH 

#5-78 

LO.SNM 

000035 

#5-78 

LO.TPA 

000020 

#5-78 

LO.TRB 

00003A 

#5-78 

LO.TRI 

000030 

#5-78 

LO.UNT 

000033 

#5-78 

lO.VCT 

000014 

#5-78 

lO.VER 

000042 

#5-78 

LR.ACC 

000020 

#5-78 

LR.ACO 

000052 

#5-78 

LR.ADD 

000012 

#5-78 

LS.Al! 

000002 

#5-78 

lR.BLK 

000010 

#5-78 

LR.CTL 

000004 

#5-78 

LR.DES 

000010 

#5-78 

LR.HLP 

000002 

#5-78 

LR.LIN 

000002 

#5-78 

LR.NAM 

000012 

#5-78 

LR.PAS 

000041 

#5-78 

LR.PRO 

000002 

#5-78 

uR.STS 

000000 

#5-78 

LR.TRI 

000006 

#5-78 

LS.TYP 

000002 

#5-78 

LR.UCB 

000015 

#5-78 

LR.UK 

000020 

#5-78 

LR.UNT 

000005 

#5-78 

LST 

011074  K 

#57-3091 

LS.AL! 

=  000015 

#5-78 

LS.CEX 

=  000001 

#5-78 

LS.CIR 

=  000033 

#5-78 

L5.CX0 

-  010000 

#5-78 

LS.CX5 

=  000400 

#5-78 

LS.ECH 

=  001000 

#5-78 

LS.FDX 

=  004000 

#5-78 

LS."DX 

r     010000 

#5-78 

LS.HLP 

000012 

#5-78 

LS.lIN 

-  000003 

#5-78 

LS.LMC 

=  000007 

#5-78 

LS.lOG 

-  000020 

#5-'8 

lS.MOD 

=  000035 

#5-, 8 

L  S . NOD 

=   000014 

#5-78 

LS.N'I 

=  000013 

#5-78 

LS.OBj 

=  000022 

#5-78 

LS.QP'' 

=  000400 

#5-78 

ls.pro 

=  000002 

#5-78 

LS.TQP 

=  002000 

#5-78 

LS.TST 

=  000010 

#5-78 

LS.UNf 

=  020000 

#5-78 

L5.X!' 

=  000011 

#5-78 

LX.AlI 

=  000017 

#5-78 

♦107-4785  •108-4823 
5-78      5-78      5-78 


5-78 


5-78 


5-78 


*107-4788     »108-4826 


*109-4857 

♦107-4777     ♦107-4784     ♦108-4815     ♦108-4822     ♦109-4849     ♦109-4856 

♦107-4787     ♦108-4825 


♦107-4785     ^108-4824 


8-366 
108-4815 


107-4777 


109-4849 

107-4784   108-4822   109-4856 


in]_Qi;  AT  r\'3.rr\ 


M  1 


L 


VNTI 

CREATED  BY 

MACRO     ON  29 

-JUN-85   AT   02:50 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

.PSTPT 

-   ****♦♦ 

GX 

24-1468 
95-4106 

55-2622         61-27' 
96-4160         103-4 

.RADDR 

011674 

R 

#70-3233 

.RAMXC 

012412 

R 

#76-3389 

.RAMXH 

012340 

R 

#75-3369 

.RARE 

011614 

R 

#69-3206 

.RBEA 

012250 

R 

#75-3343 

.RBTM 

012464 

R 

#76-3407 

.RCOST 

011746 

R 

#71-3256 

.RDBNM 

=  ****** 

GX 

•24-1340 

24-1351 

.RDBSZ 

-  ****** 

GX 

♦24-1343 

24-1352 

.RHOP 

012022 

R 

#72-3279 

.RMAXA 

012160 

R 

#74-3318 

.RNAME 

011254 

R 

#68-3130 

.RNUM 

011330 

R 

#69-3160 

.RRTM 

012110 

R 

#73-3300 

.Rl 

003632 

R 

#24-- 328 

.R2 

003642 

R 

#24-- 331 

.R5 

003652 

R 

#24-1334 

.SBPCB 

r  ****** 

GX 

*8-476 

♦8-486 

.SBRA 

007030 

R 

#60-2734 

.SCTIM 

007002 

R 

#60-2722 

.SCTL 

006604 

R 

#59-2677 

.SDBNM 

=   ******* 

GX 

*24-1346 

24-1358 

.SDBSZ 

:::  ****** 

GX 

*24-1347 

24-1359 

.SLTDF 

006562 

R 

#57-2659 

.STADF 

006576 

R 

#58-2670 

.STRNG 

007706 

R 

#65-2908 

.SUNT 

006614 

R 

#59-2683 

.SYSID 

007574 

R 

#64-2883 

.SYSNM 

-   ****** 

GX 

61-2778 

.TPARS 

~        V  *  *  *  *  * 

GX 

30-1846 

31-1875 

L    2 
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CREF        04.00 
64-2883        65-2909        68-3137         83-3604 


VI 

$[ 


91-3906 


93-3989 


|M_QC;     AT     (\'^'f=.i\ 


K    2 


r 


L 


L  3 
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SPRIO  -  PROCESS  I/O 


vp: 

PR 


2^.3 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 

265  000000 

266  000000 

267  000004 

268  000010 

269  000014 

270  000020 

271  000022 

272  000024 

273  000026 

274  000032 

275  000034 

276  000040 

277  000042 

278  000046 

279  000052 

280  000056 

281  000060 

282  000064 

283  0000':6 

284  OOC 

285  000 

286  0001. 

287  00010^ 

288  000106 

289  000112 

290  000114 

291  000122 

292  000124 

293  000142 

294  000146 

295  000154 

296  000160 

297  000160 

298  000164 

299  000170 


.SBTTL  SPRIO  -  PROCESS  I/O 

SPRIG  -  PROCESS  I/O 

THIS  ROUTINE  IS  CALLED  TO  TRANSFER  THE  PROCESS  TASK  IMAGE  INTO  CORE.  A  PCS 
WILL  BE  CREATED  IF  THE  PARTITION  IN  USE  IS  A  SrSTEH  CONTROLLED  PARTITION. 
THE  PRESENCE  OF  AN  MCB  PROCESS  IN  A  SYSTEM  CONTROLLED  PARTITION  IS  DENOTED 
BY  SETTING  THE  PARTITION  NAME  TO  "NT.***",  WHERE  "***  IS  THE  PDV  NAME. 

INPUTS: 

R1=FILE  SPEC  ADDRESS 

R2=F1LE  SPEC  LENGTH 

$$PAR=PARTITION  NAME  (OPTIONAL) 

$$INC=EXTENSION  VALUE  IN  32.  WORD  BLOCKS  (OPTIONAL) 

$NAME=RAD50  PDV  NAME 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 

R0=ERROfi  CODE 

R1=PARTITI0N  CONTROL  BLOCK  ADDRESS 

R2=DESTR0YED 


005067  000252' 
005067  000250' 

105777  OOOOOOG 
100466 
052010 
001470 

103405 

103402 


SPRIO: 


005767  000250' 

001411 

016700  0C0252' 

001405 

103451 

005067  000252' 

000261 

016700  000250' 

016701  000252' 
103430 

032767  000020  OOOOOOG 
001416 

016702  OOOOOOG 
012762  Mmi     OOOOOOG 


10S: 


20S: 
30S: 


016746  000260' 
012667  000260' 


55S: 


CLR 

PCBA 

CLR 

ERROR 

CALL 

SCLOPE 

TST8 

aSCLIOS 

BMI 

101S 

BIS 

(R0)t,(RO) 

BEQ 

ins        ; 

CALL 

PR.L6L 

BCS 

10$ 

CALL 

PR. PAR 

BCS 

10S 

CALL 

PR.XFR 

CALL 

SCLDEQ 

TST 

ERROR 

BEQ 

30S 

MOV 

PCBA.RO 

BEQ 

20$ 

CALL 

SXPAR         ; 

BCS 

121$ 

CLR 

PCBA 

SEC 

MOV 

ERROR, RO 

MOV 

PC8A,R1 

BCS 

40$ 

BIT 

#FE.PLA,$FMASK  ; 

BEQ 

35$           ; 

GETRV 

R1,.PLGTH       ; 

MOV 

.PPR0,R2 

MOV 

#-1,$BFR(R2) 

PUTRC 

MOV 

$LDSIZ,-(SP) 

CALL 

CR.MC 

MOV 

(SP)t,$LDSIZ 

NO  PCB  YET 

NO  ERROR,  EITHER 

OPEN  PROCESS  FILE 

LOOK  AT  GCL  lOSB 

IF  MI,  FAILURE 

IS  FILE  CONTIGUOUS? 

IF  EQ,  NO 

READ  LABEL  BLOCK 

IF  CS,  ERROR 

FIND  PROCESS  PARTITION 

IF  CS,  ERROR 

READ  PROCESS  TASK  IMAGE  INTO  CORE 

CLOSE  PROCESS  FILE 

ANY  ERRORS?  (CLEARS  C-BIT) 

IF  ZERO,  NO 

GET  PCB  ADDRESS 

IF  ZERO,  NOTHING  TO  CLEANUP 

RELEASE  PARTITION 

IF  CS,  VERY  BAD 

SAFETY  PLAY 

INDICATE  FAILURE 

GET  ERROR  CODE 

AND  PCB  ADDRESS 

DONE  IF  C-BIT  =^ET 

IS  THIS  A  PLAS  SYSTEM? 

NO  IF  EQ 

RETRIEVE  PCB 

PROTECTION  WORD  OFFSET  IN  PCB 

DO  NOT  ALLOW  PLAS  ACCESS 

WRITE  BACK 

SAVE  LOAD  SIZE 

CHECK  FOR  MICROCODE  PARTITION 

RSTORE  LOAD  SIZE 


H  3 
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PR. SUB  -  CREATE  SUB-PARTITION 


811  002514 

016703 

00001 OG 

MOV 

P.SU8t$BFR,R3   ; 

812  002520 

001445 

BED 

70$ 

813  002522 

GETRV 

R3 

814  002532 

016704 

000014G 

MOV 

P.REL+$BFR,R4 

815  002536 

160204 

SUB 

R2,R4 

816  002540 

166704 

000142' 

SUB 

BL0X,R4 

817  002544 

103423 

BCS 

60$ 

818  002546 

010116 

MOV 

R1,(SP) 

819  002550 

GETRV 

RO 

820  002560 

010267 

000014G 

MOV 

R2,P.REL+$BFR   ; 

821  002564 

010367 

00001 OG 

MOV 

R3,P.SUBt$BFR 

822  002570 

PUTRC 

823  002574 

032767 

OOOOOOG  OOOOOOG 

BIT 

#FL.  TOP, $F LAGS  ': 

824  002602 

001462 

BEQ 

90$ 

825  002604 

060467 

000014G 

ADD 

R4,P.RELt$BFR 

826  002610 

PUTRC 

827  002614 

010301 

60$: 

MOV 

R3,R1          ': 

828  002616 

GETRV 

R1            ; 

829  002626 

016702 

000016G 

MOV 

P.8LKS+$BFR,R2  ; 

830  002632 

000726 

BR 

50$ 

831  002634 

70$: 

GETRV 

R5 

832  002644 

016704 

00001 4G 

MOV 

P.fiEL+$BFR,R4 

833  002650 

066704 

00001 6G 

ADD 

P.8LKS+$BFR,R4  ; 

834  002654 

032767 

OOOOOOG  OOOOOOG 

BIT 

*VF.SS,$VFLAG 

835  002662 

836 

837 

838 

839  002664 

001006 

BNE 

75$            ; 

.IF  NDF 

R$$MPL 

026727 

OOOOOOG  000016 

CMP 

$]C8LN,#16 

S'.O  002672 

001002 

BNE 

75$ 

841  002674 

012704 

007600 

MOV 

*7600,R4 

842 
843 
844  002700 

.ENDC 

160204 

75$: 

SUB 

R2,R4 

845  002702 

166704 

000142' 

SUB 

BL0X,R4 

846  002706 

103420 

BCS 

90$ 

847  002710 

032767 

OOOOOOG  OOOOOOG 

BIT 

#FL.T0P,$FLAGS  . 

848  002716 

001401 

BEQ 

80$ 

849  002720 

060402 

ADD 

R4,R2 

850  002722 

010116 

80$: 

MOV 

R1,(SP) 

851  002724 

GETRV 

RO 

852  002734 

010267 

000014G 

MOV 

R2,P.REL+$BFR 

853  002740 

010367 

000010G 

MOV 

R3,P.SUBt$BFR   , 

854  002744 

PUTRC 

855  002750 

012601 

90$: 

MOV 

(sp)+,Ri         ; 

856  002752 

001416 

BEO 

110$ 

857  002754 

GETRV 

R1 

858  002764 

010067 

000010G 

MOV 

RO,P.SUBt$EiFR 

859  002770 

PUTRC 

860  002774 

010005 

MOV 

R0,R5 

861  002776 

RETURN 

862 
863 
864 
865 
866  003000 

•  ERROR  CONDITIONS 

012767 

000036  000250' 

i00$: 

MOV 

#ERR30, ERROR 

867  005006 

RETURN 

Page  15-1 


GET  NEXT  SUB-PC8 

IF  ZERO,  END  OF  LIST 

READ  IN  PCB 

GET  BIAS  OF   SUB-PARTITION 

GIVING  SIZE  OF  HOLE 

IS  THE  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

SAVE  PREVIOUS  SUB-PCB  ADDRESS 

READ  IN  PCB 

SET  SUB  PARTITION  BIAS 

AND  POINTER  TO  NEXT  SUB-PCB  IN  LIST 

REWRITE  PCB 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO  -  ALL  DONE 

ALLOCATE  FROM  TOP  OF  HOLE 

REWRITE  PCB 

COPY  SUB-PCB  ADDRESS 

READ  IN  PCB 

GET  SUB-PCS  SIZE 

READ  IN  MAIN  PCB 

GET  MAIN  PARTITION  BIAS 

GIVING  BIAS  OF  END  OF  PARTITION 

IIS  SYSTEM  ? 

IF  YES  -  BRANCH 


11M  SYSTEM  ? 

IF  NO  -  BRANCH 

ALLOW  ACCESS  OF  124KW  FOR  IIM  SYSTEMS 


GIVING  SIZE  OF  LAST  HOLE 

IS  LAST  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO 

ALLOCATE  FROM  TOP  OF  HOLE 

SAVE  PREVIOUS  SUB-PCB  ADDRESS 

READ  IN  PCB 

SET  SUB  PARTITION  BIAS 

AND  POINTER  TO  NEXT  SUB-PCB  IN  LIST 

REWRITE  PCB 

GET  PREVIOUS  SUB-PCB  ADDRESS 

IF  EQ,  NO  SPACE  IN  PARTITION 

READ  IN  PCB 

LINK  OUR  SUB-PCB  TO  PREVIOUS 

REWRITE  PCB 

THIS  IS  NOW  THE  OFFICIAL  PCB 


SUB-PC8  ALLOCATION  FAILURE 


PRI» 


;[MP01] 


;[MP01] 


;[MP01] 


;[MP01] 


M  A 


r 


L 


PRMPTS  -  VNP  PROMPT  STRINGS 


1 
2 
3 

5 
6 
7 
8 
9 
10 

n 

13 
u 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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VPfi 
LOC 


.IF  NDF  SGOFF 
.TITLE  PRMPTS 


VNP  PROMPT  STRINGS 


PRMPTO  -  VNP  PROMPT  STRING  OFFSETS  ONLY 


.IFF 

.TITLE 

.FNDC 

.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


:**-1 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  COMMAND  PROMPT  STRINGS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


M  5 


r 


L 


VPRO  -  VNP  SET 

PROCESS 

ROUTINES 

LOCAL  DATA 

137  0000A2 

138 

139 

140 

Ul 

142  000044 

000056' 

000000 

143  000050 

144  000054 

000000 

145 

146 

147 

148  000056 

000070' 

000000 

149  000062 

150  000066 

000000 

151 

152 

153 

154 

155 

156  000070 

000102' 

000000 

157  000074 

126404 

046166 

158  000100 

159 

160 

161 

162 

163  000102 

000114' 

000000 

164  000106 

126404 

012404 

165  000112 

166 

167 

168 

169 

170  000114 

000126' 

000000 

171  000120 

126230 

076534 

172  000124 

173 

174 

175 

176 

177  000126 

000140' 

000000 

178  000132 

125711 

074646 

179  000156 

180 

181  000140 

000152' 

000000 

182  000144 

063357 

140075 

183  000150 

184 

185  000152 

000164 

000000 

186  000156 

063357 

073470 

187  000162 

188 

189 

190 

191 

192  000164 

000176 

000000 

193  000170 

124473 

007544 

L  6 
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PVAL:    .81 KW   1 

;  START  OF  PROCESS  VECTOR  TABLE 

VECSYM:  .WORD   VLNSYM,0 
VTSYM:   .BLKW   2 
VECVAL:  .WORD   0 

;  VECTOR  TABLE  SIZE  (WORDS) 

VLNSYM:  .WORD   $PRINC,0 
VLSYM:   .BLKW   2 
VLNVAL:  .WORD   0 


PROCESS  LINE  TABLE  SIZE 

iPRINC::.WORD  $PREXT,0 

.RAD50  "$$LL1N" 

$PRLLN::.BLKW  1 


PROCESS  CONTROLLER  TABLE  SIZE 

$PREXT::.W0RD   DTBLK.O 

.RAD50  "$$LCNT" 
SPRCLN: :.BLKW   1 

DCS  DISPATCH  TABLE  ADDRESS 


VPI 
tC( 


DTBLK 
DTSYM 
DTVAL 


.WORD   SQBLK.O 
.RAD50   "$XXT8L" 
.BLKW   1 


FORK  AND  TIMER  BLOCKS  INITIALIZATION  INFORMATION  (  FOR  AUX) 
SQBLK: 


SSQSRV 
MILBLK 
PRIOOM 
SECBLK 
PR1SC: 


.WORD 

.RAD50 

.BLKW 

.WORD 

.RAD50 

.BLKW 

.WORD 

.RAD50 

.BLKW 


MU6LK,0 
"SSQSRV" 

1 

SECBLK, 0 
"PRIOOM" 
1 

XBLKI.O 
"PRISC" 
1 


COMM  EXEC  SYMBOLS  USED  FOR  PROCESS  VALIDATION 
X8LK1: 


.WORD 
.RAD50 


XBLK2,0 
"$CC8RT' 


M  6 


r 
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$CACH  -  ALLOCATE  CACHE 
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7A9  002212 

750  0O22U 

751  002234 

752  002236 

753  002240 

754  0022A2 
755 

756  002244 

757  002246 

758  002250 

759  002252 

760  002254 

761  002260 

762  002264 
763 

764  002266 

765  002270 

766  002274 
"■^  002276 
/o8  002302 
769  002306 
770 

771  002310 

772  002312 

773  002314 

774  002316 

775  002336 

776  002342 

777  002344 

778  002350 

779  002354 

780  002356 
781 


160105 

060100 
010501 
001401 
000750 

010301 
010305 
001467 
005003 
062702 
012700 
000737 

010105 
022705 
002002 
012701 
012703 
010104 

105023 
005304 
001375 

022705 
002032 
162705 
062700 
010501 
000744 


000200 
140000 


001000 

001000 
OOOOOOG 


001000 

001000 
001000 


782 

783  002360 

012700 

114224 

784  002364 

785  002370 

103420 

786 

787  002372 

016000 

OOOOOOG 

788  002376 

789  002414 

005067 

000062G 

790  002420 

005067 

000064G 

791  002424 

792 

793  002430 

794 

795  002432 

796 

SUB 

R1,R5 

PUTAD 

R0,R1,R2 

ADD 

R1,R0 

MOV 

R5,R1 

BEQ 

60i 

BR 

30$ 

60$: 

MOV 

R3,R1 

MOV 

R3.R5 

BEQ 

126$ 

CLR 

R3 

ADD 

#200. R2 

MOV 

#1 40600, RO 

BR 

30$ 

70$: 

MOV 

R1,R5 

80$: 

CMP 

#5l2.,R5 

BGE 

90$ 

MOV 

#512. ,R1 

90$: 

MOV 

#$6FR,R3 

MOV 

R1,R4 

100$: 

CLR8 

(R3)t 

DEC 

R4 

SNE 

100$ 

PUTAD 

R0,R1,R2 

CMP 

*5l2.,R5 

BGE 

120$ 

SUB 

#512. ,R5 

ADD 

#512. ,R0 

MOV 

R5,R1 

BR 

80i 

110$: 

MOV 

#*RXPT,RO 

CALL 

FNDPDV 

BCS 

130$ 

MOV 

Z.DAT(RO),RO 

GETRV 

RO,#N$XLEN 

CLR 

$BFR+N$CACH 

CLR 

$BFR+N$CACHt2 

PUTRC 

120$: 

RETURN 

130$: 

EMSG$R 

70 

ADJUST  REMAINING  SIZE  IN  FIRST  BLK 

WRITE  OUT  CACHE  BLOCK 

ADJUST  ADDRESS 

COPY  TRANSFER  SIZE 

IF  NO  MORE  -  BRANCH 

CONTINUE 

COPY  SIZE  OD  SECOND  4KW  BLOCK 

IF 'no  more  -  BRANCH 

FLAG  SECOND  BLOCK  TRANSFER  INITIATED 

ADJUST  BIAS  TO  NEXT  4KW 

SET  VIRTUAL  ADDRESS  TO  FIRST  WORD 


SAVE  SIZE 

MORE  THAN  ONE  TRANSFER 

IF  NO  -  BRANCH 

IF  YES  -  LIMIT  TRANSFER  SIZE 

GET  BUFFER  ADDRESS 

COPY  SIZE 

INIT  BUFFER 

ANY  LEFT  ? 

IF  YES  -  BRANCH 

WRITE  CACHE  TO  IMAGE 

ANY  LEFT  TO  TRANSFER  ? 

IF  NO  -  BRANCH 

IF  YES  -  ADJUST  REMAINING  SIZE 

ADJUST  ADDRESS 

SAVE  SIZE 

CONTINUE 


GET  XPT  PDV  ADDRESS 

If'nOT  PDV  -  BRANCH  ?? 

GET  XPT  ODB  ADDRESS 

READ  XPT  DDB 

INIT  CACHE  SIZE  FOR  ROUTING  NODE 

INIT  CACHE  ADDRESS  FOR  ROUTING  NODE 

WRITE  XPT  DDB  TO  IMAGE 


XPT  NOT  FOUND 
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Symbol   table 


SF.ACT= 

000200 

TSLTPR 

000014 

SF.ENA= 

000100 

TSLTPS 

000020 

SF.LPB= 

000004 

TSNAPL 

000004 

SF.MFL= 

000040 

T$NFE 

000000 

SF.PAC= 

000020 

TSNLEN 

000010 

SF.REA= 

000010 

TSNNUL 

000002 

SF.SER= 

000001 

TSNOPL 

000006 

SF.SVC^ 

000002 

TSNRNl 

000042 

SF.UNL= 

000040 

TSNRPL 

000005 

SQBLK 

0001 26R 

002  TSNRUL 

000007 

5TBERR 

001054R 

T$NVR 

000001 

STBEXT 

000020R 

002  TSRPRl 

000040 

SYSFDB= 

.»••«»  GX 

T$SVC 

000034 

S$$WRG= 

000000 

T$T5 

000030 

S$$YS2= 

007600 

T$T6 

000032 

S.COST 

000001 

T$$KMG= 

000000 

S.FLG 

000000 

T$$MIN= 

000000 

S.LEN 

000004 

VECLEN 

000006R 

S.NMST 

000002 

VECSYM 

000044R 

S.OUNR 

000003 

VECTAB 

OOOOOOR 

TSKERR 

000340R 

VECVAL 

000054R 

TSFLAG 

000044 

VF.LIB= 

000001 

TSLIF 

000013 

VLNSYM 

000056R 

TSLIFL 

000013 

VLNVAL 

000066R 

TSLIFO 

00001 3 

VLSYM 

000062R 

TSLIFS 

000013 

VTSYM 

000050R 

TSLIN 

000000 

V$$CTR= 

001000 

TSlIPS 

000006 

V.ADD 

000006 

TSLLD 

000012 

V.BIAS 

000004 

TSLLDC 

000045 

V.FLG 

000002 

TILLDL 

000012 

V.LEN 

000012 

TSLLDO 

000012 

V.LNK 

000000 

TSLLDS 

000012 

V.PDV 

000004 

T$LLEN 

000046 

V.SIZ 

000010 

TSLOPR 

000002 

XBLK1 

000164R 

TSLTCL 

000024 

XBLI<;2 

0001 76R 

TSLTIM 

000026 

XBLK3 

00021  OR 

.    ABS.      177776 
004504 
DATA  000274 

Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


'*«  Assembler  statistics 


XPTDSP 
XPTPDV 
X$$DBT= 
2.AVL  = 
Z.DAT  = 
Z.DSP  = 
Z.LLN  = 
Z.MAP  = 
Z.NAM  = 
Z.PCB  = 
SALADJ 
SALECL 
SALMHC 
$ALN18= 
$ALPOL= 
SALTLC 
$AZFS  = 
002  $8FR  = 
002  $61AS  = 
002  SCACH 
002  $CAT5  = 
$CEACC= 
002  $CETDF= 
002  $CKT 
002  $CMFRK= 
002  SCTSYM 
$DECPT= 
$DFN  = 
$DFNAM= 
$ERRQX= 
$ERR44= 
$ERR45= 
$ERR46= 
$ERR47= 
002  $ERR49= 
002  $ERR50= 
002 


GX 
GX 
GX 
GX 
GX 
GX 


00001 6R 
000014R 
000000 

****** 
****** 
****** 

****** 
****** 
****** 

******  GX 

0024A0RG 

00A056RG 

003A24R6 

******  GX 

******  GX 

001062RG 

******  GX 

******  GX 

******  GX 

002000RG 

******  GX 

******  GX 

******  GX 

002720RG 

******  GX 

004504RG 

******  6x 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


Work  file  reads: 
Work  file  writes: 
Size  0*  work  tile: 
Size  of  core  pool 


52 

54 

18984  Words 

17608  Words 


002  $ERR51= 
002  $ERR53= 
$ERR54= 
$ERR55= 
$ERR56= 
$ERR57= 
$ERR58= 
$ERR59= 
$ERR60= 
$ERR61= 
$ERR62= 
$ERR63= 
$ERR64= 
$ERR65= 
$ERR66= 
$ERR67= 
$ERR69= 
$ERR70= 
$ERR9D= 
$ERR99= 
$GETAD= 
$GETRV= 
$LDSIZ= 
$LLCTA= 
$MUL  = 
SNAME  = 
$NTLHB= 
$PDVA  = 
$PDVNM= 
$PDVTA= 
SFRCLN 
SFREXT 
SPRING 
SPRIO  = 
SPRLLN 
$PUTAD= 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

000112RG 

000102RG 

000070RG 

******  GX 

000100RG 

******  GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


$PUTRC= 
$RADDR= 
$RBLCK= 
$ROL 
$SAVAL= 
SSLTA  = 
$SLTMA= 
SSQSRV 
$SYMBL= 
$T1SCL= 
$T100C= 
SXFER 
$$DEV  = 
$$HTIM= 
$$LTIM= 
$$NBRA= 
$$NODC= 
$$RPRI= 
$$T8L  = 
.CXALL 
.CXCSR 
.CXLBR 
.CXLB1 
.CXLB2 
.CXLEN 
.CXPCB 
.CXSYM 
.CXUNL 
.CXVEC 
.CXVSM 
002  .MGMGE= 
002  .NTGCD 
002  .NTPCB 
.NTUMR 
002  .PLGTH= 
.SBPCB 


******  GX 
******  GX 
******  GX 
001452RG 
******  GX 
******  GX 
******  GX 
0001 36R 
******  GX 
******  GX 
******  GX 

OOOOOORG 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

000062 

000004 

000060 

000030 

000044 

000064 

000006 

000010 

000024 

000026 

000016 

****** 

000000 
000000 
000002 

****** 

000066 


GX 
GX 
GX 
GX 


GX 


GX 


(  75  Pages) 
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L  10 


451 
452 
453 
454 

455  002002 

456  002004 

457  002006 

458  002010 

459  002012 

460  002014 
461 

462 

463 

464 

465 

466 

467 

468  002016 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498  002020 

499  002022 
500 

501 
502 
503 
504 

505  002024 

506  002026 

507  002030 


000004 


000016 
000016 


000001 
000002 
000004 


000001 
000002 
000004 
000010 
000420 
000437 
000040 
000100 
000200 
000400 
001000 


.SBTTL  DATA  FOR  INPUT  PARAMETERS 


;  GENERAL  INPUT 

PARAMETERS 

IFUNC::  .BLKW 

FUNCTION  CODE 

SOPTON 

:.BLKW 

OPTIONS  PRESENT 

SCMAND 

:.BLKW 

COMMAND  TVPE 

SQUAL: 

.8LKW 

COMMAND  QUALIFIERS 

STYPE: 

.BLKW 

SHOW  COMMAND  TYPE 

SMISS: 

.BLKW 

MISSING  PARAMETERS  BIT  MASK 

.IF  NDF 

RSSMPL 

;[MP01] 

SKRBLN  ==  4 

SIZE  OF  NETWORK  KRB 

.IFTF 

;CMPOn 

SICBI   ==  16 

SIZE  OF  KB 

;[MPOn 

$IC8LN::.W0RD 

SICBI 

DEFAULT  TO  I-ONLY  ICB  SIZE 

;[MP01] 

.IFF 

;[MP01] 

SKRBLN  ==  26 

SIZE  OF  KRB 

.-CMPOl] 

SICBD   ==  30 

SIZE  OF  I/D  SPACE  ICB 

; lMPOI ] 

.ENDC 

; [MPOl ] 

;  SCMAND  -  BIT 

DEFINITIONS 

CM$SET==1 

SET  COMMAND 

CM$CLE==2 

CLEAR  COMMAND 

CMSSH0==4 

SHOW  COMMAND 

;  SMISS  -  BIT  DEFINITIONS 

MS.CSR==1 

CSR  MISSING 

MS.PRI==2 

INTERRUPT  PRIORITY  MISSING 

MS.VCT==4 

VECTOR  MISSING 

MS.MTP==10 

MULTIPOINT  STATION  NUMBERS  MISSING 

MS.MUX==420 

•  MUX  UNIT  INFORMATION  MISSING 

MS.ALL==437 

•  ALL  LINE  INFO 

MS.LLC==40 

•  LLC  INFO  MISSING 

MS.INC==100 

LINE  TABLE  COUNT  MISSING 

MS.EXT==200 

•  CONTROLLER  TABLE  COUNT  MISSING 

MS.SEC==400 

•  SECONDARY  CSR  MISSING 

MS.CIR==1000 

■  CIRCUIT  PARAMETERS  MISSING 

;  PROCESS  PARAMETERS 

iFEATR::.8LKW   1 
SSEXT::  .BLKW   1 


.IF  DF  RSSMPL 

.D81AS::.8LKW 

.ENDC 

.NN::    .BLKW 

.MAXC::  .BLKW 

.MAXH::  .BLKW 


CURRENT  LLC  DEVICE  FEATURES  WORD 

LLC  -  NUMBER  OF  32.  WORD  BLOCKS  TO  EXTEND  PROCESS 

DDM/DLC  -  NUMBER  OF  CONTROLLER  TABLES  IN  PROCESS  SPACE 


START  OF  D-DPACE 

NUMBER  OF  NODES  MAXIMUM 
MAXIMUM  COST  ALLOWED 
MAXIMUM  HOPS  ALLOWED 


[MPOl] 
CMPOl] 
CMP01] 
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1095  00^14 

066703 

173736 

1096  OOA520 

005202 

1097  00A522 

162703 

001000 

1098  00A526 

100374 

1099  00A530 

005302 

1100  004532 

062703 

001000 

1101  004536 

000410 

1102  00A540 

1103 

1104 

1105 

1106 

1107 

1108  004540 

010203 

1109  004542 

042703 

177000 

1110  004546 

040302 

1111  004550 

062702 

003000 

1112  004554 

000302 

1113  004556 

006202 

1114  004560 

1115  004560 

020260 

000006 

116  004564 

101027 

117  004566 

1118  004572 

103424 

1119  004574 

012603 

1120  004576 

016060 

000002  0U0024 

1121  004604 

001407 

1122  004606 

026027 

000002  001000 

1123  004614 

101005 

•124  004616 

125  004620 

103421 

1126  004622 

1127 

1128  004624 

'".026 

1129  004626 

1130 

1131 

1132 

1133 

1134 

1135  004630 

1136  004644 

010267 

000000' 

1137  004650 

1138  004664 

25$: 


27$: 


28$: 


29$: 
30$: 

40$: 


ADD 

$RADDR,R3 

INC 

R2 

SUB 

*1000,R3 

BPL 

23$ 

DEC 

R2 

ADD 

*1000,R3 

BR 

2n 

.IF  DF 

R$$MPL 

BIC 

#DF.SC0,$DFLAG  ; 

.ENDC 

MOV 

R2,R3         ■ 

BIC 

#*C<777>,R3 

BIC 

R3,R2 

ADD 

#3*256. ♦2, R2 

SWAB 

R2 

ASR 

R2 

CMP 

R2,F.HIBKt2(R0)  ; 

BHI 

30i 

CALL 

.POINT 

BCS 

30$ 

MOV 

(SP)+,R3 

MOV 

F.RSIZ(RO),F.NRB[ 

BEQ 

28$ 

CMP 

F.fiSIZ(R0),#1000 

BHI 

29$ 

CALL 

a(SP)+ 

BCS 

40$ 

RETURN 

; 

CLR 

(SP)  + 

RETURN 

; 

CALC  OFFSET  OF  REFERENCED  LOCN 

FORM  NEXT  HIGHEST  BLOCK  NUMBER 

IS  ADDRESS  IN  PREVIOUS  BLOCK  7 

IF  PL  NO 

FORM  CORRECT  BLOCK  NUMBER 

FORM  OFFSET  IN  BLOr^, 

BRANCH  TO  VALIDATE  AND  PERFORM  THE  I/O 


DISABLE  LOWCR  FLAG 


;[MP01] 
;[MP01J 


LABEL  FOR  NON-DISPLACED  MEMORY  XFER 

COPY  ADDRESS  OF  RECORD 

CLEAR  ALL  BUT  OFFSET  IN  BLOCK 

CLEAR  ALL  BUT  BLOCK  NUMBER 

CALCULATE  VIRTUAL  BLOCK  NUMBER 

SWAP  BLOCK  NUMBER  TO  LOW  BYTE 

CONVERT  TO  RELATIVE  BLOCK  NUMBER 

REF  LABEL  TO  VALIDATE  AND  PERFORM  I/O 

LEGAL  VIRTUAL  BLOCK  NUMBER  ? 

IF  HI  NO 

POINT  TO  RECORD  IN  TASK  IMAGE  FILE 

IF  CS  ERROR 

RESTORE  R3 

(RO)  ;  SET  SIZE  OF  RECORD  TO  GET/PUT 
ILLEGAL  RECORD  SIZE 

;  MAXIMUM  RECORD  SIZE  IS  512.  BYTES 
TOO  BIG  ... 
ACCESS  RECORD 
IF  CS  I/O  ERROR 


POP  SUBROUTINE  ADDRESS  OFF  STACK 
RETURN  (  NULL  TRANSFER  SIZE  ) 


ERROR  PROCESSING 


ERRPT$  ERRV4,$ER0UT, FATAL 

MOV  R2,$BFR 

ERRPT$  ERRVl,$EROUT, FATAL 

ERRPT$  ERRV2,$ER0UT, FATAL 


ILLEGAL  RECORD  SIZE 

STORE  ILLEGAL  BLOCK  NUMBER 

I/O  ERROR 
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SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

ARAMS< 

=    176000 

G 

/>1  5-641 

A. LULU 

=  000002 

6-102 

CEACC 

000500 

RG 

#6-127 

CFSFLG 

001026 

RG 

#7-211 

CL.AST 

=  00^000 

#6-102 

CL.ATT 

=  000200 

6-102 

#6-102 

CL.CAS 

=  020000 

#6-102 

CL.CMT 

=  000001 

6-102 

#6-102 

CL.EIF 

=  000040 

#6-102 

CL.EXN 

=  040000 

#6-102 

CL.EXT 

=  000010 

6-102 

*6-iy2 

CL.IND 

=  000002 

6-102 

#6-102 

CL.LCC 

=  000020 

6-102 

#6-102 

CL.NPR 

=  000400 

#6-102 

CL.OPN 

=  000100 

G 

#6-102 

6-103 

CL.RNE 

=  000004 

#6-102 

CL.XIT 

=  100000 

#6-102 

CMSCLE 

=  000002 

G 

#15-479 

CMSSET 

=  000001 

G 

#15-478 

CMSSHO 

=  000004 

G 

#15-480 

C.DSDS 

=  000006 

6-102 

6-113 

C.SIZE 

=  000054 

6-102 

DEFFLG 

=  000233 

#6-102 

6-102 

OFCNT 

001032 

RG 

#7-213 

DFEXT 

001606 

R 

8-249 

#13-396 

DFLTNB 

000426 

R 

6-102 

#6-102 

DFPTR 

001030 

RG 

#7-212 

DFTLEN 

=  000007 

#6-102 

DSIZE 

=  000044 

G 

#7-152 

DSEND 

=  000104 

6-140 

EF 

=  000001 

#6-102 

6-102 

ERRVI 

005316 

R 

19-1137 

#23-1285 

ERRV2 

005406 

R 

19-1138 

#23-1287 

ERRV5 

005446 

R 

22-1272 

#23-1289 

ERRV4 

005616 

R 

19-1135 

#23-1292 

FATAL 

=   176031 

G 

#14-407 

19-1135 

FE.EXV 

=  000004 

18-1027 

FILE 

001374 

RG 

8-233 

8-258 

FL.CEX 

=  000010 

G 

#15-573 

FL.CHA 

=  000020 

G 

#15-574 

FL.CNT 

=  004000 

G 

#15-581 

FL.DDM 

=  000001 

G 

#15-570 

FL.DLC 

=  000002 

G 

#15-571 

FL.ECH 

=  000040 

G 

#15-575 

FL.FDX 

=  000100 

G 

#15-576 

FL.HDX 

=  000200 

G 

#15-577 

FL.KMX 

=  000400 

G 

#15-578 

FL.LLC 

=  000004 

G 

#15-572 

FL.LMC 

=  001000 

G 

#15-579 

FL.MUX 

=  002000 

G 

#15-580 

FL.PXI 

=  010000 

G 

#15-582 

FL.PX2 

=  020000 

G 

#15--583 

L  12 

PAGE  1 

CREF   04.00 


6-102 


19-1137 
#13-389 


6- 1 02 


19-1138 
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CREATED  BY     MACRO     ON   17-SEP-85   AT   16:16 


SYMBOL   CROSS  REFERENCE 
SYMBOL   VALUE 


REFERENCES 


ABTIM 

0036A0  RG 

#16-722 

ALLOC 

001012  RG 

#7-194 

CEAVL 

003662  RG 

#16-735 

CEPWR 

003670  RG 

#16-740 

CLINS 

003572  RG 

#16-702 

CLKHD 

0036A4  RG 

#16-724 

CRAVL 

003552  RG 

#16-694 

CRCOV 

003666  RG 

#16-739 

DEUMR 

00363A  RG 

#16-720 

DEVHD 

003556  RG 

#16-696 

DLCOV 

003664  RG 

#16-738 

EX5IZ 

003560  RG 

#16-697 

.FMASK 

003562  RG 

#16-698 

.FRKHD 

003574   RG 

#16-703 

.FSRCB 

r  ******   G 

6-89 

.GET 

=  ♦*•**♦  GX 

18-1035 

.HEADR 

003576  RG 

#16-704 

.MAXC 

002026  RG 

#15-506 

.MAXH 

002030  RG 

#15-507 

.MGEXT 

003626  RG 

#16-717 

.MGMGE 

003630  RG 

#16-718 

.NETPF 

003654   RG 

#16-728 

.NN 

002024  RG 

#15-505 

.NSO 

003606  RG 

#16-709 

.NS1 

003610  RG 

#16-710 

.NS2 

003612  RG 

#16-711 

.NS3 

003614   RG 

#16-712 

.NS4 

003616  RG 

#16-713 

.NS5 

003620  RG 

#16-714 

.NS6 

003622  RG 

#16-715 

.NS7 

003624   RG 

#16-716 

.NTUIC 

003656  RG 

#16-729 

.PARHD 

003564  RG 

#16-699 

.PATT 

003646  RG 

#16-725 

.PDV'TA 

003660  RG 

#16-734 

.PHDR 

003650  RG 

#16-726 

.PLGTH 

003602  RG 

#16-706 

.POINT 

=   ******     GX 

19-1117 

.PPRO 

003652  RG 

#16-727 

.PUT 

=  ******  GX 

19-1080 

.RDBNM 

001014  RG 

#7-195 

.RDBSZ 

001016  RG 

#7-196 

.ROUTM 

002032  RG 

#15-508 

.SDBNM 

001020  RG 

#7-197 

.SDBSZ 

001022  RG 

#7-198 

.STKDP 

003600  RG 

#16-705 

.SYSIZ 

003566  RG 

#16-700 

.SYSNM 

003570  RG 

#16-701 

.TLGTH 

003642  RG 

#16-723 

.TSKHD 

003636  RG 

#16-721 

.UMRHD 

003632  RG 

#16-719 

.VCTR 

003604   RG 

#16-708 
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CREF        04.00 


21-1200 


20-1164 
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RNT1,5CEX   -   CHECK   SET    SYS 


30^ 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3K 
315 
316 

317  000124 

318  00012A 

319  000132 

320  000140 

321  000142 

322  000146 

323  000150 

324  000156 

325  000160 
326 

327 

328 

329 

330 

331 

352 

353 

354 

535 

336 

357  000162 

338  000170 

359  000172 

540  000174 


SCEX 


.SBTTL  RNT],SCEX  -  CHECK  SET  SYS 
CHECK  "SET  CEX"  REQUEST  BLOCK 


INPUTS: 

R3=REQUEST  BLOCK  POINTER 
.BLKW   1 


LR.8LK  -  NETLDR  DATA  BLOCK  ADDRESS 


OUTPUTS: 

C-8IT=SJCCESS/FAILURE 

DATA  BLOCK  ADDRESS   STORED    IN  SNTLPT 

FL.CEX   SET    IN   SFLAGS 


112767 
052767 
001006 
011567 
001004 

005004 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 


SCEX: 


MOVB 

#FL.CEX,$fLAGS 

BIT 

#FE.CEX,SFMASK 

BNE 

10$ 

MOV 

(R3),$$MUX 

BNE 

20$ 

EMSGSR 

91 

i: 

CLR 

R4 

20$: 

RETURN 

SET  NETLDR  MODE 

IS  COMM  EXEC  ALREADY  LOADED? 

IF  NE,  YES 

SAVE  DATA  BLOCK  ADDRESS 

IF  NE,  NO  PROBLEM 

NO  DATA  BLOCK  ADDRESS 

NO  WORK  TO  DO! 


RNTI  -  BE  SURE  CEX  IS  UNLOADED 

INPUTS: 

R4  =  FUNCTION  CODE 


052767 
001401 
005004 


OOOOOOG  OOOOOOG  RNTI: 


10$: 


BIT  *fE.CEX,$FMASK 

BEQ  10$ 

CLR  R4 
RETURN 


IS  tuMEXEC  ALREADY  LOADED 

IF  EQ,  NO 

ELSE,  NO  WORK  TO  DO  '. 


M  U 


VRQB  -  VNP  PR0C6SS  REQUESr  BLOC  MACRO  VQS.O^b  Tuesday  50-Jul-85  1 
CLRPP  -  CLEAR  PROCESS  PARMS 


l.W 


Page  ?1 


716 
717 
718 
719 
720 
721 
722 
72? 
72^ 
725 
726 

727  001532 

728  001532 

729  001536 

730  001 5i2 


.SSTTL   CLRPP  -  CLEAR  PROCESS  PARMS 
I- 
CLRPP  -  CLEAR  PROCESS  PARAMETERS 

INPUTS: 

NONE 

OUTPUTS: 

$$;nc=o 

$$PAR=0 


005067 
005067 


OOOOOOG 
OOOOOOG 


CLRPP: 


CLR 
CLR 

RETURN 


$$]NC 
$$PAR 


SET  NO  PROCESS  INCREMENT 
AND  NO  PARTITION  OVERRIDE 


VRQB  -  VNP   PROCfSS   REQUEST    BLOC   MACRO 

VC 

tRERH  -  o»INI   ERROR  MESSAGE 

1125 

1126 

1127 

1128 

1129 

1130 

1151 

1132 

1133 

US'. 

1135 

1136  003250 

1137  003250 

1138  00325^ 

010005 

1139  003256 

012704 

000400' 

1U0  003262 

012505 

1U1    00326A 

005775 

000000 

1U2  003270 

001425 

1U3  003272 

1U4  003274 

105715 

1U5  003276 

001405 

1U6  003300 

112524 

1U7  003302 

001576 

1U8  003304 

005304 

1U9  003306 

012505 

1150  003310 

112524 

•■151   003312 

001576 

1152  0033U 

005304 

1155  003316 

012700 

000370' 

1154  005322 

010401 

1155  003524 

160001 

1156  003326 

1157  005552 

005703 

1158  005554 

001401 

1159  003336 

1160  005540 

0C0261 

115'   005542 

Vs\ 


Page  30 


.SSTTL     $RERR   -  PRINT   ERROR  MESSAGE 

$RERR  -   PRINT   ERROR  MESSAGE 

INPUTS: 

RO=MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-B1T=SET 
R0,R1:DESTR0VED 

tRERR: 


10$: 


20$: 
30$: 


40$: 


CALL 
MOV 
MOV 
MOV 

rsT 

BEQ 

CALL 

TST8 

BEQ 

M0V8 

BNE 

DEC 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

sue 

CALL 

TST 

BEQ 

CALL 
SEC 

RETURN 


$SAVAL 

R0.R5 

#ERRBUf ,R4 

(R5)t,R3 

S(R5) 

40$ 

a(R5)t 

(R5) 

20$ 

(R5)t,(R4)* 

10$ 

R4 

(R5)+,R5 

(R5)t,(R4)* 

50$ 

R4 

*ERRMSG,f<0 

R4,R1 

RO.RI 

$TI0UT 

R3 

40$ 

(R5) 


SAVE  ALL  REGISTERS 

copy  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

JUST  IN  CASE... 

BRANCH  If  NO  FORMATTING 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  THE'ZERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  THE'ZERO  BYTE 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

iF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RETURN  WITH  C-BIT  SET 


L 


.N':       CREATED  B*   MACRO  ON  2'5-JUN-85  AT  02:50 
SVMBOL  CROSS  OE^ERENCE 


H  1 

PAGE  9 

CREF   OA.OO 


SYMBOL   VALUE 


REFERENCES 


LX.CEX 

r   OOOOOA 

#5-78 

LX.CIR 

=  000034 

#5-78 

lX.LIN 

=  000006 

#5-78 

LX.LOG 

=  000021 

#5-78 

LX.NOD 

=  000015 

#5-78 

L X.OB J 

=  000023 

#5-78 

LX.PRC 

=  000005 

#5-78 

L.C03T 

000015 

#5-75 

L.C'L 

000012 

#5-75 

L.CVA 

177776 

#5-V5 

L.DDM 

000002 

#5-75 

..DOS 

000004 

#5-75 

L.DlC 

000005 

#5-75 

l.Dlm 

000006 

#5-75 

L.DLS 

000010 

#5-75 

L.FlG 

000000 

#5-^5 

L.<RBA 

000016 

#5-75 

L.LEN 

=  000022 

#5-75 

L.LGST 

015206  R 

#81-5559 

L.LNG 

0001 2A 

24-1429 

L.MPF 

000022 

#5-75 

L.NMST 

000020 

#5-75 

L.NST4 

OOOOK 

#5-75 

L.OWNB 

000021 

#5-75 

L.JNT 

000015 

#5-75 

NIAC'P 

n   ......     Gx 

•51-1874 

MAXC5" 

=   001777 

#7-200 

MAXMOP 

=  000057 

#7-201 

MC.ADD 

=  00^200 

#27-1656 

MC.DDM 

=  COOOOA 

#27-1651 

M..DLC 

=  000005 

#27-1650 

MCEV^ 

=  001000 

#27-1658 

MC.LLC 

=  000002 

#27-1649 

MC.LOG 

=  000400 

#27-1657 

MC.NOD 

=  0000^0 

#27-1652 

MC.OBj 

=  000020 

#27-1655 

WC.REM 

=  000040 

#27-1654 

MC.RQU 

^  000100 

#27-1655 

MC.SlT 

=  000001 

#27-1648 

MC.STA 

=  0020C0 

#27-1659 

MOVBUF 

016016  » 

#100-456 

MPAR 

=    17?10C 

#5-75 

MPCSS 

=   '77746 

#5-75 

MRKFL 

000040  R 

#6-l?2 

MXCP 

000064  R 

#6-151 

."IttMGE 

=  000001 

#5-68 

M.BfVH 

000011 

.P-718 

N.3fVL 

000012 

•  1  1-717 

•(.LGTW 

=  000014 

6-117 

fin     'MBi 

000002 

11-752 

M.   'Mt\ 

C00004 

.11-708 

MA 

"00076  R 

#6-139 

16-965 


59-2688  97-4227         107-4785       108-4825 

59-2692  97-4225  106-4748 

.28-1695  .59-2701         59-2705         59-2705         59-2712       .59-2714         66-3002         106-4746 

59-2707  66-2999         108-4812 

66-2993  108-4809 

59-2690  97-4229         107-4786       108-4824 

71-3261 
72-5286 


VN 

MA 

MA 

AC 
AS 
AS 

C/i 


n-692 
.24-1551 


C: 

CI 
CI 

C 
Dl 


101-4400       101-4404        101-4409 


.28-1704  59-2701 

.82-558?       .86-5668 
5-75 


11-742 
24-1599 


66-5001 
86-5685 


16-1019 


DATE       1 n 


N     1 


r 


_J 


VNTl  CREATED  BY      MACRO     ON  29-JUN-85    AT   02:50 

MACRO   CROSS  REFERENCE 


K    2 

PAGE  22 

CREF       04.00 


MACRO  NAME 

ADJDFS 
ASL$ 
ASRS 
CALL 


CALLR 

CCBDFS 

CbACCS 

CTRDFS 
OBGTPS 


OHBDFS 

DIRS 

ERBLKS 

ERMSG$ 

ERRDEF 


ERRPT$ 


REFERENCES 

#5-58 
#5-56 
#5-55 
8-221 
8-362 
8-A72 
11-730 
16-96A 
2A-U17 
26-1587 
28-1683 
30-1775 
55-262A 
63-2868 
67-3017 
67-3065 
67-3110 
70-3239 
75-3344 
79-3506 
86-3693 
92-3946 
95-4115 
102-4433 
103-4524 
105-4709 
#5-58 
#5-35 
#5-57 

98-4271 
#5-58 
#18-1108 
#20-1213 
#23-1291 
#32-1893 
#32-1903 
#34-1937 
#3ii-1982 
#36-2022 
#46-2329 
#47-2375 
#48-2422 
#49-2476 
#5-5E 
#5-'0 
#8-219 
#8-219 
#5-98 
10-638 
10-648 
10-658 
#8-219 


5-62 


8-236 

8-368 

8-483 

11-742 

16-972 

24-1430 

26-1592 

28-1700 

30-1784 

61-2753 

64-2887 

67-3020 

67-3067 

67-3112 

70-3243 

75-3357 

79-3512 

86-3695 

93-3991 

95-4117 

102-4450 

103-4526 

105-4713 

5-71 
65-2925 
102-4450 
5-69 
#19-1139 
#21-1220 
#23-1300 
#32-1894 
#32-1904 
#34-1938 
#35-1985 
#36-2023 
#46-2334 
#47-2376 
#48-2429 
#49-2480 
5-66 
9-545 
#110-4883 
#110-4883 
10-629 
10-639 
10-6'.  9 
10-659 
#110-4883 


8-239 

8-402 

8-492 

12-786 

16-976 

24-1443 

26-1594 

28-1702 

30-1790 

61-2778 

64-2889 

67-3027 

67-3074 

69-3163 

71-3257 

75-3372 

79-3514 

87-3725 

93-3999 

98-4258 

102-4451 

103-4529 

106-4726 


65-2955 
103-4523 

#20-1178 
#21-1233 
#23-1303 
#32-1895 
#32-1905 
#34-1943 
#55-1988 
#36-2024 
#46-2335 
#47-2383 
#48-2433 
*49-2484 

9-554 


10-630 
10-640 
10-650 
10-660 


8-270 

8-418 

8-499 

12-797 

16-1018 

24-1478 

26-1597 

28-1705 

30-1799 

62-2792 

64-2894 

67-3030 

67-3076 

69-3174 

71-3266 

75-3376 

80-3541 

87-3726 

93-4010 

98-4271 

102-4454 

103-4530 

106-4738 


69-3174 
103-4529 

#20-1184 
#21-1234 
#23-1306 
#32-1896 
#32-1906 
#34-1948 
#35-1991 
#39-2078 
#46-2339 
#47-2386 
#48-2437 
#49-2488 


9-560 


10-631 
10-641 
10-651 
10-661 


8-287 

8-448 

8-503 

13-834 

16-1020 

24-1483 

26-1607 

28-1707 

30-1805 

62-2801 

65-2920 

67-3037 

67-3083 

69-3175 

72-3280 

76-3392 

80-3542 

88-3747 

94-4026 

98-4272 

102-4464 

103-4536 

106-4753 


79-3505 
105-4706 

#20-1189 
#22-1250 
#23-1309 
#32-1897 
#32-1907 
#35-1966 
#35-1994 
#39-2100 
#46-2343 
#47-2387 
#48-2447 
#49-2492 

10-587 


10-632 
10-642 
10-652 
10-662 


8-293 

8-452 

8-511 

13-839 

17-1054 

26-1535 

26-1611 

29-1729 

30-1812 

62-2808 

65-2925 

67-3039 

67-3085 

69-3178 

72-3291 

76-3396 

83-3606 

88-3761 

94-4033 

98-4281 

102-4467 

103-454; 

106-4756 


80-3541 


#20-1196 
#23-1265 
#23-1312 
#32-1898 
'':'2-1908 
#j:-1967 
#35-1995 
#42-2226 
#46-2347 
#47-2388 
#48-2451 
#49-2497 

10-595 


10-633 
10-643 
10-653 
10-663 


8-298 

8-457 

9-541 

14-879 

17-1103 

26-1569 

26-1614 

29-1730 

30-1819 

62-2821 

65-2926 

67-3046 

67-3093 

69-3181 

73-3303 

76-3408 

83-3610 

88-3762 

94-4060 

101-4390 

103-4512 

103-4549 

107-4789 


86-3685 


#20-1199 
#23-1283 
#23-1315 
#32-1899 
#33-1918 
#35-1968 
#35-1998 
#42-2227 
#46-2351 
#48-2406 
#48-2455 
#49-2510 

10-606 


10-634 
10-644 
10-654 
10-664 


8-317 

8-459 

10-583 

14-884 

24-1355 

26-1573 

26-1616 

30-1752 

30-1830 

63-2841 

65-2955 

67-3048 

67-3095 

69-3184 

73-3306 

76-3420 

86-3675 

91-3907 

94-4063 

101-4400 

103-4513 

103-4553 

108-4827 


87-3725 


#20-1202 
#23-1286 
#23-1318 
#32-1900 
#33-1921 
#35-1969 
#36-2017 
#42-2237 
#46-2355 
#48-2407 
#48-2459 


10-635 
10-645 
10-655 
10-665 


8-329 

8-462 

10-600 

16-948 

24-1364 

26-1577 

26-1630 

30-1769 

30-1846 

63-2844 

65-2956 

67-3056 

67-3103 

69-3188 

74-3318 

79-3494 

86-3685 

92-3937 

94-4073 

101-4404 

103-4516 

105-4706 

109-4861 


88-3761 


#20-1205 
#23-1287 
#32-1884 
#32-1901 
#34-1935 
#35-1970 
#36-2020 
#45-2296 
#46-2359 
#48-2414 
#49-2468 


10-636 
10-646 
10-656 


8-337 

8-467 

11-693 

16-950 

24-1388 

26-1583 

28-1682 

30-1772 

31-1875 

63-2863 

65-2960 

67-3058 

67-3105 

69-3191 

74-3330 

79--3505 

86-3686 

92-3938 

94-4076 

101-4409 

103-4523 

105-4707 

110-4877 


94-4033 


#20-1208 
#23-1288 
#32-1892 
#32-1902 
#34-1936 
#35-1979 
#36-2021 
#45-2314 
#46-2363 
#48-2418 
#49-2472 


10-637 
10-647 
10-657 


1 


_ o c  AT  m . en 


DArc  "il 


N  2 


L 


N  3 

VPIO  -  VNP  ''WnrpsS  I/O  ROUTINES  MACRO  V05.03b  Wednesday  28-Aug-85  20:03  Page  9-1 


SPRIG  -  PR.abi 


I/O 


VP 
PR 


300 

301  0001 7A 

302 

303 

30A 

305 

306  000176 

307  000204 

308  000206 

309  0002K 

310  000216 

40$: 

RETURN 

•  ERROR 

CONDITIONS 

012767 
000735 
012767 
0007H 

000002 
000006 

000250' 
000250' 

101$: 
111$: 
121$: 

MOV 

BR 

MOV 

BR 

CRASH 

#ERR2, ERROR 

20$ 

#ERR6, ERROR 

10$ 

OPEN  FAILURE 

NOT  CONTIGUOUS 

SOMEBODY  UNLINKED  OUR  SUS-PC8I 


N  I 

_o c  -in  .  m 


n,™«  in 


r 


_J 


L 


n  A 

VPIO  -  VNP  PROCESS  I/O  ROUTINES  MACRO  V05.05b  Wednesday  28-Aug-85  20:03 
PR. SUB  -  CREATE  SUB-PARTITION 


Page  15-2 


PR^ 


868  003010  012767 

869  003016  016701 

870  003022 


OOOOAO     000250' 
OOOOOOG 


110$: 


MOV 

#ERR32, ERROR 

;    MAIN  PARTITION   TOO   FRAGMFr\|TED 

MOV 

.PLGTH,R1 

;    GET   PCS   LENGTH 

CALLR 

$DEA16 

;   OE-ALLOCATE   SUB-PC8 

N     A 


r 


J 


L 


PRMPTS  -  VNP  PROMPT  STRINGS 
58 


M  5 


MACRO  V05.03b  Saturday  29-Jun-85  02;55  Page  4-1 


VPF 
LOC 


;**-1 


~] 


N  5 


r 


L 


n  6 

VPRO  -  VMP  SET  PROCESS  ROUTINES  MACRO  V05.03b  Wednesday  28-Aug-85  20:04 
LOCAL  DATA 


Page  6-2 


VPI 

$c, 


194  000174 

000000 

195  000176 

000210'  000000 

196  000202 

124473  006654 

197  000206 

000000 

198  000210 

000000  000000 

199  000214 

126344  035115 

200  000220 

000000 

201 

202 

203 

204 

205 

206  000222 

OOOOOOG 

207  000224 

OOOOOOG 

208  000226 

OOOOOOG 

209  000230 

OOOOOOG 

210 

211 

212 

213 

214  000232 

OOOOOOG 

215  000234 

000101 

216  000236 

OOOOOOG 

217  000240 

OOOOOOG 

218  000242 

OOOOOOG 

219  000244 

OOOOOOG 

220  000246 

OOOOOOG 

221  000250 

OOOOOOG 

222  000252 

OOOOOOG 

223  0''J254 

OOOOOOG 

224  000256 

OOOOOOG 

225  000260 

OOOOOOG 

226  000262 

OOOOOOG 

227  000264 

OOOOOOG 

228  000266 

OOOOOOG 

229  000270 

OOOOOOG 

230  000272 

OOOOOOG 

231 

232  000000 

.WORD 
XBLK2:  .WORD 
.RAD50 
.WORD 
XBLK3:  .WORD 
.RAD50 
.WORD 


0 

X8LK3,0 

'  .-CCBGT' 

0 

0.0 

"SZTIME' 

0 


SYMBOL  I  ABLE  ERRORS 


ETABl : 


iTAB2: 


.WORD 

$ERR44 

.WORD 

$ERR45 

.WORD 

$EfiR46 

.WORD 

$ERR47 

S  I/O 

ERRORS 

.WORD 

$ERR51 

.WORD 

101 

.WORD 

$ERR53 

.WORD 

$ERfi54 

.WORD 

$ERR55 

.WORD 

$ERR56 

.WORD 

$ERR57 

.WORD 

$ERR58 

.WORD 

$ERfi59 

.WORD 

$ERR60 

.WORD 

$ERR61 

.WORD 

$ERR62 

.WORD 

$ERR63 

.WORD 

$ERR64 

.WORD 

$ERR65 

.WORD 

$ERR66 

.WORD 

$ERR67 

.PSECT 


OPEN  FAILURE 
READ  FAILURE 
READ  OVERFLOW 
BAD  STB  FORMAT 


OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 

FILE  NOT  CONTIGUOUS 

LABEL  BLOCK  READ  FAILURE 

INVALID  IMAGE  (HEADER,  OVERLAID,  ETC.) 

PROCESS  NOT  BUILD  FOR  APRS 

PROCESS  EXCEEDS  4K  WORDS 

PROCESS  EXTENSION  EXCEEDS  4K  WORDS 

PARTITION  NOT  IN  SYSTEM 

BASE  ADDRESS  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE 

SUB-PCS  ALLOCATION  FAILURE 

MAIN  PARTITION  TOO  FRAGMENTED 

PROCESS  READ  FAILURE 


n 


N  6 


r 


M  7 

VPRO  -  VNP  SET  PROCESS  ROUTINES  MACRO  V05.03b  Wednesday  28-Aug-85  20:04 
tCACH  -  ALLOCATE  CACHE 


Page  U 


798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 

812  C024A0 

813  002444 

814  002450 

815  002452 

816  002456 

817  002460 

818  002500 

819  002504 

820  002506 

821  002512 

822  002516 
823 

824  002522 

825  002526 

826  002532 

827  002536 

828  002542 
829 

830 
851 
832 

833  002560 

834  002564 

835  002566 

836  C02606 

837  002612 

838  002616 

839  002642 

840  002646 
841 

842  002652 

843  002656 
844 

845  002660 

846  002700 

847  00270^ 
848 

849  002710 

85C 

851  002712 

852 


.S8TTL  SALADJ   -  ALLOCATE  ADJACENCY  DATA  BASE 


SALADJ  -  ALLOCATE  ADJACENCY  DATA  BASE 

INPUTS: 

$PDVA   -   XPT   PDV   ADDRESS 

OUTPUTS: 

ADJACENCY  DATA  BASE  ALLOCATED  If  ROUTING  NODE 


016703 
005000 
156300 
005200 

005767 
001501 
066700 
066700 
016704 


OOOOOOG 
OOOOOOG 

000060G 

000054G 
000056G 
00001 4G 


012701  000004 


062701 
042701 
000241 
000006 


103452 
010067 

010467 

103415 
010067 


000077 
000077 


000072G 
OOOOOOG 

000074G 


SALADJ:: CALL 

SSAVAL 

SAVE  REG'S 

MOV 

$PDVA,R3       ; 

GET  PDV  ADDRESS 

CLR 

RO 

CLEAR  REG 

BISB 

Z.LLN(R3),R0    ; 

GET  XPT  CHANNEL  COUNT 

INC 

RO 

INCLUDE  LOOPBACK  CHANNEL 

GETRV 

$DECPT,#D$END 

READ  DECNET  HOME  BLOCK 

TST 

D$NN+$BFR       ; 

ENDNODE  ? 

BEO 

10$ 

IF  YES  -  BRANCH 

ADD 

D$N8RA+$BFR,R0  ; 

INCLUDE  BROADCAST  ROUTERS 

ADD 

D$N8EA+$BFR,R0  ; 

INCLUDE  BROADCAST  ENDNODE  AOJACECIES 

MOV 

DSLNUM+$BFR,R4  ; 

COPY  NODE  ADDRESS 

MOV 

*ASLEN,R1 

STORE  ADJACENCY  ENTRY  LENGTH 

CALL 

$MUL           ; 

CALCULATE  TOTAL  SIZE 

ADD 

#77, R1 

ROUND  UP  TO  NEXT  BLOCK 

BIC 

#77, R1 

,  , 

CLC 

CLEAR  C-BIT 

.REPT 

6 

ASR 

R1 

CONVERT  TO  BLOCKS 

.ENDM 

CALL 

$ALN18 

ALLOCATE  POOL.. 

BCS 

101$ 

IF  FAILURE  -  BRANCH 

GETRV 

Z.0AT(R3),#N$XLEN 

;  READ  XPT  ODB 

MOV 

PUTRC 

GETAD 

R0,N$ADJU$BFR  ; 

STORE  ADJACENCY  START 

#120000, #2, RO   ; 

READ  A  WORD  FROM  ADJACENCY  DATA  BASE 

MOV 

R4,$8FR 

COPY  NODE  ADDRESS 

PUTAD 

WRITE  THE  WORD  TO  IMAGE  FILE 

CALL 

$ALN18         ; 

ALLOCATE  SECOND  SECTION  OF  ADJACENCY 

BCS 

101$          ; 

IF  FAILURE  -  BRANCH 

GETRV 

Z.DAT(R3),#N$XLEN 

;  READ  XPT  DDB 

MOV 

R0,N$ADJ2t$BFR  ; 

STORE  SECOND  ADJACENCY  START 

PUTRC 

; 

WRITE  XPT  DDB  TO  IMAGE 

10$:    RETURN 

101$:   EMSGSR 

9D           ; 

POOL..  BLOCK  ALLOCATION  FAILURE 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

ALVBL< 

000346  R 

#8-337 

AXSYM 

-00460  R 

7-313 

#9-374 

A$LEN 

000004 

14-824 

CILEN 

000012 

13-714 

DSPTAB 

000024  R 

#6-122 

10-414 

10-461 

♦10-468 

♦10-469 

10-470 

DTBLK 

000114   R 

6-163 

#6-170 

DTSYM 

000120  R 

#6-171 

♦10-473 

DTVAL 

000124   R 

#6-172 

10-482 

D$END 

=  000104 

12-618 

13-707 

14-817 

16-989 

17-1096 

DSLNUM 

000014 

14-822 

DSMLL 

000040 

13-712 

DSMNOD 

000041 

17-1098 

D$NA 

000062 

12-624 

16-995 

DSNBEA 

0OCO56 

14-821 

D$N8RA 

000054 

14-820 

D$NN 

000060 

12-619 

12-622 

13-708 

14-818 

16-990 

ETAB1 

000222  R 

#6-206 

10-506 

ETAB2 

000232  R 

#6-214 

7-322 

E$NBR 

000014 

#5-68 

ESNBS 

000020 

#5-68 

E$NCR 

000034 

#5-68 

E$NCS 

000036 

#5-68 

ESNIC 

000044 

#5-68 

ESNLEN 

000050 

#5-68 

17-1101 

17-1123 

17-1124 

17-1129 

17-1136 

17-1139 

ESNLLA 

000012 

#5-68 

ESNLNK 

000000 

#5-68 

E$NML 

000040 

#5-68 

EtNMR 

000024 

#5-68 

ESNMS 

000030 

#5-68 

ESNNOD 

000002 

#5-68 

E$NRT 

000042 

#5-68 

ESNRTP 

000005 

#5-68 

ESNSEG 

000010 

#5-68 

ESNTIM 

000046 

#5-68 

ESNUSE 

000004 

#5-68 

ESSTRT 

000006 

#5-68 

FNDPDV 

004426  R 

11-524 

13-784 

#18-1161 

F .RSiZ 

=   ******      Gx 

♦7-270 

♦7-308 

♦7-311 

♦8-351 

♦11-571 

♦11-577 

♦11-590 

♦12-618         ^12-640 

♦12-681 

♦13-707 

♦13-720 

♦13-750 

♦13-774 

♦13-788 

•14-817 

♦14-835         ♦14-838 

♦14-845 

.■■5-877 

♦15-899 

♦15-917 

•15-928 

♦15-942 

♦15-951 

♦16-989         ^16-1010 

♦16-1053 

♦  16-1065 

♦17-1096 

♦17-1111 

♦17-1123 

♦17-1141 

I$$AS 

r     ****** 

5-76 

5-76 

7-289 

7-290 

12-633 

15-936 

16-1003 

17-1105 

LF.ACT 

=  100000 

#5-72 

LF.BRO 

=  C00400 

#5-72 

LF.BWT 

=  000007 

#5-72 

LF.ENA 

=  002000 

#5-72 

LF.LPB 

=  001000 

#5-72 

LF.MDC 

=  000100 

#5-72 

LF.MFL 

=  004000 

#5-72 

LF.MTP 

=  000020 

#5-72 

11-531 

LF.PAC 

=  000200 

#5-72 

LF.RDV 

=  040000 

#5-72 
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63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 

78  000000 

79  000000 

80  000000 

81  000000 
82 


.SBTTL  MACRO  DEFINITIONS 
MACRO  LIBRARV  CALLS 


.MCALL   FD8DF$,FD0P$A,FDRC$A,FSRSZ$,GCLDF$,VNPDF$,ASR$ 
.MCALL  SLTDF$,PDVDF$,QIOW$  DIR$,ERMSG$,ERBLK$,ERRPT$ 
.MCALL  SAVRG,RESRG,DHBDF$ 


.ENA8L  LC 


GLOBAL  LIBRARV  SYMBOLS 


SLTDFS 
PDVDFS 
VNPDFS 
DHBDFS 


<=>,<:> 
<=>,<:> 


ENABLE  LOWER  CASE 


DEFINE  SLT  OFFSETS  GLOBALLY 

DEFINE  PDV  OFFSETS  GLOBALLY 

DEFINE  VNP  OFFSET' 

DEFINE  DECNET  HOME  jLOCK  OFFSETS 
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DATA  FOR  INPUT  PARAMETERS 

508  002032 

509  00203A 

510  002036 

511  002176 

512  002336 

513  002340 
5U 

515  002342 

516  0023A4 

517  002346 

518  002350 

519  002352 

520  002356 

521  002360 

522  002362 

523  002364 

524  002366 

525  002370 

526  002372 

527  002374 

528  002376 

529  002400 

530  002402 

531  C02404 

532  002406 

533  002410 

534  002412 
535 
536 
537 

538  002414 

539  002416 

540  002420 

541  002422 

542  002424 

543  002504 

544  002506 

545  002510 

546  002512 

547  002514 

548  002574 

549  002654 

550  002656 

551  002660 

552  002662 

553  002664 

554  002724 

555  002730 

556  003230 

557  003232 

558  003572 

559  003574 

560  003376 

561  005400 

562  005402 
565  005404 
564 
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.ROUTM: 

:.8LKW 

..SCSR: 

:.eLKW 

$$HT]M: 

:.BLKW 

48.          ; 

$$LTIH: 

:.BLKU 

48. 

$$NODC: 

:.8LKW 

$TRIB:: 

.8LKW 

$PDVA::  .8LKW 

$NAME : : 

.BLKW 

$8IAS:. 

.BLKW 

$$INC:. 

.BLKW 

$$PAR: 

.8LKW 

$$DEV: 

.8LKW 

$$T8L: 

.BLKW 

$$LINX 

:.8LKW 

SCTIM: 

.BLKW 

$X5DBS 

:.8LKW 

$X3M8S 

:.BLKW 

$X3DWS 

:.6lKW 

$X3MUS 

:.8LKW 

$X3CAL 

:.BLKW 

$X3CLR 

:.8LKW 

$X3RES 

:.BLKW 

$X3RST 

:.BLKW 

$X3MCL 

i.SLKW 

$X3MRE 

:.8LKW 

$X3MRS 

:.BLKW 

;•  LINE  PARAMETERS 

iSLTA::  .8LKW 

SDLCPV 

:.6LKW 

$DDMPV 

:.BLKW 

$SLN::   .8LKW 

.8LK8 

48. 

$$CSR: 

.BLKW 

$$PRI: 

.BLKW 

$$VECT 

:.8LKW 

$$MTP: 

.BLKW 

$$SNUM 

.-.BLKB 

48. 

$$APR: 

.8LK8 

48. 

$$DPR: 

.BLKW 

$$N8RA 

:.8LKW 

$$RPRI 

:.BLKW 

$$«UX: 

.BLKW 

$$SCSR 

:.8LKW 

16. 

$$DCHA 

:.8LKW 

.8LKW 

48. '2 

$$PCHA::.8LKW 

.BLKW 

48. 

$$LSAD 

■:.BLKW 

$X2MWS 

::.8LKW 

$X2MBS 

::.8LKU 

$X2MRT 

::.BLKW 

$X2REI 

::.8LKW 

$X2HLD 

.•:.8LKW 

ROUTING  TIMER  INTERAL 

SECONDARY  CSR  FROM  REQUEST  BLOCK 

HELLO  TIMER 

LISTEN  TIMER 

MAXIMUM  NUMBER  OF  NODE  COUNTERS 

TRIBUTARY  NUMBER 

PDV  ADDRESS 

RAD50  PDV  NAME 

RELOCATION  BIAS 

INCREMENT  SIZE  IN  32.  WORD  BLOCKS 

RAD50  PARTITION  NAME 

ASCII  DEVICE  NAME 

DEVICE  DISPATCH  TABLE  ADDRESS 

LOGICAL  LINK  COUNT 

COUNTER  TIMER  VALUE  (LINE  PARAMETER  ALSO) 

DEFAULT  BLOCK  SIZE 

MAXIMUM  BLOCK  SIZE 

DEFAULT  WINDOW  SIZE 

MAXIMUM  WINDOW  SIZE 

CALL  TIMER 

CLEAR  TIMER 

RESET  TIMER 

RESTART  TIMER 

MAXIMUM  CLEAR  VALUE 

MAXIMUM  RESETS  VALUE 

MAXIMUM  RESTARTS  VALUE 


SLT  ADDRESS 

DLC  PDV  ADDRESS 

DDM  PDV  ADDRESS 

SYSTEM  LINE  NUMBER 

MUX  SLN'S 

CSR  ADDRESS 

INTERRUPT  PRIORITY 

VECTOR  ADDRESS 

MULTIPOINT  STATION  COUNT 

MULTIPOINT  STATION  NUMBERS 

MULTIPOINT  ACTIVE  RATIO 

MULTIPOINT  DEAD  RATIO 

BROADCAST  ROUTER  ADJACENCIES 

ROUTER  PRIORITY 

MUX  UNIT  COUNT 

SECONDARY  CSR  TABLE 

DEVICE  CHARACTERISTICS 

MUX  CHARACTERISTICS 

PROTOCOL  EMULATOR  CHARACTERISTICS 

MUX  CHARACTERISTICS 
LOCAL  PHYSICAL  STATION  ADDRESS 
MAXIMUM  WINDOW  SIZE 
MAXIMUM  BLOCK  SIZE 
MAXIMUM  RETRANSMIT  COUNT 
RETRANSMIT  TIMER 
HOLDBACK  TIMER 
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lUO 
1U1 
1U2 
1K3 
1K4 
1H5 
1U6 
1U7 
HAS 
1149 
1150 
1151 
1152 
115? 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
116A 
1165 


.SSTTL      SPUTAD   -   PUT   RECORD   10   SYSTEM   IMAGE    FILE 

••-SPUTAD 

A  RECORD  UP  TO  512.  BYTES  IS  WRITTEN  TO  THE  SYSTEM 
IMAGE  FILE  AT  THE  ADDRESS  CORRESPONDING  TO  THE  BIAS 
AND  VIRTUAL  ADDRESS  OFFSET  FROM  THAT  BIAS. 


INPUTS: 

SRBLCK  -  BIAS  OF  BUFFER  IN  REAL  MEMORY 
SRADDR  -  VIRTUAL  OFFSET  FROM  BIAS 
SYSFDB+F.RSIZ  -  NUMBER  OF  BYTES  TO  BE  WRITTEN 

OUTPUTS: 

RECORD  AT  $8FR  IS  WRITTEN  TO  SYSTEM  IMAGE. 


00A700 


00A70O  004267  0000006 
00A704  012746  OOOOOOG 
0^4710     "00404 


SPUTAD: 


.IF  OF  R$$MPL 

TST  SRBLCK 

BEQ  SPUTRC 
.ENDC 


JSR 
MOV 
BR 


R2,$SAVVR 

#.PUT,-(SP) 

60$ 


IF  ZERO  BIAS 

THEN  BRANCH  (PUTRC  ACCE5ES  DSR) 


SAVE  R0,R1,AND  R2 

PUT  SUBROUTINE  ADDRESS  ON  STACK 

JUMP  RIGHT  IN  ... 


;[MP01] 
;CMP01] 
.-CMPOl] 
;CMP01] 
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PAGE  2 

CREf   0^.00 


SYMBOL   VALUE 


FL.TOP 

FL.WRN 

FNERR 

FNPTR 

F.DFNB 

F.DSPT 

F.ERR 

F.HIBK 

F.LUN 

F.NRBD 

F.RSIZ 

F.URBD 

GCLBUF 

GCLSI2 

G.MCRB 

IE. EOF 

lO.ULB 

I$$AS 

LD.ALI 

LD.CEX 

LD.CIR 

LD.LlN 

LD.LOG 

LD.MOD 

LD.NOD 

LD.OBJ 

LD.PRO 

LEVLl 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF  ,1TP 

L(  .PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

_INBUF 

LINSlZ 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 


=  040000  G 

=  100000  G 
001364  R 
001362  R 

=  000046 

=  000044 

=  000052 

=   000004 

=  000042 

=  000024 

=  000002 

=  000020 
000030  RG 

=  000226 

=  000002  G 


=  ****** 

~   ****** 

=  ****** 

=  000030 

=  000024 

=  000035 

=  000025 

=  000031 

=  000037 

=  000027 

=  000032 

=  000026 

=  000001 

=  100000 

=  000400 

=  000007 

=  002000 

=  001000 

=  000100 

=  004000 

=  000020 

■=  000200 

=  040000 

=  010000 

=   000040 

=  000010 

=  020000 

=  000000 
001000  RG 
001024  RG 


000000 
000005 
000004 
000003 
000003 
000001 
000000 


REFERENCES 

#15-584 

15-568 
#13-387 
•8-253 

6-102 

6-102 

23-1287 

19-1115 

6-102 
«19-1120 

6-117 

6-102 

6-102 

6-102 

6-102 

22-1270 

6-96 

5-79 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#15-642 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#7-205 
#7-210 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 
#5-78 


#15-585 
14-414 

#13-386 
6-113 
6-113 


6-113 

19-1120 

6-102 
#6-104 
#6-105 

6-102 


24-1320 


14-415 


19-1122 

6-102     6-102 

6-105 

6-102 


6-112 
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PAGE   15 

SYMBOL 

CROSS   REFERENCE 

CREF       0 

SYMBOL 

VALUE 

REFERENCES 

..COO 

00555i;   RG 

#16-695 

.  .SCSR 

00205A   RG 

#15-509 

...PCI 

=  000256  R 

#6-102             6-102 

6-102 

6-102 

6-102            6-102 

6-102 

#6-102 

6-113            6-113 

6-lU 

6-lU 

6-1U           #6-1U 

...PC2 

=  000'.52  R 

#6-102            6-102 

#6-102 

6-102 

#6-102            6-102 

6~1 0? 

#6-102 

#6-112            6-112 

#6-113 

6-113 

6-11A             6-1U 

#6-1 U 

6-lU 

...PC? 

=  000256  R 

#6-102            6-102 

#6-1  U 

6-lU 

M  13 

OA.OO 


6-102  6-102  #6-102  6-102  6-02 

6-102  6-102  #6-111  6-112  6-113 

#6-lU  6-lU  6-lU  6-lU  6-1U 

#6-102  6-102  #6-102  6-102  6-102 

6-102  #6-102  6-102  #6-102  6-102 

#6-113  6-113  #6-113  6-113  #6-1U 

6-lU  #6-1U  6-lU 
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5A? 
545 
34'. 
345 
346 
347 
348 
349 
350 
351 
352 

353  000176 

354  000176 

355  000204 

356  000206 
557 

358 
359 
360  000210 


032767 
001401 


OOOOOOG  OOOOOOG 


.SBTTL   CEXLD  -  CHECK  COMM  EXEC  LOADED 

CEXLD  -  MAKE  SURE  COMM  EXEC  IS  LOADED 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT  =  SUCCESS/FAUURE 

DATA  BLOCK   ALLOCATED   IF    NECCESSARV   FOR    11D/IAS 

CEXLD; 


10$: 

BIT     #fE. 
BEQ     101$ 
RETURN 

CEX 

SFMASK 

;  IS  COMM  EXEC  LOADED 
;  IF  EQ,  NO 

;  ERROR 

CONDITION 

l01$: 

EMSG$R  98 

;  COMM  EXEC  NOT  lOADE 

n 
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7V. 
755 
736 
737 
758 
739 
740 
7A1 
7t,2   001544 

743  001550 

744  00155', 

745  C01560 

746  001566 

747  001 57C 

748  001574 

749  001600 

750  001602 

751  00160^; 

752  00161? 
753 

754  001614 

755  001620 

756  001622 

757  001630 
758 

759  001636 


012700  000346' 


.SBIIL   SLIN  -  CHECK  SET  LINE  PARMS 

SLIN  -  CHECK  "SET  LINE"  REQUEST  BLOCK 

INPUTS: 

$SLTA=SLT  ADDRESS 

OUTPUTS: 

R4  CLEARED  IF  NO  WORK  TO  DO 


SLIN: 


016700 
032760 
001412 
005067 
105767 
001416 
005004 

000411 

005760 
001403 
042767 
052767 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 
000200  OOOOOOG  20$: 

30$: 


MOV 

CALL 

MOV 

BIT 

BEQ 

CLR 

TST8 

BEQ 

CLR 

EMSG$R 

BR 

rsT 

BEQ 
BIC 
BIS 

RETURN 


#L8ITS,R0 

$BITS 

SSLTA.RO       , 

#LF.RDY,L.fLG(RO) 

10$ 

$MISS 

$OPTON 

30$ 

R4 

Z8 

30$ 

L.DDS(RO) 
20$ 

*MS.PR1.$MISS 
#OP$ALL,$OPTON 


DO  BIT  TWIDDLING 

GET  SLT  ADDRESS 

;  IS  LINE  READY  7 

NO  .. 

ELSE,  NOTHING  MISSING  -  NOW 

WAS  THERE  A  REQUEST  TO  LOAD  THE  LINE 

IF  EQ,  NO  ..  OKAY 

YES  ..  NO  WORK  TO  DO.' 

LINE  IN  WRONG  STATE 


IS  THERE  ALREADY  A  DDM  LINE  TABLE 
IF  EQ,  NO 

ELSE,  DON'T  NEED  CONTROLLER  STUFF 

MAKE  SURE  LINE  GET'S  LOADED  I 
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RfP7  -   REPLACE    TASK.   NAME 

1165 

1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
117? 
117A 
1175 
1176  00?5'.4 


Page  31 

.S8TTL   REP7  -  REPLACE  TASK  NAME 
REP7  -  REPLACE  REQUESTING  TASK'S  NAME 
NOTE; 


THIS  ROUTINE  HAS  BEEN  CHANGED  INTO  A  NOP 


INPUTS: 

NONE 

OUTPUTS: 

NONE 


ftEP7: 


RETURN 


L 
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CREF   OA.OO 


SYMBOL   VALUE 


NAWBJf 

NAME 

NAMED 

NBf  Aj 

NBRA 

NN 

NOAD 

NCAR 

NODC 

NODCT 

NCNMAP 

NTIERR 


NTPNAM 
N^PPAR 
NTPSAV 
NTPSCN 
NTPSIZ 


NTWARN 
NISVCT 

OFSINS 

OF$LOG 

OFSOFF 

OF  SON 

OFSSMC 

ONAME 

OPNCFG 

OPtAtJO 

OPtALL 

OP$CCS 

OP$CIE 

OPtCON 

OPSCOP 

OPICOS 

OP$t)ST 

OPSDTF 

OP$DUP 

OP$EST 

OPSEVE 

OP$Fa 

OP$GRP 

OPSHOS 

OPSHTM 

OPSINA 


000022  R 


000030 
000000 
000106 
000102 
000074 
0K354 


0TA554  RG 


004620 
010420 


R 
R 
GX 


001410  R 


»•»♦•»  GX 
»♦»»•♦  GX 
005606  R 
•*»•••  GX 


001554  R 

r  »♦**♦♦ 

=  000001 
=  000100 
=  000002 
=  000000 
=  000200 
000032  R 
005560  R 
=  000200 
=  000200 
=  000004 
=  004000 
=  000400 
=  000001 
=  000100 
=  000200 
=  000040 
-  000002 
=  000100 
=  010000 
=  000200 
=  000100 

^  ocaooi 

=  000002 
=  004000 


REFERENCES 

#6-118 
24-1476 

#6-119 

#6-114 

#6-143 

#6-141 

#6-138 

#91-3894 

#91-3888 

#25-1505 

#67-3025 
8-411 

•30-1750 
8-238 
8-505 
60-2727 
67-3098 
108-4830 
8-248 
17-1048 

•26-1547 
8-239 
8-479 

•24-1488 

•26-1634 

#10-580 
65-2925 
98-4271 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#6-120 
8-236 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 

#5-78 


•24-1337         24-1340         24-1346       '24-1356 


68-3130 
•104-4646 
^24-1334 

8-458 
•24-1328 


11-690 
•30-1809 

8-241 
#9-541 

67-3023 

67-3108 

109-4864 
•8-258 
•  17-1050 

26-1622 
#30-1747 

8-491 

26-1547 
•30-1748 

65-2955 
102-4450 


•82-3581 
28-1700 

107-4778 


68-3136 
104-4650 
24-1386 
•60-2736 
24-1380 


11-698 

8-323 
11-75: 
67-3033 
69-3198 

•8-259 
17-1070 
26-1634 

•24-1375 

26-1548 

•30-1749 

69-3174 
103-4523 


•82-3582 
#29-1726 


69-3167 
104-4661 


24-1398 


69-3163 
•104-4667 


•24-1357 
69-3169 


24-1365 


24-1366        24-14^4 


11-710         *24-1395       •24-1411       *24-1425       *24-1450       *24-1458 


8-^71 

11- 

67-      .2 
79--    16 

24-1461 
17-1072 


•24-1378 

•26-1548 

30-1821 

79-3505 
103-4529 


8-455 
11-752 
67-3052 
86-3702 

26-1556 
24-1463 


•24-1396 

26-1559 

•30-1821 

80-3541 
105-4706 


•83-3607       *83-3611 


8-474 
30-1791 
67-3061 
93-4015 

26-1557 


•24-1412 
26-1560 
30-1826 


8-488 
30-1806 
67-3070 
94-4029 


•24-1426 

26-1580 

•30-1826 


86-3685    87-3725 


8-494 
30-1820 
67-3079 
103-4519 


•24-1439 
26-1601 
30-1834 

88-3761 


8-501 
59-2698 
67-3088 
107-4792 


♦24-1451 
•26-1622 
•30-1834 

94-4033 


86-3680 


86-3681 


v^ 

M/ 

FL 
Ff 
G( 
G( 
GE 
Gl 
Gf 


Hi 

i: 

LI 
M' 
Nl 
N 


N 
01 

01 
0! 
P 

PI 
PI 


VNTI       CREATED  BY  MACRO  ON  29-JUN-85  AT  02:50 
MACRO  CROSS  REFERENCE 
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CREF   04.00 


MACRO  NAME 

FLTDFS 

FNBDFt 

GCLDFI 

GCL$ 

GETAD 

GETRC 

GETRV 


HUDDFS 
ISTATS 
LLTDFS 
MTRANS 
NHWDFS 
NTIERR 


NTWARN 

OBJDFl 

OFF$ 

OPTDFS 

PCBDFS 

PDVDFS 

PUT  AD 

PUTRC 


QDPBS 
QIOW$ 
RAND 


REFERENCES 

#5-57 

#5-58 

#5-55 

#5-70 

#5-56 

*5-56 

#5-56 
26-1594 
65-2920 
67-3103 
76-3392 

#5-57 

#5-56 

#5-58 

#18-1108 

#5-55 

#5-87 
8-505 
67-3033 
79-3516 

#5-92 

#5-57 

#10-624 

#5-57 

#5-55 

#5-55 

#5-56 
94-4060 

#5-56 
26-1611 
67-3030 
69-3191 
94-4076 
#10-624 
#5-55 
#8-270 
#8-337 
#8-459 
#16-948 
#26-1583 
#26-1607 
#61-2778 
#63-2841 
#64-2894 
#67-3017 
#67-3039 
#67-3065 
#67-3085 
#67-3110 
#70-3259 
#72-^^91 
#75-3344 


5-77 

5-80 

5-70 

28-1702 

65-2926 

8-270 
26-1597 
67-3017 
67-3110 
r'6-3408 
5-79 
18-1108 
5-63 
#19-11.'! 
5-75 
8-238 
11-750 
67-3042 
86-3702 

5-61 

5-65 

5-74 

5-72 

8-402 

102-4451 

3-293 

26-1616 

67-3039 

70-3243 

102-4467 

10-624 

10-624 

8-270 

8-337 

8-459 

16-948 

26-1583 

26-1607 

61-2778 

63-2841 

64-2894 

67-3017 

67-3039 

67-3065 

67-3085 

67-3110 

70-3239 

72-3291 

75-3344 


30-1752 
80-3542 

8-287 

26-1607 

67-3027 

69-3184 

88-3747 


87-3726 

8-329 

26-1614 

67-3037 

70-3239 

94-4063 


19-1139    20-1178 
#20-1178   #21-1220 


8-241 
11-751 
67-3052 
93-4015 


8-41 S 

103-4526 

8-298 

61-2778 

67-3048 

71-3266 


#8-287 

#8-402 

#11-742 

#17-1054 

#26-1587 

#26-1611 

#62-2792 

#63-2844 

#65-2920 

#67-3020 

#67-3046 

#67-3067 

#67-3093 

#67-3112 

#70-3243 

#73-3303 

#75-3357 


8-323 
11-752 
67-3061 
94-4029 


8-'.48 

103-4536 

8-337 

62-2801 

67-3058 

72-3291 


8-287 

8-402 

11-742 

17-1054 

26-1587 

26-1611 

62-2792 

63-2844 

i5-2920 

67-3020 

67-3046 

67-3067 

67-3093 

67-3112 

70-3243 

73-3303 

75-3357 


88-3762 

98-4272 

103-4524 

103-4530 

105-4707 

8-457 

dI-2753 

67-3046 

71-3257 

98-4258 

16-948 

62-2792 

67-3056 

72-3280 

102-4454 

17-1054 
62-2808 
67-3065 
73-3303 

26-1573 
63-2841 
67-3074 
74-3318 

26-1577 
63-2863 
67-3083 
75-3344 

#21-1220 

#22-1250 

#23-1265 

32-1884 

#46-2329 

#22-1250 

#23-1265 

#32-1884 

#46-2329 

8-371 
30-1791 
67-3070 
103-4519 

8-455 
30-1806 
67-3079 
107-4792 

8-474 
30-1820 
67-3088 
108-4830 

8-488 
59-2698 
67-3098 
109-4864 

8-494 

60-2727 

67-3108 

13-834 

105-4709 

8-459 

62-2821 

67-3067 

73-3306 


#8-293 

#8  ^i; 

#12-V- 

#26-1 5tj^ 

#26-1592 

#26-1614 

#62-2801 

#63-2863 

#65-2926 

#67-3027 

#67-3048 

#67-3074 

#67-3095 

#69-3175 

#71-3257 

#73-3506 

#75-3572 


14-879 


65-2956 


69-5175    79-550' 


26-1583 
64-2889 
67-3093 
75-5372 


8-501 

67-3023 

69-3198 


86-5686 


11-742 

12-797 

26-1569 

26-ij8c 

26-1592 

63-2844 

65-2868 

64-2894 

65-2960 

67-5020 

67-3076 

67-5085 

67-5095 

67-3105 

67-3112 

74-3350 

75-3357 

75-3376 

76-3396 

76-5420 

8-293 

#8-298 

8-298 

#8-329 

8-329 

8-418 

#8-448 

8-448 

#8-457 

8-457 

12-797 

#13-834 

13-854 

#14-879 

14-879 

26-1569 

#26-1573 

26-1575 

#26-1577 

26-1577 

26-1592 

#26-1594 

26-1594 

#26-1597 

26-1597 

26-1614 

#26-1616 

26-1616 

#61-2753 

61-2755 

62-2801 

#62-2808 

62-2808 

#62-2821 

62-2821 

63-2865 

#63-2868 

65-2868 

#64-2889 

64-2889 

65-2926 

#65-2956 

65-2956 

#65-2960 

65-2960 

67-5027 

#67-3050 

67-3030 

#67-3057 

67-3037 

67-3048 

#67-5056 

67-3056 

#67-5058 

67-5058 

67-5074 

#67-5076 

67-3076 

#67-5083 

67-3083 

67-5095 

#67-5105 

67-5105 

#67-3105 

67-3105 

69-3175 

#69-5184 

69-5184 

#69-3191 

69-3191 

71-3257 

#71-5266 

71-3266 

#72-5280 

^2-3280 

75-3506 

#74-3318 

74-5518 

#74-3350 

,4-3550 

75-3572 

#75-5576 

75-3376 

#76-3592 

76-3392 

L 
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VF 
PR 


312 
313 
3U 
315 
316 
517 
318 
319 
320 
321 
322 
323 
32^ 

325  000220 

326  000226 
327 

328  000230 

329  000236 

330  000242 

331  00024A 
332 

333  0002A6 
33A  000264 

335  000272 

336  000274 

337  000302 
335  000304 
339 

340  000306 

341  000312 

342  000320 

343  000322 

344  000330 

345  000332 

346  000336 
347 

348  000340 

349  000346 
350 

351  000352 

352  000356 

353  000362 
354 

355  000364 

356  000370 

357  000372 

358  000400 

359  000404 
360 

361  000406 
362 

363  000412 

364  000416 

365  000422 

366  000430 

367  0004  32 
568  0004  56 


.SBTTL  CR.MC  -  CREATE  HKROCODE  PARTITION 

CR.MC  -  CREATE  MICROCODE  PARTITION 

INPUTS: 

SNAME  -  RAD50  PROCESS  NAME 

OUTPUTS: 

MICROCODE  PARTITION  CREATED 
XXXMC.TSK  LOADED  INTO  PARTITION 


032767 
001550 

016767 
016705 
001001 
000420 


022767 
001361 
022767 
001355 
000521 

016705 
026567 
001115 
032767 
001507 
005767 
001055 

016767 
005067 


105474 


OOOOOUG  OOOOOOG  CR.MC: 


OOOOOOG  OOOOOOG 
OOOOOOG  10$: 


20$: 


055260  000004G 
060044  000006G 


OOOOOOG        50$: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000250' 


000252'  000152' 
000252' 


105500 

052767  000001  000150' 

103402 


016701 
042767 
000241 
005767 
001415 


000252' 

000001  000150' 

000250' 


40$: 


BIT 
BEO 

MOV 
MOV 
BNE 
BR 

GETRV 

CMP 

BNE 

CMP 

BNE 

BR 

MOV 
CMP 
BNE 
BIT 
BEQ 
TST 
BNE 

MOV 
CLR 

CALL 
CALL 
BCS 

CALL 

BCS 

BIS 

CALL 

BCS 

CALL 

CALL 

MOV 

BIC 

CLC 

TST 

BEQ 


#VF.SS,$VFLAG 
90$ 

$PARHD,$BFR 

$8FR,R5 

20$ 

50$ 


S  SYSTEM  ? 

IF  NO  -  BRANCH 

COPY  FIRST  PCB  ADDRESS 

ifNOT  END  OF  lIST  -  BRANCH 
ELSE  -  NOT  SERVER  BASE 


R5,.PLGTH       ;  READ  PCB 

#*RNTP,P.NAMt$BFR  ;  MATCH  ? 

10$  ;  IF  NO  -  BRANCH 

#*R00L,P.NAM+2+$BFR  ;  MATCH  ? 

10$  ;  IF  NO  -  BRANCH 

90$  ;  IF  SERVER  BASE  -  BRANCH 


$DDMPV,R5 

Z.NAMCR5),$NAME 

90$ 

#FL.LMC,$FLAGS 

90$ 

ERROR 

70$ 

PCBA.TMPPCB 
PC8A 

SFIL 

$C10PE 

100$ 

RMCLBL 
110$ 

#MCLOA,MCFLG 
PR. PAR 
40$ 

PR.XFR 

$CLDEQ 

PCBA.RI 

#MCL0A,MCFLG 

ERROR 


GET  DDM  pnv  ADDRESS 
ARE  WE  LOADING  DDM  ? 
IF  NO  -  BRANCH 
LOAD  MICROCODE  ? 
IF  NO  -  BRANCH 
ERROR  OCCUR  ? 
IF  YES  -  BRANCH 

SAVE  FCB  ADDRESS 

INDICATE  NO  MC  PARTITION  YET 

SET  UP  MICROCODE  FILE  SPEC 

OPEN  FILE 

IF  FAILURE  -  BRANCH 

READ  LABEL 

IF  FAILURE  ■■  BRANCH 

SET  MICROCODE  PARTITION  FLAG 

CREATE  PARTITION 

IF  FAILURE  -  BRANCH 

TRANSFER  FILE  TO  PARTITION 

CLOSE  FILE 

STORE  MICROCODE  PARTITION  ADDRESS 

NIT  MICROCODE  FLAG 

0  cRROR 

^ROR  ? 
J  ON  -  BRANCH 


L 


L 
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PRf 
MA( 


872 

873 

87^ 

875 

876 

877 

878 

879 

880 

881 

882 

883 

88A 

885 

886 

887 

888 

889 

890 

891  003026 

892 

893 

894 

895 

896 

897 

398 

899 

900 

901  003026 

902  0030A6 
903 

904  003052 

905  003056 

906  003060 
907 

908 
909 
910 

911  003062 

912  003070 

913  003076 
9K 

915 


.SBTTL  PR.XFR  -  READ  PROCESS  INTO  CORE 

PR.XFR  -  READ  PROCESS  TASK  IMAGE  INTO  CORE 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  PROCESS  TASK  IMAGE  INTO  CORE. 
IT  THEN  DETERMINES  IF  THE  PROCESS  HAS  FREE  SPACE  AND,  IF  SO, 
SETS  UP  THE  FIRST  2  WORDS  AT  THE  OFFSET  AS: 

0       NO  NEXT  SECTION 

NUMBER  OF  BYTES  OF  FREE  SPACE  THIS  SECTION 


INPUTS: 

PCBA=PCB  ADDRESS 


OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
RO,R1,R2=DESTROYED 


016700     OOOOUG 
103401 


116777     OOOOOOG  OOOOOOG   101 
012767     000042     000250' 


PR.XFR: 

.IF 

DF,R$$MPL 

BIT 

#FL.CEX,$FLAGS 

BEQ 

30$ 

MOV 

.CEX.RO 

ADD 

#77,R0 
6,R0 

ASR$ 

EIC 

#176000, RO 

BR 

40$ 

.ENDC 

30$: 

GETRV 

PCSA,.PLGTH 

MOV 

P.fiEL+$BFR,RO 

40$: 

CALL 

$READX 

BCS 

101$ 

RETURN 

;  ERROR 

CONDITION 

101$: 

MOVB 

$I0SB,51$CLIOS 

MOV 

#ERR34, ERROR 

RETURN 

LOADING   THE   COHM  EXEC? 

BR   IF   NO 

COPY  INTO  ARGUMENT  REGISTER 

ROUND  UP  TO  NEXT  BLOCK 

CONVERT  ADDRESS  TO  BLOCK  BIAS 

CLEAR  OUT  PROPAGATED  SIGN  BITS 

AND  DO  THE  TRANSFER 


READ  IN  PCB 

GET  PARTITION  STARTING  ADDRESS 

READ  INTO  EXTENDED  MEMORY 
IF  CS,  FAILURE 


COPY  ERROR  CODE 

PROCESS  IMAGE  READ  FAILURE 


L 


L 
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i/P[ 
L0( 


60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 


000001 


000001 


.SBTTL  MACROS  AND  SYMBOLS  AND  INITIALIZATION 
.ENABLE  LC 

DECLARE  EXTERNAL  MACROS 

.MCALL   ISTATS, PRMPTS 
SIGNAL  PROMPTING  SUPPORT 

SGPRM   =  1 
MAKE  TABLES  READ  ONLY 

SRONLY  =  1 


L 
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VP 

$c 


234 

+ 

23J 

$XFER 

-  TRANSFER  PROCESS  FROM  D 

236 

237 

INPUTS: 

238 

$PDVA= 

PDV  ADDRESS 

239 

$NAME= 

RAD50  PDV  NAME 

240 

241 

OUTPUTS: 

242 

C-BIT= 

SUCCESS/FAILURE 

243 

$BIAS^ 

PROCESS  RELOCATION 

244 

245  000000 

ixFER:: 

246 

.MCALL 

VNPBPT 

247  000000 

VNPBPT 

XFER 

248  000000 

016700 

OOOOOOG 

MOV 

SPDVA.RO 

249  000004 

005760 

OOOOOOG 

TST 

Z.PC8(R0) 

250  000010 

001147 

QNE 

60$ 

251  000012 

016700 

OOOOOOG 

MOV 

$NAME,RO 

252  000016 

CALL 

$DFN 

253  000022 

CALL 

PRSYM 

254  000026 

103534 

BCS 

50$ 

255  000030 

005000 

CLR 

RO 

256  000032 

005001 

CLR 

R1 

257  000034 

005002 

CLR 

R2 

258  000036 

CALL 

SAZFS 

259  000042 

CALL 

$PRIO 

260  000046 

251 

262 

103534 

BCS 

TSKERR 

.IF  DF 

R$$MPL 

263 

TST 

VECVAL 

264 

BEQ 

5$ 

265 

CALL 

ALV8LK 

266 
267 
268  000050 

.ENDC 

016700 

OOOOOOG 

5$: 

MOV 

$PDVA,RO 

269  000054 

010160 

OOOOOOG 

MOV 

R1,Z.PCB(R0) 

270  000060 

GETRV 

R1,.PLGTH 

271  000076 

016701 

OOOOOOG 

MOV 

$LDSIZ,R1 

272  000102 

016702 

OOOOOOC 

10$: 

MOV 

$8FR+P.BLKS,R2  , 

273  000106 

020102 

CMP 

R1,R2 
20i 

274  000110 

001001 

BNE 

275  000112 

005001 

CLR 

R1 

276  000114 

016760 

000042' 

OOOOOOG  20$: 

MOV 

PVAL,Z.DSP(R0)  , 

277  000122 

278 

279  000126 

005067 

OOOOOOG 

CLR 

SBIAS 

005767 

0000006 

TST 

.MGMGE 

280  000132 

281 

282 

283 

284  000134 

100432 

BKI 

30$ 

;•  MAPPED  SYSTEMS 

012746 

OOOOOOG 

' 

MOV 

#P.REL,-(SP) 

285  000140 

062716 

OOOOOOG 

ADD 

#$BFR,(SP) 

286  000144 

017660 

000000 

OOOOOOG 

MOV 

51(SP),Z.DSP(R0) 

2?1   000152 

013667 

OOOOOOG 

MOV 

a(SP)+,$BIAS 

288  000156 

016760 

000042' 

000002G 

MOV 

PVAL,Z.DoP+2(R0) 

289  000164 

ASL$ 

6,R1 

290  C00200 

ASL$ 

6,R2 

GET  PDV  ADDRESS 

IS  PROCESS  ALREADY  CORE-RESIDENT? 

IF  NE,  YES  -  NETLDR  LOGIC  ERROR 

GET  PDV  NAME 

SETUP  DEFAULT  FILE  NAME 

LOOK  FOR  SPECIAL  SYMBOLS 

IF  CS,  FAILURE 

SETUP  ASCIZ    FILE   SPEC 

FOR  XXX. TSK 


TRANSFER  PROCESS  INTO  CORE 
IF  CS,  ERROR 


IS  PROCESS  VECTORED  ? 

IF  NO  -  BRANCH 

IF  YES  -  ALLOCATE  VECTOR  BLOCK 


GET  PDV  ADDRESS 

STORE  PCB  ADDRESS 

READ  IN  PCB 

GET  LOAD  SIZE  OF  PROCESS 

GET  PARTITION  SIZE  IN  BLOCKS 

LOAD  SIZE  SAME  AS  PARTITION  SIZE  ? 

IF  NE,  NO  -  THERE  MUST  BE  SOME  SPACE  LEFT 

ELSE,  SAY  THERE  IS  NO  SPACE 

SET  DISPATCH  TABLE  ADDRESS  (ASSUME  UNMAPPED) 

ASSUME  UNMAPPED  SYSTEM 

IS  THIS  A  MAPPED  SYSTEM  ? 
IF  MI,  NO 


COMPUTE  ADDRESS  OF  RELOCAT;  M  BIAS 

SET  PROCESS  RELOCATION  BIAS 
TWICE 

:  SET  DISPATCH  TABLE  ADDRESS 
GET  LOAD  SIZE  IN  BYTES 
GET  PARTITION  SIZE  IN  BYTES 


J    I 


N  7 

VPRO  -  VNP  SET  PROCESS  ROUTINES  MACRO  V05.03b  Wednesday  28-Aug-85  ?0;0^ 
SCUT  -  ALLOCATE  XPT  CIRCUIT  COUNTERS 
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85i 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 

873  002720 

874  002724 

875  002732 
876 

877  002736 

878  002754 

879  002760 

880  002764 
881 

882  002770 

883  002774 
834  002776 
885  003002 
886 

887  003004 

888  003006 

889  003010 

890  003012 

891  003014 

892  003020 
893 

894  003022 

895  003026 

896  003030 

897  003032 
898 

899  003036 

900  003060 

901  003062 
902 

903  003064 

904  003066 

905  003070 

906  003C74 

907  003076 

908  003102 

909  003106 
910 


.SBTTL  $CKT  -  ALLOCATE  XPT  CIRCUIT  COUNTERS 

'$CKT  -  ALLOCATE  XPT  CIRCUIT  COUNTERS.  INIT  NODE  COUNTERS 

INPITS: 

$PDVA  -  XPT  PDV  ADDRESS 

OUTPUTS: 

INIT  XPT  NODE  COUNTER 

XPT  CIRCUIT  COUNTERS  ALLOCATED 

N$TLC   -  NUMBER  OE  CIRCUIT  COUNTERS 
N$TLC+2  -  BIAS  (NON  UMR  POOL..) 
N$TLCt4  -  VIRTUAL  ADDRESS 

N$TNC   -  SIZE  OF  NODE  COUNTERS 

N$TNC+2  -  VIRTUAL  ADDRESS  (PREALLOCATED  FROM  XPT) 


016702  0000006       $CKT: 
016267  0000006  000016' 
016202  OOOOOOG 


016700  0001146 

016701  000116G 

016702  000016" 


022701  140000 

003003 

062702  000200 

000442 


010103 
010004 
006304 
060403 
022703 
002033 


5$: 


140000 


012704  OOOOOOG 

010005 

005024 


005300 
001431 

005201 

005201 

022701   140000 

003360 

062702  000200 


10$: 
15$: 


012701 
000753 


120000 


MOV 
MOV 
MOV 

GETRV 
MOV 
MOV 
MOV 

CMP 
BGT 
ADD 
BR 

MOV 
MOV 
ASL 
ADD 
CMP 
BGE 

MOV 
MOV 
CLR 
SOB 

PUTAD 

DEC 

BE(J 

INC 
INC 
CMP 
BGT 
ADD 
MOV 
8R 


$PDVA,R2 

Z.DSP(R2),XPTDSP 

Z.DAT(R2),R2 

R2,#N$XLEN 
N$TNC+$BFR,RO 
N$TNC+$BFR+2,R1 
XPTDSP,R2 

#140000, R1 
5$ 

#200, R2 
20$ 

R1,R3 

R0,R4 

R4 

R4,R3 

#1  ,0000, R3 

cJi 

#$8FR,R4 
R0,R5 
(R4)  + 
R5,10$ 

R1,#2,R2 

RO 

30$ 

R1 

R1 

#140000, Rl 

15$ 

#200. R2 

#120600, Rl 

15$ 


GET  XPT  PDV  ADDRESS 

GET  XPT  BIAS 

GET  XPT  DDB  ADDRESS 

READ  XPT  DDB 

GET  #  OF  WORDS  IN  TRANSPORT  NODE  CTRS 
GET  ADDRESS  OF  TRANSPORT  NODE  CTRS 
STORE  XPT  S  BIAS 

ARE  NODE  COUNTERS  IN  SECOND  4K  BLOCK 

IF  NO  -  BRANCH 

IF  YES  -  ADJUST  BIAS  BY  4KW 

CONTINUE 

COPY  NODE  COUNTER  AD..=!ESS 

COPY  SIZE  OF  COUNTERS 

CONVERT  TO  BYTES 

CALCULATE  lOP  OF  NODE  COUNTERS 

DOES  XPT  NODE  CTRS  CROSS  4KW  BOUNDARY 

IF  NOT  -  BRANCH 

GET  BUFFER  ADDRESS 
COPY  NODE  COUNTERS  SIZE 
INIT  XPT  NODE  COUNTERS 
IF  MORE  -  BRANCH 

WRITE  TWO  BYTES  OF  XPT  COUNTERS 
COUNT  ONE  LESS  WORD 
IF  DONE  -  BRANCH 

ADDRESS  NEXT  WORD 

NEXT  4KW  YET  ? 

IF  NO  -  BRANCH 

ADJUST  BIAS  TOO  NEXT  4K,  BLOCK 

SET  NEW  VIRTUAL  ADDRESS 

COI'TINUE 
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VPRO 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


LF.REA 

LF.SER 

lF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LO.CON 

LO.CSR 

lO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFM 

LR.LIN 

LR.PRM 

LR.PRO 

LR.5TS 

LR.TCB 

LR.UNT 

LS.AST 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.DLM 

LS.ECH 

IS.FDX 

LS.HDX 

LS.LIN 

LS.LMC 

LS.NTI 

LS.ON 

LS.OPT 


N  8 

PAGE  2 

CREF   04.00 


REFERENCES 


=  010000 

#5-72 

=:  000040 

#5-72 

=  000010 

#5-72 

=  020000 

#5-72 

=  000000 

#5-72 

=  000000 

#5-72 

=  000005 

#5-72 

=  000004 

#5-72 

=  000005 

#5-72 

=  000005 

#5-72 

=  000001 

#5-72 

=  000000 

#5-72 

=  000004 

#5-72 

=  000001 

#5-72 

=  000002 

#5-72 

=  000002 

#5-72 

=  000017 

#5-72 

=  000560 

#5-72 

=  000006 

#5-72 

000006 

#5-76 

000006 

#5-76 

000014 

#5-75 

000004 

#5"76 

000010 

#5-76 

000010 

#5-76 

000014 

#5-76 

000015 

#5-76 

000012 

#5-76 

000026 

#5-76 

000002 

#5-76 

000004 

#5-76 

000004 

#5-76 

000002 

#5-76 

000050 

#5-76 

}00002 

#5-76 

000000 

#5-76 

000002 

#5-76 

000005 

#5-76 

=  100000 

#5-76 

=  000001 

#5-76 

=  000010 

#5-76 

=  010000 

#5-76 

=  000400 

#5-76 

=  0040C0 

#5-76 

=  001000 

#5-76 

=   004000 

#5-76 

=  010000 

#5-76 

=  000005 

#5-76 

=  000007 

#5-76 

^  004000 

#5-76 

=  000011 

#5-76 

=  000400 

#5-76 

VRES 
DATA 
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.SBTTL  DATA 
1/0  DATA  STRUCTURES 


N  9 


8^ 

85 

86 

87 

88 

89  000000 

90 

91 

92 

95 

94 

95 

96  000000 

97 

98 

99 
100 
101 

102  000030 
103 

104  000030 
105 
106 
107 
108 
109 
110 

111  000256 

112  000416 

113  000416 

114  000416 
115 

116  000454 
117 

118  000456 

119  000460 
1-'"  000462 
1  000464 
Ud   000466 

123  000470 

124  000472 

125  000474 

126  000476 

127  000500 
128 

129 
130 
131 
132 

133  000502 

134  000504 

135  000506 

136  000510 

137  000512 

138  000612 
139 

140  00061<: 


000226 


000260' 


000000 
000000 

000000 

004120' 

005622' 


000000 
000000 
000000 
000000 


FSRSZS  2 


ALLOW  TWO  FILES  OPEN  SIMULTANEOUSLY 
SYSTEM  IMAGE  FILE  AND  GET  COMCL 


ERROR  MESSAGE  REPORTING 
TIOUT:   QIOWS   I0.WLB,2,2 <,,40> 


GET  COMMAND  LINE  DATA  BASE 


GCLDFS 
.6L0BL 
GCL8UF::.8LKB 

GCLS1Z= 


1,1,<VNP>,GCL8UF 
CL.OPN 
150. 
,-GCLeuF 


GCLSIZ        ;  GCL  DATA  BASE 
NEEDED  TO  LEAVE  DATA  FILES  OPEN 
GET  COMMAND  LINE  BUFFER 
BUFFER  SIZE 


SYSTEM  IMAGE  FILE  VIRTUAL  I/O  DATA  BASE 

SYSFDB::FDBDF$  ;  SYSTEM  IMAGE  FILE  FDB 

FDRCSA  ,S8FR  ;  BUFFFER  ADDRESS 

FDOPSA  3,$CLCSH-C.DSDS,SYSDNB  ;  LUN  3/DATASET  DESCR.  BLk-./DEF. 

SYSDNB:  NMBLKS  RSXl 1M,SYS, ,SY,0  ;  DEFAULT  FIELD  VALUES 


FNB 


$RSIZ: 
SRSIZE 
SRADDR 
SRBLCK 
SVCTVB 
SVCTOF 
$\FRAD 
SXFRSV 
SLOWSZ 
ICPBIA 
MAXOV: 
CEACC: 


SADRZ: 
$ADRX: 
SUNBSZ 
SUNBAD 
SUNBLK 
SUNEND 


.8LKW   1 
=SYSFD8+F.RSIZ 


.SLKW 
i.BLKW 
:.BLKU 
i.BLXW 
■.WORD 
i.WORD 
;.BLKW 
i.WORD 
$MAXOV 
SCEACC 


RECORD  SIZE  OF  FILE  WHEN  OPENED 

LENGTH  OF  RECORD  TO  READ/WRITE 

INPUT  (ECORD  ADDRESS  IN  SYSTEM  IMAGE 

INPUT  BLOCK  NUMBER  (  FOR  $GETAD/$PUTAD  ) 

VBN  OF  MEMORY  (  0-777  )  DISPLACED  BY  'SAV 

BLOCK  OFFSET  OF  VIRTUAL  ZERO 

SYSTEM  IMAGE  TRANSFER  ADDRESS 

SYSTEM  IMAGE  TRANSFER  ADDRESS        ;[MP01] 

NUMBEf<  OF  BYTES  DISPLACED  BY  SAVE 

CPU  BIAS  WORD 

NECESSARY  FOR  TMPACT  MODULE 

CAN  BE  REMOVED  AFTER  MOD  FILE  IS  FIXED  N$$VCT 


DATA  STRUCTURES  USED  TO  MANIPULATE  ACCOUNTING  BLOCKS  IN 
NTPOOL.  (  UNLOAD  BLOCKS,  CSR  BLOCKS,  MICROCODE  BLOCKS...) 


.WORD 
.WORD 
.WORD 
.WORD 
.6LKW 


0 
0 
0 
0 
32. 


$HMBUF::.8LKB   D$END 


THESE  TWO  WORD  ENABLE  TRANSPARENT  MANIPU- 
LATION OF  32. -WORD  BLOCKS  FROM  $ALN18 
RO  VALURE  TO  GET  32.  WORD  BLOCK  FROM  SALNIS 
VIRTUAL  ADDRESS  OF  CURRENT  BLOCK 
BLOCK  IMAGE  BUFFER 
END  OF  LOCAL  COPY  OF  UNLOAD  BLOCK 

TEMPORARY  DECNET  HOME  BLOCK  BUFFER 
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N  10 


565 

566 

567  003A06 

000000 

568  005410 

100000 

569 

570 

000001 

571 

000002 

572 

000004 

573 

000010 

574 

000020 

575 

000C40 

576 

000100 

577 

000200 

578 

000400 

579 

001000 

580 

002000 

581 

004000 

582 

010000 

583 

020000 

584 

040000 

585 

100000 

586 

587 

588 

589  003412 

590 

591 

592 

593 

594 

595 

000001 

596 

000002 

597 

000004 

598 

000010 

599 

000020 

600 

000040 

601 

000100 

602 

000200 

603 

000400 

604 

001000 

605 

002000 

606 

004000 

607 

010000 

608 

020000 

609 

040000 

610 

100000 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620  003414 

621 

000001 

;  NETLDR  STATUS 

iFLAGS::.W0RD 

0 

.WORD 

FL.URN 

FL.DDM==1 

FL.DLC==2 

FL.LLC==4 

FL.CEX==10 

FL.CHA==20 

FL.ECH==40 

FL.FDX==100 

FL.HDX==200 

FL.KMX==400 

FL.LMC==1000 

FL.MUX==2000 

FL.CNT==4000 

FL.PX1==10000 

FL.PX2==20000 

FL.T0P==40000 

FL.WRN^=100000 

;  VNP  STATUS  FLAG 

ivFLAG::.8LKW 

1 

.IF  DF  WSSMPL 

$DFLAG::.WORD 

0 

.ENDC 

VF.NTI== 

1 

VF.ON== 

2 

VF.TRA== 

4 

VF.SS^= 

10 

VF.ECH== 

20 

VF.INI== 

40 

VF.FIX== 

100 

VF.VDT== 

200 

VF.ADD== 

400 

VF.ACP== 

1000 

VF.PEM== 

2000 

VF.DLX== 

4000 

VF.SKA== 

10000 

VF.EAD== 

20000 

VF.PSI== 

40000 

VF.SED== 

100000 

.IF  DF  R$$MPL 

DF.DAS== 

1 

UF.SCO== 

2 

DF.POL== 

4 

DF.PDE== 

10 

DF.MXU== 

20 

.ENDC 

SVFLGI ::.8LKW 

1 

Vl.NSY== 

1 

FLAG  UORD 
DEFAULT  VALUES 

DDM  BEING  LOADED 

DLC  BEING  LOADED 

LLC  BEING  LOADED 

COMM  EXEC  BEING  LOADED 

MUX  CHARACTERISRICS  UPDATE  ONLY 

ECHO  THE  TEMPLATE 

FULL-DUPLEX 

HALF-DUPLEX 

COMIOP  MULTIPLEXED  LINE 

MICRO-CODE  LOAD  NEEDED 

MULTIPLEXED  LINE 

CONTROLLER  ONLY  SPECIFIED  FOR  LINE-ID 

SUCCESSFUL  PROCESS  I/O  TRANSFER 

LOAD  FROM  TOP  OF  PARTITION 
WARNING  MESSAGE  CONTROL 


FLAG  EXTENSION 


CMP01] 
[MP01] 
CMPOn 


NTINIT  MODE 

ON/OFF  FUNCTION  CODE  MODIFIER 

TRANSMIT/ENABLE  FUNCTION  CODE  MODIFIER 

RSXIIS  SYSTEM  IMAGE  BEING  PROCESSED 

SET  CEX  IN  ECHO  MODE 

INITIALIZATION  COMPLETED  SUCCESSFULLY 

FIX  NTINIT  WHEN  SETTING  STATE  LOCAl  ON 

NOTIFY  VDT  TO  OUTPUT  BUFFERS 

NODE  IDENTIFICATION  IS  AN  ADDRESS 

SET  NODE  STATE  COMPLETED  SUCCESSFULLY 

PROTOCOL  EMULATOR  COMMAND 

DLX  ONLY  MODE 

SINK  NODE  ID  FOR  LOGGING  IS  AN  ADDRESS 

NODE  ENTITY  ID  FOR  LOGGING  IS  AN  ADDRESS 

SPECIFIED  CIRCUIT  IS  A  PSI  CIRCUIT 

CIRCUIT  SERVICE  DISABLE 


D-SPACE  ENABLED 

READ  LOWCR  DISPLACEMENT  POINTER 
SECONDARY  POOL  SUPPORTED 
PROCESS  SPACE  DEALLOCATION 
MUX  KR8  ADDRESS  ADJUSTMENT 


ANOTHER  FLAGS  WORD 

FILE  IS  NOT  A  SYSTEM  IMAGE  FILE 


CMPOI] 
CMPOl] 
CMPOI] 
[MP01] 
CMPOI] 
CMPOI] 
CMPOI] 


VRES  -  VNP  ROOT  MACRO  V05.03b  Tuesday  17-Sep-85  16:15 
SGETAD  -  GET  RECORD  FROM  SYSTEM  IMAGE  FILE 


Page  21 


1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 


.SBTTL   SGETAD 
•*-$GETAD 


N  11 


GET  RECORD  FROM  SYSTEM  IMAGE  FILE 


THIS  ROUTINE  IS  CALLED  TO  GET  A  RECORD  FROM  THE  TASK  IMAGE  FILE. 
THE  VIRTUAL  ADDRESS  OF  THE  RECORD  IS  DEFINED  BY  THE  CONTENTS  OF 
SRADDR  AND  $R8LCK,  WHICH  HOLD  AN  OFFSET  FROM  A  32.  WORD  BLOCK 
AND  A  BLOCK  NUMBER  RESPECTIVELY  (THAT  IS,  FORM  AN  ADDRESS  DOUBLE 
WORD).   THE  SIZE  OF  THE  RECORD  IS  DEFINED  BY  THE  INPUT  FILE  FDB. 


INPUTS: 

SRBLCK 
SRADDR 


-  BLOCK  NUMBER  (32.  WORDS  PER  BLOCK)  TO  BE  READ  FROM. 

-  OFFSET  FROM  BLOCK  SRBLCK  AT  WHICH  TO  START  READING. 
BITS  15,  U,  13  (USED  IN  A  RUNNING  SYSTEM  TO 

SELECT  A  HAPPING  REGISTER)  ARE  IGNORED. 
SYSFD6+F.RSJZ-  NUMBER  OF  BYTES  TO  READ 


OUTPUTS: 

THE  SPECIFIED  RECORD  IS  READ  FROM  THE  TASK  IMAGE 
NOTE:  ALL  REGISTERS  ARE  PRESERVED  ACROSS  CALL 


004712 


$GET«i): 


61$: 


1199  004712 

004267 

OOOOOOG 

1200  004716 

012746 

OOOOOOG 

1201   004722 

010346 

60$: 

1202  004724 

012700 

000256' 

1203 

1204 

; 

1205 

1206 

1207 

; 

1208 

* 

1209 

; 

1210 

1211 

1212 

1213  004730 

016702 

17^524 

1214  004734 

005003 

1215  004736 

006002 

1216  004740 

106003 

1217  004742 

006202 

1218  004744 

106003 

1219  004746 

006202 

1220  004750 

106003 

1221   004752 

006303 

1222  004754 

016746 

173476 

1223  004760 

021627 

120000 

.IF    DF 
TST 
BNE 
CALLR 

.ENDC 

JSR 
MOV 
MOV 
MOV 


R$$MPL 
SRBLCK 
61$ 
SGETRV 


R2,SSAVVR 
#.GET,-(SP) 
R3,-(SP) 
#SYSFDB,RO 


;[MP01] 
.-CMPOl] 
;[MP01] 
; CMPOl ] 
; CMPOl ] 
; LMPOl ] 


SAVE  RO,  R1,  R2 

SET  ADDRESS  OF  RECORD  ACCESS  ROUTINE 

SAVE  R3 

GET  ADDRESS  OF  INPUT  FILE  FDB 


THIS  SECTION  CONVERTS  A  DOUBLE  WORD  ADDRESS  (  BLOCK, VIRTUAL 
ADDRESS  )  USED  BY  MEMORY  MANAGEMENT!  INTO  THE  CORRESPONDING 
BLOCK  AND  OFFSET  WITHIN  THE  SYSTEM  IMAGE  FILE. 

SPECIAL  CAUTION  MUST  BE  TAKEN  WHEN  CALLING  6ETAD/PUTAD  WITH 
ANY  0'^  THE  MEMORY  MANAGEMENT  BITS  SET  (  HIGH  ORDER  THREE  B.  TS  ) 
SINCE  THEY  WILL  BE  TREATED  AS  PART  OF  THE  VIRTUAL  ADDRESS. 

GET  BLOCK  NUMBER  (UNITS  OF  64.  BYTES) 

CLEAR  C-BIT 

CHANGE  R2  TO  512.  BYTE  UNITS 

SAVE  THREE  LOWEST  BITS  FROM  BLOCK 
NUMBER  (CONSTITUTE  THREE  HIGHEST 
BITS  OF  OFFSET  IN  512.  BYTE  BLOCK) 


MOV 

SRBLCK, R2 

CLR 

R3 

RCP 

R2 

Rn,<B 

R3 

ASR 

R2 

RORB 

R3 

ASR 

R2 

R0R8 

R3 

ASL 

R3 

MOV 

SRADDR, -( 
{SP),*l20 

CMP 

(SP) 


GET  ADDRESS 

IS  ADDRESS  MAPPED? 


N  12 
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SYMBOL 

CROSS  REFERENCE 

CREF 

04.00 

SYMBOL 

VALUE 

REFERENCES 

LN. 

OOP 

=  00000^ 

G 

#5- 

78 

LN. 

OPE 

=  000001 

G 

#5- 

78 

lN. 

REF 

=  000002 

G 

#5- 

78 

LN. 

SER 

=  000002 

G 

#5- 

-78 

LN. 

STA 

=  000017 

G 

#5- 

■78 

LN. 

SUB 

=  000360 

G 

#5- 

■78 

LN. 

TRl 

=  000006 

G 

#5- 

■78 

LO 

ADD 

000022 

#5- 

■80 

LO 

ADR 

000052 

#5- 

■80 

LO 

CLS 

000002 

#5- 

-80 

LO 

CON 

000006 

#5- 

■80 

LO 

COP 

000010 

#5- 

■80 

LO 

COS 

000020 

#5- 

■80 

LO 

CSR 

000010 

#5- 

■80      5-80 

LO 

CTL 

000032 

#5- 

■80 

LO 

DES 

000002 

*5- 

-80      5-80 

LO 

DTE 

000047 

*5- 

-80 

LO 

EVT 

000004 

#5 

-80 

LO 

GRO 

000024 

#5 

-80 

LO 

HOS 

000040 

#5 

-80 

LO 

HTM 

000032 

#5 

-80 

LO 

INA 

000062 

*5 

-80 

LO 

INC 

000060 

#5 

-80 

LO 

LDT 

000046 

#5 

-80 

LO 

LID 

000030 

*5 

-80 

LO 

LIN 

000004 

#5 

-80 

LO 

1  TM 

000034 

#5 

-80 

LO 

MAC 

000022 

#5 

-80 

LO 

MDE 

000024 

#5 

-80 

LO 

.NAM 

000044 

#5 

-80 

LO 

.NET 

=  000002 

#5 

-80 

LO 

.NNM 

000022 

#5 

-80 

LO 

.OFL 

000012 

#5 

-80 

LO 

.ONM 

000004 

Its 

-80 

LO 

.OUT 

000056 

#5 

-80 

LO.OWN  000026  #5-80 

LO.PAR  000010  *5-80 

LO.PRl  000012  #5-80 

10. RET  000064  #5-80 

LO.RPA  000030  #5-80 

LO.SCR  000016  #5-80 

LO.SEG  000054  #5-80 

LO.SKA  000014  #5-80 

LO.S<N  000014  #5-80 

LO.SNM  00C035  #5-80 

LO.TPA  000020  #5-80 

L0.TR8  000034  #5-80 

LO.TRI  000030  #5-80 

lO.UNT  000053  #5-80 

LO.VCT  000014  #5-80 

LO.l/ER  000042  #5-80 

LR.ACC  000020  #5-80 
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MACRO  CROSS  REFERENCE  CREF   04.00 

MACRO  NAME  REFERENCES 

ALUNS 
ASRS 

BDOFFS  

CALL  8-255     9-279     9-282 

19-1124    19-1135    19-1137 

CBYTES  #6-102     6-102     6-102 

CSIS  #6-102     6-102 

CUOROS  #6-102     6-102     6-102 

'  ""     6-112 

DEFSL 

DHBDFS  .... 

DIR$  #5-69     #6-102     14-420 

ERBLKS  #5-69      23-1285    23-1287 

ERMSG$  #5-69      23-1282    23-1283 

ERRPTt  #5-69      19-1135    19-1137 

FDBDFS  #5-68     #6-102     6-102 

FDBSZS  #6-102     6-102    #6-111 

FDOFFS  #6-102     6-102    #6-102 

FOOPSA  #5-68     #6-102     6-'02 

FDRCSA  #5-68     #6-102     6-10" 

FSRSZS 

GCLOFS 

GCLS 

GMCR$ 

HWDDFS 

NBOFFS  #6-102     6-102     #6-114     6-114 

NMBLKS  #6-102     6-102     6-114  „^     ,  ,^^ 

OFF$  #6-96     #6-102    #6-102    #6-102    #6-102    #6-102 

PDVDFS  #5-69      5-79 

QDPBS  #6-96      6-96     #6-102     6-102 

QIOW$ 

010$  ..-  --      -  ..- 

RAD50$  #6-102     6-102     6-102    #6-114     6-114     6-114 

RETURN  *8-260_.    9-28p    10-322     11-357     12-378     14-421     14-449     19-1126    19-1129    22-1264 

SAVRG 

SETF$ 

SLTDFS 

VNPDF$ 

WISES 


#6-102 

6-102 

#5-68 

24-1320 

#6-89 

8-255 

9-279 

19-1124 

19-1135 

#6-102 

6-102 

#6-102 

6-102 

#6-102 

6-102 

#6-112 

6-112 

#6-89 

#5-70 

5-81 

#5-69 

#6-102 

#5-69 

23-1285 

#5-69 

23-1282 

#5-69 

19-1135 

#5-68 

#6-102 

#6-102 

6-102 

#6-102 

6-102 

#5-68 

#6-102 

#5-68 

#6-102 

#5-68 

6-89 

#5-68 

6-102 

#6-102 

22-1254 

#6-102 

6-102 

#18-997 

18-998 

#6-102 

6-102 

#6-102 

6-102 

#6-96 

#6-102 

#5-69 

5-79 

#6-96 

6-96 

#5-69 

6-96 

#6-102 

6-102 

#6-102 

6-102 

#5-70 

24-1324 

8-260 

9-287 

24-1325 

#5-70 

24-1316 

#6-102 

6-102 

#5-6</ 

5-78 

#5-68 

5-80 

#6-102 

6-102 

10-318 
19-1138 
#6-102 

11-342 

22-1254 

6-102 

11-345 
22-1272 
#6-112 

11-353 

25-1348 

6-112 

14-436 
25-1355 
#6-113 

14-440 
6-113 

19-11 
6-113 

6-102 
#6-113 

#6-102 
6-113 

6-102 
6-113 

6-102 
6-113 

#6-102 
#6-114 

6-102 
6-114 

6-102 
6-114 

23-1289 

23-1284 

19-1138 

6-111 

6-111 

6-102 

6-113 

6-112 

23-1292 
23-1286 
22-1272 

#6-112 

23-1288 
6-"  12 

23-1290 
#6-113 

23-1291 
6-113 

N  U 
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362 
365 
364 
36S 
366 
367 
368 
369 
370 
371 
372  000216 

573  000216  005''67  OOOOOOG 

574  000222  0OU01 

575  000224 
376 

377 
578 
579  000226 


.SBTTL  PSILD  -  CHECK  PSI  LOADED 

PSILD  -  MAKE  SURE  PSI  IS  LOADED 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCE5S/FA!IURE 


PSILD: 

TST     SPSIPT 
8EQ     101$ 

10$:    RETURN 

ERROR  CONDITION 
01$:   EMSG$R  06 


;  IS  PSI  LOADED? 
;  IF  EQ,  NO 


PSI  NOT  LOADED 


VRQB  -  vNP  PROCESS  RfQUESI  BLOC  MACRO  vOS.O;b  Tuesday  50-Jul-85  1 
SCIR  -  CHECK  SET  CIR  PARMS 


l\\ 


Page  ?5 


761 

762 

76! 

76^ 

765 

766 

767 

768 

769 

770 

771  0016A0 

71'2   0016'!'. 

775  0016^.6 

77^  001652 

775  001660 

776  001662 

777  001670 


00576:" 
00U11 
016700 
032760 
001005 


OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 


SCIR 


.SBTTL   SCIR  -  CHECK  SET  CIR  PARMS 
'  CHECK  "SET  CIRCUIT"  REQUEST  BLOCK 


INPUTS: 

JSLTA=SLT  ADDRESS 


OUTPUTS: 

NONE 


SCIR: 


10$: 


TST 

BEQ 

MOV 

BIT 

BNE 

EMSGSR 

RETURN 


SOPTON 

101 

$SLTA,R0       , 

#Lf  .RDY,L.FLG(RO) 

10$ 

ZB 


INITIAL  CIRCUIT  LOAD? 

BR  IF  rES 

GE.  SLT  ADDRESS 

;  IS  LINE  READY  ? 

BR  IT  YES 

ELSE,  LINE  IN  WRONG  STATE 


J 


g 

Q 

[) 

f 

Ci 

H 

I 

J 
K 

S^ 

N 

B 

J 

C 

2 

0 

2 

E 

5 

F 

2 

G 

2 

H 

5 

I 

2 

J 

5 

K 

5 

^ 

1 

* 

N 

R 

5 

r 

^ 

0 

F 

F 

G 

H 

I 

J 

K 

1, 

M 

N 

B 

r 

D 

F 

F 

fi 

H 

I 

,) 

K 

1 

H 

N 

R 

r 

n 

F 

F 

G 

H 

I 

ypio 


J 

S     VPRMPT 

K 

1 

M 

N 

R 

r 

6 

D 

6 

E 

6  J 

1- 

6 

r, 

6     VPRO 

H 

6 

I 

6 

,1 

6 

K 

6 

1 

6 

M 

6 

N 

6 

R 

7 

r 

7 

D 

7 

F 

7 

F 

7 

r, 

7 

H 

7 

I 

7 

1 

7 

K 

7 

1 

7 

M 

7 

N 

7 

R 

8 

r 

8 

n 

8 

F 

8 

F 

8 

fi 

8 

H 

8 

1 

8 

,1 

8 

K 

8 

1 

8 

n 

8 

N 

8 

R 

9 

r 

9 

f) 

9 

F 

9 

F 

9 

fi 

9 

H 

9 

I 

9     VRES 

J 

9 

K 

9 

1 

9 

M 

9 

N 

9 

R 

10 

r 

10 

D 

10 

F 

10 

F 

10 

fi 

10 

H 

10 

I 

10 

J 

10 

K 

10 

1 

10 

M 

10 

N 

10 

R 

r 

r 

r 

D 

11 

F 

11 

F 

11 

G 

11 

H 

11 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

v 

r 

^? 

D 

V 

F 

1/' 

^ 

V 

fi 

1^ 

H 

^? 

I 

\7 

,1 

■f 

< 

■? 

1 

\? 

M 

r? 

N 

V? 

R 

n 

r 

n 

D 

H 

F 

•M 

F 

H 

fi 

n 

H 

i< 

1 

n 

.1 

H 

K 

n 

1 

n 

H 

n 

N 

H 

R 

H 

r 

14 

D 

U 

F 

14 

F 

14 

fi 

14 

H 

14 

1 

14 

J 

14 

K 

14 

L 

14 

VRQ8 


G 
H 
I 
J  ., 


N 

B  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
I  16 
J  16 
K  16 
L  16 
M  16 
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1173 
1179 
1180 
1181 
1182 
r83 
118A 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 


003346 
003350 
003354 
003356 
003362 
003364 
003366 
003372 
003376 
003^02 
003404 
003406 
003410 
003412 
003414 
003420 
003422 


010146 

112314 

122724  000052 

001374 

010400 

112740  000060 

016701  OOOOOOG 


.S8TTL  REP7A  -  REPLACE  TASK  NAME  AND  CHANNEL  NUMBER 

'rEP7A  -  REPLACE  REQUESTING  TASK'S  NAME  AND  CHANNEL  NUMBER 

INPUTS: 

$$TASK=REQUESTING  TASK'S  NAME 
R1=MAPPING  TABLE  (WITHIN  PDV)  ADDRESS 
R3=F0RMAT  STRING  ADDRESS 
R4=ERR0fi  MESSAGE  BUFFER  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESTR0«ED 
R3,R4=UPDATED 


REP7A: 
10$: 


0627C1 
162601 
001406 
005401 
006201 
005002 

010004 


000002G 


20$: 


MOV 

CALL 

MOVB 

CMPB 

BNE 

MOV 

MOVB 

MOV 

ADD 

SUB 

BEO 

NEC 

ASR 

CLR 

CALL 

MOV 

RETURN 


R1,-(SP) 

REP7 

(R3)+,(R^) 

#'*,(R4)+ 

10$ 

R4,R0 

#'0,-(R0) 

$PDVA,R1 

#Z.«AP+2 

(SP)+,R1 

20$ 

Rl 

R1 

R2 

$C80MG 

R0,R4 


Rl 


SAVE  CHANNEL  TABLE  POINTER 
REPLACE  REQUESTING  TASK'S  NAME 
LOOK  FOR  THE  SECOND  ASTERISK 


COPV  BUFFER  ADDRESS 

SKIP  THE  ASTERISK 

GET  PDV  ADDRESS 

POINT  AT  MAPPING  TABLE 

LESS  INPUT  VALUE 

IF  EQ,  NO  WORK  TO  DO 

CONVERT  CACK  TO  A  POSITIVE  NUMBER 

AND  TO  A  BYTE  INDEX 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  OCTAL 

SET  NEW  BUFFER  ADDRESS 


C  1 
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VRQB  CREATED  BY     MACRO     ON  30-JUL-85  AT   10:55 

SYMBOL    CROSS   RE'""RENCE 


SYMBOL      VALUE 


$C5TA 

tDDMPV 

$DEA16 

SDEVHD 

SDLCPV 

SERROI 

$ERR02 

$ERR03 

SERROA 

$ERR05 

$ERR06 

tERRZB 

SERRZP 

SERRZR 

SERRZI 

$ERRZ3 

SERRZA 

$ERRZ5 

$ERRZ6 

$FRRZ7 

SERRZ8 

1ERR86 

$ERR87 

$ERR88 

$ERR90 

tERR91 

$ERR92 

$ERR93 

SERR9A 

$ERR95 

$ERR96 

$ERR97 

$ERR98 

$ERR99 

SFLAGS 


r  ****** 

=  ****** 

=  ****** 

=  ****** 

002056  R 
00207A  R 
002134  R 
002210  R 
002252  R 
002320  R 
001700 
001734 
001772 
OOU10 
00U40 
001A66  ,. 
001530  R 


SFMASK 

SFPDV 

SFSLT 

SFUNC 

SGETRV 

SLLCTA 

SWISS 

SMXVCT 

SNAMt 

SNLRQB 

SOP  TON 

SPDVA 

SPDVNM 

SPDVTA 

tPSIPT 


001550 
001604 
001644 
001350 
001302 


001220  R 


001164 

001126 

001064 

001020 

000764 

000730 

000652 

000614 

000540  R 

000506  R 


****** 


GX 

,.*.«.  GX 
002776  R 
003054  RG 
******  GX 
GX 
GX 
GX 

*.,*.*  GX 

.*«*.*  GX 

000000  RG 

»*♦*»*  GX 

**«»*.  GX 

.»«.**  GX 

*♦•♦*♦  GX 

.».♦*.  GX 


REFERENCES 

34-1263 
»19-596 

35-1311 

24-857 
•19-634 
*8-232 
#8-233 
#8-234 
#8-235 
#8-236 
#8-237 
#8-229 
#8-230 
#8-231 
#8-222 
#8-223 
#8-224 
#8-225 
#8-226 
#8-227 
#8-228 
#8-221 
#8-220 
#8-219 
#8-218 
#8-217 
#8-216 
#8-215 
#8-214 
#8-213 
#8-212 
#8-211 
#8-210 
#8-20" 

9-279 

24-807 

11-319 

14-399 

19-618 
*9-286 

24-863 

14-414 
♦9-281 
♦20-701 

20-691 
♦15-469 
#9-267 

14-396 
♦15-472 

28-1049 

19-626 

13-373 


19-631 


14-447 
14-448 
14-449 
14-450 
14-451 
13-379 
22-751 
20-714 
24-805 

24-850 
24-877 
24-903 
25-934 

26-975 

19-643 

29-1123 

19-642 

19-641 

11-323 

20-713 

20-712 

20-711 

19-640 

15-483 

15-482 

12-360 

9-294 

♦9-279 
24-889 
11-337 
15-470 

#29-1081 

24-8^0 

♦16-502 
♦22-747 

♦19-591 

14-404 
17-539 

28-1048 


B     2 
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CREF       04.00 


VSTf 

Tab 


23-776 


24-820 


♦9-280 
2?'-1023 
12-354 
19-592 


26-969 

♦16-508 
♦22-756 

24-803 

18-565 
24-796 

28-1061 


♦11-318 
29-1107 
26-948 
26-957 


26-996 
♦16-51'. 


♦15-476 


#28-1046 


26-1003 
♦17-538 


16-5- G 


35-1303 
♦20-668 


»19-600         ^19-604  ^19-608 


35-1313 
♦20-678         •20-684         ^20-693 


24-811 

22-748         *22-757  23-771 

24-856  32-1199 

34-1259 


VRQB 
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>.'ST 


VSTB   -   VI^JP   COMMAND   PROCESSING 
Table  ot  contei.ts 
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VSTI 
SHOI 


s- 

S«S 

(S- 

lo-; 

/- 

'?? 

8- 

?i,i. 

9- 

w 

10- 

sv 

11- 

ftH 

V- 

/// 

1-1- 

9Sft 

1A- 

lASlS 

IS- 

ISAr- 

\!- 

1SH9 

IH- 

161)^ 

IV- 

1628 

MACROS  AND  SYMBOLS  AND  INITIALIZATION 

KEYWORDS 

COMMANDS 

CLEAR  COMMAND 

SET  COMMAND 

SHOW  COMMAND 

ENTITY  ARGUMENT  SUBEXPRESSIONS 

ENTITY  IDENTIFICATION  SUBEXPRESSIONS 

ENTITY  OPTION  SUBEXPRESSIONS 

OPTION  KEYWORD  AND  VALUE  SUBEXPRESSIONS 

UTILITY  SUBEXPRESSIONS 

INTERNAL  ACTION  MODULES 

STMAT3,  STMAT5  -  SET  MINIMUM  CHARACTER  MATCH 

PEMSTA  -  ACTION  ROUTINE  FOR  THE  PROTOCOL  EMULATOR  STATE 


C     3 
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VST 

FMT 


VSTB  -  VNP  COMMAND  PROCESSING 

SHOW  COMMAND 

57A 

000000 

575 

000000 

576 

000000 

577 

578 

579 

580 

000000 

581 

000000 

582 

000000 

583 

ocoooo 

58A 

585 

586 

587 

000000 

588 

000000 

589 

000000 

590 

000000 

591 

592 

593 

594 

000000 

595 

000000 

596 

000000 

597 

000000 

598 

599 

600 

601 

000000 

602 

000000 

6C3 

000000 

604 

000000 

605 

000000 

606 

607 

608 

609 

000000 

610 

000000 

611 

000000 

612 

000000 

B  A 
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VST 
ENT 


TRANS  SLAMDA, 
TRANS  SLAMDA, 
TRANS  SLAMDA, 

SHOXSV, 
SHOXSV, 
DONE 

SIFX5S 
SIFX9S 

•       SHOW  LOGGING  OPTIONS 

STATES  SHOLOG 
TRANS   ISHOTYP, 
TRANS   lOPSJNK, 
TRANS  SLAMDA, 

SHOLOG 

SHOLOG, 

DONE 

' 

;      SHOW  ALIAS  OPTIONS 

STATES  SHOALI 
IRANS   ISHOTYP, 
TRANS   lOPSCO, 
TRANS  SLAMDA, 

SHOALI 

SHOALI, 

DONE 

' 

;      SHOW  MODULE  X25-ACCESS 

OPTIONS 

STATES  SHOXAC 
TRANS   ISHOTYP, 
TRANS   lOPADS, 
TRANS  SLAMDA, 

shoxa: 

SHOXAC 
DONE 

;      SHOW  MODULE  X25-PROTOCOL  OPTIONS 

STATES  SHOXPR 
TRANS   ISHOTYP, 
TRANS   lOPPDT, 
TRANS   lOPGRO, 
TRANS  SLAMDA, 

SHOXPR 
SHOXPR 
SHOXPR 
DONE 

;      SHOW  MODULE  X2n-SEfii/ER 

OPTIONS 

STATES  SHOXSV 
TRANS   ISHOTYP, 
TRANS   : OPDST, 
TRANS  SLAMDA, 

SHOXSV 
SHOXSV 
DONE 

OPSSIN, 


OPSSCO, 


SOPTON 


SOPTON 


VSTB  -  VNP  COMMAND  PROCESSING  S 
FKiTTTv  IRr.iiMFMT  '^1  IRPyPBP  <;■; '  ONS 


MACRO  VO5.03b  Saturday  29-Jur,-85 


32:59 
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VSl 

CWl 


VSTB   -  VNP   COMMAND  PROCESSING 
ENTITV   OPTION   SUBEXPRESSIONS 

12A2 
1243 
12AA  O'^OOOO 


00000 
"^00000 
OLOOOO 


1245 
1"  ^ 

12A8 
12A9 
1250 
i?51  000000 

1252  000000 

1253  000 jOO 
125A  000000 
1255 

1255 
1257 
125E  000000 

1259  000000 

1260  000000 

1261  000000 

1262  000000 

1263  COOOOO 
126A  000000 

1265  000000 

1266  COOOOO 

1267  000000 

1268  000000 

1269  000000 

1270  000000 


1271 
1272 


000000 
000000 

1273  000000 

1274  000000 
1275 

1276 
1277 
1278 
1279 

1280  000000 

1281  000000 
•282  000000 

1283  000000 

1284  000000 
1285 

1286 
1287 
1288 
1289 

1290  000000 

1291  000000 
1292 

1295 
1294 

1295  000000 

1296  000000 

1297  000000 
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PRIORITY 

STAGES  OPPRI 

TRANS  8KSPRI 

STATES  ,8PSP' 

TRANS  SDNUMB, 

RECEIVE  PASSWORD 

STATES  OPRPAS 

TRANS  IKWRPAS 

STATES  ,8PSTPAS 

TRANS  SSTRNG, 


PE 


SEXIT, 


SEXIT, 


SPRI, 


SSTRPA 


LS.OPT, 


RQBST 


;  SCOPE 

STATES 

OPSCO 

TRANS 

8KSSC0, 

0PSC01 

TRANS 

SLAMDA, 

0PSC02 

STATES 

0PSC01,SPSSCO 

TRANS 

SLAMDA 

STATES 

0PSC02 

TRANS 

8KSGL0, 

SEXIT 

TRANS 

5KSTER 

STATES 

,&PSTER 

TRANS 

SALPHA, 

, 

SSC0P1 

STATES 

TRANS 

SALPHA, 

SSC0P2 

STATES 

TRAMS 

SNUMBR, 

, 

SSC0P3 

STATES 

TRANS 

<':>, 

SEXIT, 

SSCOND 

TRANS 

SLAMDA, 

SEXIT, 

SSCOND 

;  SERVICE 

STATES 

OPSER 

TRANS 

&KSSER 

STA^-ES 

TRANS 

&KSENA, 

SEXIT 

TRANS 

£KSDIS, 

SEXIT, 

V 

VF.SED,   SVFLAG 


SINI^  NAME  (FOR  CLEAR  LOGGING) 

STATES  OPCSNM 
TRANS  8KSNAM,        SEXIT 

SIN^  NAME  (FOR  SET  LOGGING) 

STATES  OPSNAM 
TRANS   SKSiNAM 
STATES   ,8.P$SNAM 
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1675 
1676 
1677 
1b78 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
168S 


0001 34 
000134 
000136 
000140 
000144 
000146 
000152 
000154 
C0C160 


005703 
003406 
121427 
001405 
121427 
001402 
062716 


000001 


OOOO'.O 
000011 
000002 


;  CHECK  AHEAD 

IN  INPUT  LINE  FOR  BLANK  TO 

SIR. 8: 

TST 

R3 

3LE 

10$ 

CMPB 

(R4),#<'  > 

BEQ 

20$ 

CMP8 

(R4),#TAB 

BEQ 

20$ 

10$:     ADD 

#2,(SP; 

20$:     RETUh^ 

I 

STRING 


CHECK  INPUT  LENGTH 

BR  If  INPUT  LENGTH  <=  0 

COMPARE  NEXT  CHARACTER  TO  ASCII  BLANK 

BR  IF  CHARACTER  =  ASCII  BLANK 

COMPARE  NEXT  CHARACTER  TO  ASCII  TAB 

BR  IF  CHARACTER  =  ASCII  TAB 

REJECT  TRANSITION 


.END 
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CREF       OA.OO 


MACF.O  NAME 


TRANS 


REFERENCES 

#12-932 
*1 3-980 
#13-1026 
#13-1060 
#13-1091 
#13-1132 
#13-1166 
#13-1197 
#13-1232 
#13-1266 
#13-1305 
#13-1342 
#13-1383 
#13-1418 
K-U67 
#14-1506 
#14-1539 
#5-61 
#8-256 
#8-268 
#8-299 
#8-324 
#8-346 
#9-369 
#9-393 
#9-409 
#9-432 
#9-450 
#a-460 
#9-488 
#9-508 
#10-536 
#10-546 
#10-556 
#10-574 
#10-596 
#11-628 
#11-663 
#11-607 
#11-732 
#•'1-763 
#12-803 
#12-818 
#12-840 
#12-859 
#12-881 
#12-900 
#12-922 
#12-954 
#13-994 
#13-1020 
#13-1050 


#12-934 
#13-985 
#13-1029 
#13-1065 
#13-1098 
#13-1138 
#13-1168 
#13-1199 
#13-1237 
#13-1268 
#13-1308 
#13-1350 
#13-1386 
#13-1423 
#14-1469 
#14-1508 
15-1556 
#7-232 
#8-258 
#8-269 
#8-305 
#8-325 
#8-347 
#9-370 
#9-394 
#9-414 
#9-433 
#9-451 
#9-461 
#9-489 
#9-513 
#10-537 
#10-547 
#10-557 
#10-575 
#10-597 
#11-633 
#11-668 
#11-699 
#11-734 
#11-768 
#12-805 
#12-819 
#12-84, 
#12-861 
#12-883 
#12-903 
#12-924 
#13-969 
#13-996 
#13-102' 
#13-1051 


#12-937 

#13-987 

#13-1031 

#13-1068 

#13-1100 

#13-1140 

#13-1173 

#13-1204 

#13-1239 

#13-1270 

#13-1316 

#13-1352 

#13-1389 

#13-1425 

#14-1474 

#14-1511 

#15-1564 

#7-233 

#8-259 

#8-276 

#8-308 

#8-326 

#9-359 

#9-371 

#9-395 

#9-415 

#9-434 

#9-452 

#9-462 

#9-490 

#9-514 

#10-538 

#10-548 

#10-562 

#10-576 

#10-602 

#11-635 

#11-670 

#11-704 

#11-739 

#11-770 

#12-806 

#12-820 

#12-843 

#12-862 

#12-884 

#12-904 

#12-926 

#13-970 

#13-1001 

#13-1028 

#13-1056 


#12-943 

#13-993 

#13-1036 

#13-1070 

#13-1105 

#13-1146 

#13-1175 

#13-1206 

#13-1244 

#13-1272 

#13-1318 

#13-1354 

#13-1394 

#13-1431 

#14-1479 

#14-1513 

#15-1567 

#7-234 

#8-260 

#8-277 

#8-309 

#8-327 

#9-361 

#9-372 

#9-396 

#9-416 

#9-435 

#9-453 

#9-467 

#9-495 

#9-515 

#10-539 

#10-549 

#10-563 

#10-581 

#10-603 

#11-640 

#11-671 

#11-706 

#n-7'.1 

#11-775 

#12-808 

#12-825 

#12-845 

#12-864 

#12-885 

#12-905 

#12-933 

#13-972 

#13-1003 

#13-1030 

#13-1057 


#12-948 

#13-995 

#13-1039 

#13-1075 

#13-1107 

#13-1148 

#13-1177 

#13-1211 

#13-1246 

#13-1280 

#13-1325 

#13-1361 

#13-1399 

#13-1433 

#14-1484 

#14-1517 

#15-1572 

#7-235 

■i8-261 

#8-282 

#8-310 

#8-328 

#9-362 

#9-377 

#9-397 

#9-417 

#9-436 

#9-454 

#9-472 

#9-496 

#10-522 

#10-540 

#10-550 

#10-564 

#10-582 

#10-604 

#11-642 

#11-676 

#11-711 

#11-746 

#12-789 

#12-809 

#12-830 

#12-846 

#12-865 

#12-888 

#12-908 

#12-935 

#13-974 

#13-1010 

#13-1032 

#13-1059 


#12-953 

#13-1000 

#13-1041 

#13-1077 

#13-1113 

#13-1150 

#13-1182 

#13-1213 

#13-1251 

#13-1282 

#13-1327 

#13-1363 

#13-1401 

#13-1438 

#14-1486 

#14-1519 

#15-1574 

#7-236 

#8-263 

#8-283 

#8-311 

#8-329 

#9-363 

#9-378 

#9-398 

#9-418 

#9-437 

#9-455 

#9-473 

#9-499 

#10-52^ 

#10-541 

#10-551 

#10-565 

#10-583 

#10-605 

#11-647 

#11-678 

#11-713 

#11-748 

#12-791 

#12-810 

#12-831 

#12-848 

#12-870 

#12-889 

#12-915 

#12-936 

#13-979 

#13-1011 

#13-1037 

#13-1061 


13-968 
#13-1002 
#13-1047 
#13-1082 
#13-1115 
#13-1155 
#13-1184 
#13-1216 
#13-1253 
#13-1290 
#13-1329 
#13-1365 
#13-1406 
#13-1440 
#14-1492 
#14-1524 
#15-1576 
#7-237 
#8-264 
#8-284 
#8-312 
#8-334 
#9-364 
#9-381 
#9-399 
#9-419 
#9-438 
#9-456 
#9-478 
#9-500 
#10-526 
#10-542 
#10-552 
#10-570 
#10-588 
#10-610 
#11-649 
#11-683 
#11-718 
#11-753 
#12-793 
#12-812 
#12-833 
#12-849 
#12-871 
#12-891 
#12-917 
#12-938 
#13-981 
#13-1012 
#13-1038 
#13-1066 


#13-971 

#13-1009 

#13-1049 

#13-1084 

#13-1120 

#13-1157 

#13-1186 

#13-1223 

#13-1258 

#13-1295 

#13-1331 

#13-1372 

#13-1408 

#13-1447 

#14-1494 

#14-1530 

#15-1579 

#7-242 

#8-265 

#8-290 

#8-313 

#8-335 

#9-366 

#9-384 

#9-400 

#9-',20 

#9-439 

#9-457 

#9-481 

#9-505 

#10-527 

#10-543 

#10-553 

#10-571 

#10-589 

#10-611 

#11-654 

#11-685 

#11-720 

#11-75<. 

#12-794 

#12-813 

#12-835 

#12-854 

#12-872 

#12-892 

#12-918 

#12-939 

#13-986 

#13-1013 

#13-1040 

#13-1067 


#13-973 

#13-1015 

#13-1055 

#13-1086 

#13-1124 

#13-1159 

#13-1189 

#13-1225 

#13-1261 

#13-1297 

#13-1338 

#13-1374 

#13-1413 

#13-1449 

#14-1502 

#14-1532 

#16-1587 

#8-254 

#8-266 

#8-291 

#8-314 

#8-340 

#9-367 

#9-385 

#9-40i 

#9-421 

#9-444 

#9-458 

#9-482 

#9-506 

#10-530 

#10-544 

#10-554 

#10-572 

#10-590 

#10-612 

#11-656 

#11-690 

#11-725 

#11-756 

#12-796 

#12-815 

#12-836 

#12-856 

#12-877 

#12-897 

#12-920 

#12-944 

#13-988 

#13-1016 

#13-1042 

#13-1069 


#13-978 

#13-1019 

#13-1058 

#13-1089 

#13-1130 

#13-1164 

#13-1191 

#13-1230 

#13-1263 

#13-1302 

#13-1340 

#13-1376 

#13-1416 

#13-1452 

#14-1504 

#14-1534 

#8-255 

#8-267 

#8-298 

#8-319 

#8-341 

#9-368 

#9-391 

#9-408 

#9-427 

#9-449 

#9-459 

#9-487 

#9-507 

#10-531 

#10-545 

#10-555 

#10-573 

#10-595 

#11-626 

#11-661 

#11-692 

#11-727 

#11-761 

#12-801 

#12-816 

#12-838 

#12-858 

#12-878 

#12-8<'9 

#12-92  I 

#12-949 

#13-989 

#13-1017 

#13-1048 

#13-10^1 


;'STE 
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\,SYM 


CREATED  BY     MACRO     ON  29-JUN-85   AT   03:07 


SYMBOL   CROSS   REfERENCE 
SYMBOL      VALUE 


L.NSTA 
L.QUNR 
L.UNT 
MPAR 
MPCSR 
M$$i1GE 
PIRG 
PMODE 
PRO 
PRT 
PR2 
PR3 
PRA 
PR5 
PR6 
PR7 
PS 

RSSMPl 
R$$11D 
R$$11M 
R$$11S 
SF.ACT 
SF.EMA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 
SF.SER 
SF.SVC 
SF.UNL 
SWR 
S.COST 
S.FLG 
S.LEN 
S.NM5T 
S.CWNR 
TPS 
UBMPR 
UISARO 
UISARl 
X$$MCB 
ZF.COU 
7F.DDM 
7F.PIA 
ZF.DLt 
ZF.DVP 
ZF.IM 
ZF.KMX 
LLC 
LMC 


ZF 

ZF._  . 
ZF.MAfJ 
ZF.MFL 
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CREF       0^.00 


REFERENCES 


OOOOK 

G 

#5-65 

000021 

G 

#5-65 

000013 

r, 

#5-65 

172.00 

G 

#5-63 

177746 

G 

#5-63 

000000 

5-63 

177772 

G 

#5-63 

030000 

G 

#5-63 

000000 

G 

#5-63 

OOOOsO 

G 

#5-63 

000100 

G 

#5-63 

ooouo 

G 

#5-63 

000200 

G 

#5-63 

000240 

G 

#5-63 

000300 

G 

#5-63 

000340 

G 

#5-63 

177776 

G 

#5-63 

******* 

5-63 

****** 

5-63 

000000 

5-64 

****** 

5-64 

000200 

G 

#5-65 

000100 

G 

#5-65 

000004 

G 

#5-65 

000040 

G 

#5-65 

000020 

r. 

#5-65 

000010 

0 

#5-65 

000001 

G 

#5-65 

000002 

G 

#5-65 

000040 

G 

#■^-65 

177570 

G 

#5-63 

000001 

G 

#5-65 

000000 

U 

#5-65 

000004 

G 

#5-65 

000002 

G 

#5-65 

000003 

G 

#5-65 

177564 

G 

#5-63 

1 70200 

G 

#5-63 

1  776-^0 

li 

#5-63 

177642 

G 

#5-63 

****** 

5-64 

001000 

G 

#5-64 

000001 

G 

#5-64 

004000 

G 

#5-64 

000002 

G 

#5-64 

100000 

G 

#5-64 

04COOO 

G 

#5-64 

000020 

G 

#5-64 

000004 

G 

#5-64 

000100 

G 

#5-64 

020000 

G 

#5-64 

000010 

G 

#5-64 

5-63 
5-64 


5-63 


5-64 


VSYM 
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VT-IP  -  VNP  TEMPLATE  PROCESSING 
IMGRES  -  REWRITE  IMAGE 


285 

JS'. 
285 
286 
287 
288 
289 
290 
?91 
292 
295 
29A 
295 
296 

297  0002''-.0  005767 

298  0002AA  100423 

299  0002';6  005767 
500  000252  00U20 
301 

302  00025A  016777 

303  000262  001AU 
50A  000264  ■,.05077 
505  000270 

306  000276 

507 

508  0005  1 0 

309  0003U 
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.SBTTL   IMGRES  -  REWRiTE  IMAGE 

IMGRES  -  REWRITE  IMAGES  TO  SYSTEM  IMAGE  FILE 


INPUTS: 

SNTLUB  -  IMAGE  Of  UNLOAD  BLOCK 

SNTLLB  -  IMAGE  OF  LIBRARY  BLOCK 

$L8B  -  LIBRARY  BLOCK  BIAS 

STMPBF  -  LINE  TABLE  IMAGE 

OUTPUTS: 

BUFFERS  WRITTEN  BACK  TO  SYSTEM  IMAGE 


V 
S' 

S' 
Bt 


000000' 
OOOOU' 

00005A'  OOOOOOG 
OOOOOOG 


IMGRES 


50$: 


TST 
BMI 
TST 
BEQ 

MOV 

BEQ 

CLR 

SWTCHO 

PUTAD 

CALL 
RETURN 


SFLAGI 
50$ 

$SADDR 
30$ 

$U8IAS,a$ADRX 

30$ 

a$ADRZ 

#$NTLUB 

,#64. 

BUFCK 


ANY  ERRORS  ? 

NO 

ANY  ALLOCATIONS  ? 

NO 

SET  UP  ADDRESS 

NO  BLOCK  TO  REWRITE 

POINT  AT  UNLOAD  SLOCK  IMAGE 
REWRITE  UNLOAD  BLOCK 

REWRITE  LINE  TABLE  BUFFER 
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SYMBOL    CROSS   REFERENCE 
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CREf       04.00 


SYMBOL 

VALUE 

REFERENCES 

BUfCK 

000560 

R 

9-308 

#10-380 

F=FX 

000713 

R 

#7-187 

18-619 

Ef-RBUF 

O00'^65 

R 

#7-181 

18-622 

1 

ERRMSG 

000560 

R 

#7-179 

18-637 

ERRSIO 

-       *****([ 

GX 

11-436 

ERRSn 

~      ****** 

GX 

11-437 

ERR$12 

-      ****** 

GX 

11-438 

ERR$9 

-      ****** 

GX 

8-261 

ERRl 

001050 

R 

10-393 

#10-401 

FATAL 

=      ****** 

GX 

10-393 

FL.DDM 

r     ****** 

GX 

15-538 

FL.DLC 

=     ****** 

GX 

16-555 

FL.ECH 

-     ****** 

GX 

8-253 

FL.LLC 

=     ****** 

GX 

18-615 

FMT2 

^01154 

R 

7-194 

7-195 

7-196 

7-197 

7-198 

#7-202 

FM.? 

-   JOOOOO 

#7-194 

#7-195 

#7-196 

#7-197 

#7-198 

F.NRBD 

-      ^  ***** 

GX 

*8-239 

*9-3C5 

•10-341 

•10-355 

•10-373 

F.RSIZ 

=      ****** 

GX 

*9-306 

F^'.BBO 

=  000001 

G 

#6-76 

13-490 

13-495 

FI.ERR 

=   100000 

G 

#6-89 

18-618 

FLINT 

=  000002 

G 

#6-77 

F1.IN1 

^   OOOOOA 

& 

#6-78 

F1.IN2 

=  000010 

G 

#6-79 

F1.IN3 

=  000020 

G 

#6-80 

F1.LF! 

^  000040 

G 

#6-81 

10-332 

Fl.LFL 

=  :  001 00 

G 

#6-82 

F1.MPL 

=   C00200 

G 

#6-83 

10-332 

Fl  .MPT 

=  000400 

G 

#6-84 

Fl.MXT 

=  001000 

G 

#6-85 

FLSTE 

=  002000 

G 

#6-86 

F  1  . UMR 

■-    004000 

G 

#6-87 

Fl.VSE 

=  010000 

G 

#6-83 

F2.BYT 

=  000001 

G 

#6-97 

F2.END 

=   000002 

G 

#6-98 

8-262 

F2.nL 

:=   000004 

G 

#6-99 

F2.LBR 

=  000010 

G 

#6-100 

F2.NEG 

=  000020 

G 

#6-101 

F2.SIJB 

-  000040 

G 

#6-102 

IE. EOF 

r     ****** 

GX 

11-432 

lE.RBG 

-    ****** 

GX 

11-434 

IMGRES 

000240 

R 

8-237 

#9-297 

SYSFDB 

-     +***** 

GX 

♦8-239 

«9-i05 

•9-306 

•10-341 

•10-355 

•10-373 

SSiBAS 

r     ****** 

7-194 
7-198 

7-194 

7-195 

7-195 

7-196 

7-196 

TMPBF 

OOC352 

R 

#6-169 

11-418 

11-424 

12-451 

T'lPSZ 

000556 

R 

#6-170 

»11-423 

12-452 

TM.RD 

001056 

R 

8-251 

#11-418 

'■.'PF  X 

000676 

R 

#7--;  86 

18-610 

SABFI 

r     ****** 

GX 

8-280 

SADDR 

000020 

RG 

"('-ill 

SADRX 

-      ♦■***♦* 

GX 

9-302 

SADRZ 

=      ****** 

GX 

9-304 

VI 

s> 

AJ 
A1 
A1 
A1 
CI 
CI 
CI 
D1 
D1 
D! 
D1 
Di 


7-197 


7-197 


7-198 


VTMP 
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Symbol  table 
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A$$CH<= 

A$$CPS= 

A$$PRI= 

AStTRP= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

D$tBUG= 

D$$IS<= 

D$$L11= 

DS$YNC= 

D$$YNR= 

E$tXPR= 

FL.CHA= 

FL.DDM= 

FL  LLC= 

FMTO 

FMT3 

FM.O  = 

FM.3  = 

FNDADD 

FS$LVL= 

F.RSIZ= 


000000 

000000 

000000 

000000 

000000 

OOOAOO 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

,»«»»«  GX 

»««»*«  (3x 

*»**♦♦  GX 

000072R 

000073R 

000000 

000000 

000320R 

000001 

.■.♦♦<♦  GX 


F1.UMR= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$R[)N= 
K$$CNT= 
<$$CSR= 
K$$LDC= 
K$$TPS= 
K.CSR 
K.PRI 
K.VCT 
LDSLP  = 
L$$ASG= 
002  L$$DRV= 
002  L$$P11= 
L$$11R= 
L.DDS  = 
L.KRBA= 
M$$CRB= 
M$$CRX= 


•*♦♦**  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000002 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

******  GX 

******  GX 

000124 
000000 


M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

NS$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RTSPC 

R$$DER= 

R$$Kn  = 

R$$SNO= 

R$$11M= 

SYSFDB= 

S$$URG= 

S$$VSZ= 


000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

000266R 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 


TMPEXT 

OOOOOOR 

002  $LEFT  = 

****** 

GX 

T$$KMG= 

000000 

$MXADD= 

***  *** 

GX 

T$$MIN= 

000000 

$MXSIZ= 

****** 

GX 

V$$CTR= 

001000 

$NALL  = 

****** 

GX 

X$$D8T= 

000000 

$NAME  = 

****** 

GX 

ZF.PSE= 

****** 

fix 

$NVECT= 

****** 

GX 

Z.DAT  = 

****** 

GX 

$OFF  = 

****** 

GX 

Z.FLG  ^ 

****** 

GX 

$PDVA  = 

**♦«♦* 

GX 

$ADDR  = 

****** 

GX 

$PRV.N= 

****** 

GX 

SAZFS  = 

****** 

GX 

$PTR  = 

****** 

GX 

$SFR  = 

****** 

GX 

$RADDR= 

****** 

GX 

$8IN  = 

****** 

GX 

«;S]ZE  ^ 

****** 

GX 

$CL10S= 

****** 

GX 

.SLTA  = 

****  ;* 

GX 

$CLQUE= 

****** 

GX 

$SZPTR= 

****** 

GX 

$DFN  = 

****** 

GX 

SIM. IN 

000000  !G 

SERRUZ 

000042R 

002  $TWARN= 

****** 

GX 

$ERR8 

000004R 

002  $TWE   ^• 

****** 

GX 

$FLAGS= 

****** 

GX 

$XBUF2= 

****** 

GX 

$FLAG1= 

****** 

GX 

$XLEN2= 

****** 

GX 

$FNOUT= 

****** 

GX 

$$CSR  = 

****** 

GX 

$GETRV= 

****** 

GX 

$$VECT= 

****** 

GX 

$IC8LN= 

****** 

GX 

.MGMGE= 

****** 

GX 

.  ABS.  000004 
000444 
DATA    000120 
Errors  detected: 


000 
001 
002 

0 


(RU,I,G8L,ABS,0VR) 
(RU,1,LCL,REL,C0M) 
(RW,D,LCL,REL,CON) 


*♦♦  Assembler  statistics 


0 

0 

10375   Words      (   41   Pages) 

14440  Words      (    55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  cere  poo'  : 
Operating      system: 

SY?yfMPlNlv2;[132,134]VTMP!N/CR/-SP=Sy:ri,l]RSXMCM.SML/ML,[130,110]NETLI8/ML,[130,10]RSXMCM/PA:l,[132,10]VTMPIM 


VTMPIN 
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VIST   -  VNP    TESTING  ROUTINES 
$\/TST   -  VNP   TESTING  ROUTINES 
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3A2  002212 

001460 

BEQ 

50$ 

3A3  0022K 

012705 

OOOOOOG 

MOV 

#$6FR,R5 

34A  002220 

012704 

000012 

10$: 

MOV 

*10.,R4 

345  00222A 

20$: 

TYPEN 

(R5)t,N0,0W 

3A6  002262 

TYPES 

<  >,N0 

3A7  002312 

005303 

DEC 

R3 

348  002314 

001417 

BEQ 

50$ 

349  002316 

005304 

DEC 

R4 

350  002320 

001341 

BNE 

20$ 

351  002322 

TYPES 

*NEWLIN,N0,*2 

352  002352 

000722 

BR 

10$ 

353  002354 

50$: 

TYPES 

#NUL,CR,*1 

354  002404 

RETURN 

355 
356 
357 
358 
359  002406 

.DSA8L 

LS8 

;  MODIFY  BUFFER 

057 

040 

)00  MODPMT: 

.ASCI7 

11    X 

360 
361 
362  002412 

.EVEN 

MODIFY: 

TYPES 

<TYPE  NUMBER  TO  MODIFY,  C 

363  002442 

016703 

OOOOOOG 

MOV 

$RSI7E,R3 

364  002446 

062703 

000001 

ADD 

#1,R3 

365  002452 

042703 

000001 

SIC 

*1,R3 

366  002456 

006203 

ASR 

R3 

367  002460 

TYPEN 

R3,LF 

368  002516 

TYPES 

<  WORDS  IN  BUFFER>,CR 

369  002546 

012705 

OOOOOOG 

MOV 

*$SFR,R5 

370  002552 

XIO: 

TYPEN 

(R5)t,LF,0W 

371  002610 

012700 

002406' 

MOV 

#MODPMT,RO 

372  002614 

CALL 

PROMPT 

373  002620 

103432 

BCS 

X50 

374  002622 

016701 

OOOOOOG 

MOV 

$CLI0S,R1 

375  002626 

005761 

000002 

TST 

2(R1' 

376  002632 

001423 

BEQ 

X30 

377  002634 

CALL 

$C0T8 

378  002640 

005702 

TST 

R2 

379  002642 

001003 

BNE 

X20 

380  002644 

010165 

177776 

MOV 

R1,-2(R5) 
X36 

381  002650 

000414 

BR 

382  002652 

X20: 

TYPES 

<ULEGAL  RESPONSE,  VALUE 

383  002702 

005303 

X30: 

DEC 

R3 

384  002704 

001322 

BNE 

XIO 

385  002706 

X50: 

RETURN 

386 

387 
388 
389  002710 

■  ALLOCATE  DSR 

ALL16: 

GETNUM 

<NUM8ER  OF  BYTE5>,R1 ,X107 

390  002732 

CALL 

$ALL16 

391  002736 

103015 

BCC 

X106 

392  002740 

TYPES 

<C-8IT  SET>,LFCR 

393  002770 

000470 

BR 

X107 

394  002772 

010146 

X106: 

MOV 

R1,-(SP) 

395  002774 

010046 

MOV 

RO,-(SP) 

396  002776 

TYPES 

<ADDRESS  OF  NODE  >,LF 

397  003026 

TYPEN 

(SP)t,CR,OW 

398  003064 

TYPEN 

(SP)+,LF,DW 

IF  EQ,  NO 

POINT  AT  BUFFER 

PRINT  10.  WORDS  ON  A  LINE 

PRINT  NEXT  NUMBER 

INSERT  A  SPACE 

MORE  IN  BUFFER  ? 

IF  EQ,  NO 

ROOM  LEFT  ON  LINE  ? 

IF  NE,  YES 

cLSE,  PRINT  NEW  LINE 

START  NEW  LINE 

INSERT  CARRIAGE  RETURN 


CN  TO  LEAVE  UNCHANGED>,LF CR 
GET  SIZE  OF  BUFFER  IN  BYTES 
ROUND  TO  NEXT  WORD 

CONVERT  BYTES  TO  WORDS 
PRINT  SIZE  OF  BUFFER 

POINT  AT  BUFFER 
PRINT  NEXT  NUMBER 
POINT  TO  NEW  PROMPT  STRING 
GET  NEW  VALUE 
IF  CS,  EOF 

POINT  TO  I/O  STATUS  BLOCK 
CARRIAGE  RETURN  ? 
IF  EQ,  YES 

CONVERT  NUMBER  AS  OCTAL 
VALID  INPUT  ? 
IF  NE,  NO 
STORE  NEW  NUMBER 
SKIP  TO  NEXT  WORD 
LEFT  UNCHANGED>,L.-CR 
ANY  MORE  IN  BUFFER  ? 
IF  NE,  YES 
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KA 

U5 

K6 

1A7 

U8 

U9 

150 

151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 


CMPOI] 

$ASUM1  -  ASSIGN  UNIBUS  MAPPING 

REGISTERS                          '. 

CMPOU 
[MPOl] 
[MP01] 

INPUTS  : 

.RBLCK 

-  MAPPED  TO 

LOUCR 

FOR  THIS  CPU 

CMPOI ] 

RO 

-  REAL  UMR  F 

LOCK 

^DDRESS 

CMPOI] 

Rl 

-  UMR  BLOCK 

ADDRESS  COPY  IN  VNP  IMAGE 

CMPOI] 
CMPOU 
CMPOU 

OUTPUTS; 

C  =  0  - 

UMR  BLOCKS 

INITIALIZED 

CMPOU 

C  =  1  - 

CONTIGUOUS 

UMR  ALLOCATION  FAILURE 

CMPOU 

RO.RI  - 

PRESERVED 

CMPOU 

CMPOU 
CMPOU 

.IF  DF 

R$$MPL 

CMPOU 

sum  :  :MOV 

.UMRPT,RA 

•  GET  UMRPT  ADDRESS 

CMPOU 

SUTCHO 

*UMRPTR 

;  SET  OUTPUT  BUFFER 

CMPOU 

PUTAD 

R4,#2 

;  UPDATE  $UMRPT  FOR  THIS  CPU 

CMPOU 

TST 

(R0)  + 

;  SKIP  LINK  WORD 

CMPOU 

TST 

(R1)t 

CMPOU 

MOV 

.UMfiHD,R5 

!■  GET  $UMRHD  ADDRESS  FOR  THIS  CPU 

CMPOU 

ADD 

*2,R5 

;  GET  LISTHEAD+7 

CMPOU 

)$:    MOV 

R5,R4 

;  SAVE  POINTER  TO  PREVIOUS 

CMPOU 

BEQ 

30$ 

;  IF  EQ  -  BRANCH 

CMPOU 

SWTCHl 

#NEXT 

;  SET  INPUT  BUFFER 

CMPOU 

GETAD 

R5,#M.LGTH 

;  READ  PREVIOUS  UMR  BLOCK 

CMPOU 

MOV 

NEXT,(R1) 

;  POINT  TO  NEXT  FREE  UMR 

CMPOU 

MOV 

#<M.UMRN-M 

UMRA> 

,R3  ;  CALCULATE  NEXT  FREE  UMR 

CMPOU 

ADD 

#NEXT,R3 

• 

CMPOU 

ADD 

(R3),(R1) 

CMPOU 

MOV 

#U8MPR+<31 

♦  A>,- 

(SP)';  CALCULATE  END  OF  UMR'S 

CMPOU 

DEC 

R5 

;  POINT  TO  NEXT  ASSIGNMENT  BLOCK 

CMPOU 

DEC 

R5 

CMPOU 

SWTCHl 

■  RESET  INPUT  BUFFER 

CMPOU 

GETAD 

R5,/»2 

;  READ  NEXT  UMR  BLOCK  ADDRESS 

CMPOU 

MOV 

$8FR,R5 

CMPOU 

BEQ 

20$ 

;  IF "none  -  BRANCH 

CMPOU 

GETAD 

R5,#2 

;  GET  NEXT  FREE  UMR  ADDRESS 

CMPOU 

MOV 

$8FR,(SP) 

CMPOU 

3$:    SUB 

(R1),(SP) 

;  CALCULATE  NUMBER  OF  FREE  UMR'S  »  4 

[MPOU 

CMP 

(SP)t,M.UMRN-M.UMRA(R1)  ;  ENOUGH  AVAILABLE  ? 

CMPOU 

BLO 

10$ 

;  IF  NOT  -  BRANCH 

CMPOU 

SWTCHO 

;  RESET  OUTPUT  BUFFER 

CMPOU 

MOV 

RO,$BFR 

;  LINK  NEW  Bl  OCK  INTO  CHAIN 

CMPOU 

DEC 

RA 

;  BACK  UP  10  LiMK  WORD 

CMPOU 

DEC 

R4 

• 

CMPOU 

PUTAD 

R4,#2 

;  UPDATE  $UMRHD  LIST 

■CMPOU 

MOV 

{R1),R4 

;  SAVE  HRST  UMR  ADDRESS 

•[MPOU 
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CREF       DA. 00 


SYMBOL 

V 

VLUE 

REFERENCES 

ER1 

000A'.6 

R 

7-179 

#7-182 

ER2 

000'^2^ 

R 

7-180 

#7-184 

FATAL 

- 

*  **  t'  * 

GX 

7-179 

7-180 

F.NRBD 

= 

******* 

GX 

•6-153 

•6-143 

•7-155 

•7-158 

F.RSIZ 

- 

*  *  * t ** 

GX 

•6-135 

•7-165 

F.URBD 

r 

»•***** 

GX 

•6-132 

•6-142 

•7-154 

•7-159 

LINK 

000166 

R 

6-130 

#7-151 

SYSFDB 

= 

****** 

GX 

•6-132 
•7-165 

•6-153 

•b-155 

•6-142 

•6-145 

•7-154 

•7-155 

•7-158 

SADRX 

- 

****** 

GX 

6-1U 

6-115 

6-126 

6-134 

7-160 

7-171 

$ADR7 

- 

****** 

GX 

6-111 

$ALN18 

- 

******* 

GX 

7-156 

$BFR 

~ 

****** 

GX 

6-142 

6-143 

7-154 

7-155 

SEROUT 

- 

****** 

CX 

7-179 

7-180 

SGETAI, 

~ 

****** 

GX 

6-135 

SPUTAD 

- 

****** 

GX 

7-165 

7-173 

SRSIZE 

- 

****** 

GX 

•7-172 

SSAVRG 

- 

****** 

GX 

6-110 

SSAVVR 

- 

****** 

GX 

7-151 

tUNBAD 

_ 

****** 

GX 

6-115 

6-125 

•6-134 

7-160 

7-162 

•7-174 

SUNBLK 

- 

****** 

GX 

6-118 

6-126 

6-132 

6-133 

6-156 

7-158 

7-159 

•7-164 

SUNBSZ 

i: 

****** 

GX 

7-153 

iUNEND 

- 

****** 

GX 

6-123 

SVUNB 

000000 

RG 

*6-109 

S$ 

- 

177777 

7-181 

7-181 

#7-181 

#7-182 

7-183 

7-183 

#7-183 

#7-184 

$$$ 

- 

OOO'iSO 

R 

*7-181 

7-182 

#7-183 

7-184 

$$S$ 

- 

000524 

R 

#7-182 

*7-184 

•7-159 


7-166 


VUNB 


CREATED  BY      MACRO     ON  29-JUN-85   AT   03:09  PAGE   2 


C  K 


VUNL  -  VNP  UNLOAD  ROUTINES     MACRO  V05.05b  Monday  16-Sep-85  07:3 
DEAXPI  -  DEALLOCATE  XPT  DATA  STRUCTURES 


^-J' 


Page  10 


426 
A27 
428 
A29 
430 
A31 
432 
433 
434 
435 
436 
437 
438 
439 
440 

441  000564 

442  000570 
4A3  000606 

444  000612 

445  000616 

446  000620 

447  000624 

448  000630 

449  000632 

450  000646 

451  000652 

452  000654 

453  000660 
454 

455  000676 

456  000702 
457 

458  000704 

459  000710 

460  000712 

461  000716 

462  000722 

463  000724 

464  000740 

465  000744 

466  000750 
467 

468  000766 

469  00C7^2 
470 

471  OOC'74 

472  001000 

473  00"  )04 

474  001310 

475  00^014 

476  00'016 

477  0C1032 

478  C'J1036 

479  C01042 
480 

481  001060 

482  001064 


.SBTTL  OEAXPT  -  DEALLOCATE  XPT  DATA  STRUCTURES 

DEAXPT  -  DEALLOCATE  XPT  DATA  STRUCTURES 

INPUTS: 

R3  -  ADDRESS  OF  XPT'S  DDB 
R4  -  ADDRESS  OF  XPT'S  PDV 

OUPUTS: 

ALL  REG'S  PRESERVED 

XPT  DATA  STRUCTURES  DEALLOCATED 


016701  000036G 

066701  000044G 

006301 

062701  000077 

042701  000077 

000241 

016700  000040G 
001411 


016701   OOU022G 
001431 

066701   000030G 

006301 

062701  000077 

0427C1   000077 

000241 

016700  O0002'.G 


000100G 


016700 
001432 


012701   C^0046 


000L77 
000077 


062701 
042701 
000241 


016700  000102G 


016702 
001457 


000072G 


DEAXPT 

CALL 

$SAVAL 

GETRV 

R3,#N$XLEN 

MOV 

N$MHC1+$BFR,R1 

ADD 

N$MHC2t$BFR,Rl 

ASL 

Rl 

ADD 

#77, R1 

BIC 

#77, Rl 

CLC 

ASR$ 

6,fi1 

MOV 

N$MHClt2t$BFR,R0 

BED 

10$ 

CALL 

$DEA18 

GETRV 

R3,#N$XLEN 

10$: 

MOV 

N$R0A1+$BFR,R1 

BEQ 

20$ 

ADD 

N$R0A2t$BFR,Rl 

ASL 

Rl 

ADD 

#77, Rl 

BIC 

#77, Rl 

CLC 

ASR$ 

6.R1 

MOV 

N$ROA1+2+$BFR,R0 

CALL 

$DEA18 

GETRV 

R3,W$XLEN 

20$: 

MOV 

N$rLC+$BFR,RO 

BEQ 

30$ 

MOV 

#T$LLEN,R1 

CALL 

$MUL 

ADD 

#77, Rl 

BIC 

#77, Rl 

CLC 

ASR$ 

6,R1 

MOV 

N$UC  +  2t$BFR,R0 

CALL 

$DEA18 

GETRV 

R3,#N$XLEN 

30$: 

MOV 

N$ADJlt$BFR,R2 

BEQ 

50$ 

SAVE  REG'S 
Read  XPT  DDB  into  $BFR 
GET  ENTREiS  IN  MINHOP/COST  MATRIX 
INCLUDE  AREA  ENT.TIES 
CONVERT  TO  BYTES 
ROUND  TO  NEXT  BLOCK  BOUNDARY 


CONVERT  TO  BLOCK  COUNT 

GET  APR  BIAS 

IF  NONE  -  BRANCH 

DEALLOCATE  MINHOP/COST  vectors 

READ  XPT  DDB 

COPY  NUMBER  OF  ENTRIES  IN  NODE  ROL 
IF  NONE  -  BRANCH 


INCLUDE  AREA  ROL  ENTRIES 
CONVERT  TO  BYTES 
ROUND  UP  TO  NEXT  BLOCK 


CONVERT  TO  BLOCKS 
COPY  BIAS 
DEALLOCATE  POOL. . 
READ  XPT 

COPY  NUMBER  OF  CIRCUITS 
IF  NONE  -  BRANCH 

STORE  CIRCUIT  COUNTER  LENGTH 

CALCULATE  SIZE 

ROUND  UP  TO  NEXT  BLOCK 


CONVERT  TO  BLOCKS 
COPY  BIAS 
DEALLOCATE  POOL.. 
READ  XPT  DDB 

COPY  FIRST  ADJACENCY  BIAS 
IF  NONE  -  BRANCH 
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939 

940 
941 
9A2 
9A3 
9A4 
945 
946 


MOV 

•■ALL 

.•lOV 

qNE 

RETURN 
.ENDC 


1C8VL,$RBLCK 
.DEAIC 
NXIC8,R0 
10$ 


16-1 


SET  UP  BIAS 

DEALLOCATE  KB 

ANOTHER  KB  TO  DEALLOCATE 

IF  YES  -  BRANCH 


;[MP01] 
;[MPOn 


-   VNP   UNLOAD   ROUTINES 
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1210 
1211 
1212 
1213 
12U 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1225 
122A 
1225 
1226 
'-'27 
'228 
V29 
1230 
1231 
1232 
•■233 
234 


.SBTTL      DEV7  -  REPLACE    TASK  AMD   DEVICE   NAMES 

'dEV7   -  REPLACE    REQUESTING   TASK'S   NAME   AND  RSXIIM  DEVICE   NAME 

INPUTS: 

$$TASK=RFQUEST1NG  TASK'S  NAME 
R1=DEV1CE  NAME  IN  ASCII 
R3=F0RMAT  STRING  ADDRESS 
RA^ERROR  MESSAGE  BUFFER  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESTR0YED 
R3,R4=UPDATED 


003424  010146 

003426 

003432  010500 

003434  005720 

003456  122720  000072 

003442  001375 

003444  005300 

005446  116640  000001 

003452  112640 

003454 


0EV7: 


10$: 


MOV 

CALL 

MOV 

TST 

CMPB 

BNE 

DEC 

M0V8 

MOVB 

RETURN 


R1,-(SP) 
REP7 
R5,R0 
(R0)  + 
#'  :,(R0)^■ 
10$ 
RO 

1{SP),-(R0) 
(SP)+,-(RO) 


SAVE  DEVICE  NAME 
REPLACE  REQUESTING  TASK'S  NAME 
copy  ERROR  MESSAGE  BLOCK  ADDRESS 
GIVING  ERROR  TEXT  ADDRESS 
LOOK  FOR  THE  COLON 

SKIP  THE "colon 
DEPOSIT  PEVICE  NAME 
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V5TI 


SYMBOL  VALUE 


SPUTRC 
SRADDR 
SRERR 


SRSIZE 
SSAVAL 
SSAVRG 
SSAVVR 
$SLN 
SSLTA 
SSLTMA 
SSLTNM 
ST  I  OUT 
STRIB 
tVFLAG 
$$CSR 
$$DEV 
$$EXT 
SSINC 
$$LINX 
$$LRB 
$$MTP 
$$MUX 
$$PAR 
$$PRI 
$$SNUM 
$$TBL 
$$VECT 
.CALI 
.CCEX 
.CLIN 
.CLOG 
.CNOD 
.COBJ 
.CPRO 
.DAL  I 
.DCEX 
.DCIR 
.DLIN 
.DLOG 
.DMOD 
.DNOD 
.DOB  J 
.DPRO 
'  NOP 

.  RN ; ; 

.SAL  I 
.SCEX 

.s:;r 
.sl;n 


•••*•*  GX 

..»»«♦  GX 
003250  RG 


-   ****** 
r  ****** 


~     ****** 


-     ****** 


-  ****** 


****** 


■z     ♦***  ** 


****** 
****** 


00022A  R 
000132  R 
0001A6  R 
000170 
000162 
00022A 
000136 
00022A 
000224 
000224  R 
000224  R 
000224  R 
000176  R 
000224  R 
000224  R 
000224  R 
00? 156  R 
000230  S 
000224  R 
000076  R 
000204 


G" 

e 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


0CO116   !■( 


REFERENCES 

24-885 
*24-860 

8-209 

8-218 

8-227 

8-236 
*24-858 

26-947 

26-995 

24-840 

14-415 

14-418 

24-814 

24-815 

30-1156 

14-434 

14-394 
♦20-679 
*16-518 
•16-509 
•16-506 
•16-520 

9-269 
•20-703 
♦11-321 
•16-516 
•20-686 
•20-704 
•16-519 
•20-694 

6-93 

6-82 

6-84 

6-95 

6-91 

6-97 

6-83 

6-102 

6-98 

6-107 

6-99 

6-103 

6-109 

6-1C1 

6-104 

6-100 

6-86 

6-89 

6-92 

6-79 

6-in5 

6-81 


•24-870 

R-211 

8-22C 

8-229 
#30-1136 


29-1100 
22-744 
24-892 
29-1091 

19-623 


20-669 


35-1310 

24-868 

8-210 

8  219 

8-228 

8-237 

30-1137 


•19-621 

•19-620 

24-838 

24-893 

•19-616 
14-408 


•16-512 
•21-728 

16-503 


•19-622 

•16-517         •21-729 


#6-150 
*6-126 
#6-130 
#6-138 
#6-135 
#6-152 
#6-127 
#6-157 
#6-153 
#6-159 
#6-154 
#6-158 
#6-140 
#6-156 
#6-160 
#6-155 

6-87  6-8 

#6-161 
#6-149 
#6-115 
»6-142 
#6-121 


•24-872 
8-212 
8-221 
8-230 


23-773 
29-1086 


♦26-969 
8-213 
8-222 
8-231 


25-920 


•26-996  •26-1000  •35-1303  ^35-1313 

8-214     8-215  8-216  8-217 

8-223     8-224  8-225  8-226 

8-232     8-233  8-234  8-235 


27-1022 


#6-133 


VRQB 
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VSTI 
ENT 


1 
2 
3 
A 
5 
6 

7 

8 

9 

10 

n 

12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
7A 
35 
36 
37 
38 
39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
A7 
A3 
A9 
50 
5'' 
52 

5A 
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MODULE  DESCRIPTION: 

VNP  -  COMMAND  LINE  ^ARSE  TABLES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEtRING 

IDENT  HISTORY: 

1.00 


ITS 


27-FEB-78 

VERSION  2.0  P:lEA5E 


2. DC  1A-DEC-79 

DECNET-11M/S  V".0 
DECNET-11M-PLUS  VI .0 

3.00      16-APR-82 

DECNET-HM  V3.1 
DECNET-11M-PLUS   VI. 1 

A. 00     07-NOV-83 

decnet-hm  va.o 
decnet-11m-plus  v2.c 

5.00     22-JUL-85 

DECnet-1 IM/S   VA.2 
DECnet-11M-Plu5   V3.0 
DECnet-'licro/RSX   VI. 0 
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VST 
ENT 


6U 
615 
616 
6-'7 
618 
619 
620 
621 
62c 
623 
b2ii 

625  OOOOCO 

626  000000 

627  000000 

628  000000 
629 

630 
631 

632  000000 

633  000000 
63A  000000 
63^^  000000 
636 

637 

638 

639  000000 

6A0  000000 

641  000000 

6A2  OOOOjO 

6'.3 

64A 

645 

6A6  000000 

6A7  000000 

648  000000 

649  OOOCOO 
650 

651 
652 

653  000000 
000000 
_  000000 
656  000000 
657 
658 
659 

660  000000 

661  000000 

662  000000 

663  000000 


.SBTTL  ENTITY  ARGUMENT  SUBEXPRESSIONS 


654 
655 


664 
665 
666 
00 7  000000 

668  000000 

669  OCOOOO 

670  000000 


Keyword 

Next 

Action 

Mask  CBIS) 

Flag  to 

Type,  or 
Substate 

State 

Routine 

Value 

Mask 

ENTITY  ARGUMENT  SUBEXPRESSIONS 
ACTIVE  CIRCUITS 


STATES 
TRANS 

STATES 
TRANS 

IDACCI 
&K$ACT 
.SPSPEN 
kSCIRS, 

;  ACTIVE  LINES 

STATES 
TRANS 

STATES 
TRANS 

IDACLI 
Si^SACT 
,£PSPEN 
&KSLINS, 

;  ACTIVE  LOGGING 

STATES 
TRANS 

STATES 
TRANS 

IDACLO 
8KSACT 
,8P$PEN 
8KSL0G, 

;  ACTIVE  PROCESSES 

STATES 
TRANS 

STATES 
TRANS 

IDACPR 
£K$ACT 
,&PSPEfJ 
kSPROS, 

;  ALIAS 

STATES 
TRANS 

STATES 
TRANS 

I  DAL  I 
SKiAL I 
,£PSAID 
lALIlD, 

;  ALL  ALIASES 

STATES 
TRANS 

STATES 
TRANS 

IDALAL 
SKSALL 
,8PSPEN 
foSALIS, 

;  CIRCUIT 

STATES 
TRANS 

STATES 
TRANS 

IDCIR 

8K$C!R 
,8P$CR'D 

ICJRID, 

SEXIT, 


SEXIT, 


SEXIT, 


SEXIT, 


SEXIT 


SEXIT, 


SEXIl 


Of  SAC T, 


QFSACT, 


QFSACT, 


QFSACT, 


SCIUAL 


SQUAL 


SOUAL 


SQUAL 


QFSALL, 


SQUAL 
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1298  GOOOOU 
1299 
1300 
1301 

1302  000000 

1303  0000'"0 
130A  OOOC  ' 

1305  000' 

1306  000',  .■ 

1307  000000 

1308  000000 

1309  000000 

1310  000000 
1311 

1312 
1313 
13U 
1315 
1516  000000 


000000 
000000 
000000 


1317 
1318 
1319 
1320 
1321 
1322 
1323 
132A 

1325  000000 

1326  000000 

1327  000000 

1328  000000 

1329  000000 

1330  000000 

1331  000000 

1332  000000 
^333 

133A 
1335 
1336 
1337 

1338  000000 

1339  000000 

1340  000000 

1341  000000 
1312  000000 


!313 

IS'^A 
13A5 
1346 
1347 
1348 
13'-9 
1350 
1351 
1352 
1353 
1354 


000000 


000000 
000000 
000000 
uOOOOO 
OOuQi' 


TRANS   ISTR,  SEXIT, 

SIN<  NODE  (TOR  SET  AND  Cl[AR  LOGGING) 

0PSIN1 

SEXIT 


SEXIT, 
SEXIT, 


SSTSNM 


STATES 

OPSIN 

TRANS 

8KSKN0, 

TRANS 

8KSSNK 

STATES 

".OSSIN 

TRANS 

ll^$EXE, 

TRAMS 

&KSNOD 

STATES 

, SPSS  IN 

TRANS 

iOPSHST 

TRANS 

:nodid. 

SSTLSH 
SSTLSN 


'SHOST"  FOR  SET/CLEAR/SHCW  LOGGING  "INK  NODE 


STATES  OFSHST 

TRANS  <'$'^ 

STATES 

TRANS  8KSH0S, 


NSP  SEGMENT  SIZE 


SEXII 


BL.AUT, 


OPSHOS, 


$0P"0N 


STATES  OPSEG 

TRANS  &KSSEG 
STATES 

TRANS  SKSeUF 
STATES 

TRANS  8KSSIZ 
STATES 

TRANS  SNUM8R, SEXIT, $SEG 


INCOMING  TIMcR  VALUE 


states  opinc 

trans  8ksinc 
stat:s 

TRANS  &K%Un 
STATES 

TRANS  SNUMBR, SEXIT, SINC 


OUTGOING  TIMER  VALUE 


STATES  OPOUT 
TRANS  SKSOiJT 

STATES 
TRANS  &KSTIM 

STATES 
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ACC 

AL'.  ID 

AL1ID1 

A$$CHI>;= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BL.AUT 

BL.MAN 

CIRID 

CIRl 

riR2 

c;r3 

CIRA 

CKEVEB= 

CKEVEC= 

CKEVEN= 

CC.EVER: 

CLAL 

CLALAL 

CLCI 

CLE 

CLLI 

CLLO 

CLLOOP 

CLNO 

CLNOOP 

CLOB 

CLPR 

CLSy 

CMSCLE= 

CM$SET= 

CM$SHO= 

COUTIM 

CS$CKP= 

C$$ORE= 

C$$RSH= 

DESID 

DESIR1 

DNODID 

0NODI1 

DONE 

DSTR 

DSTR.E 

D$$Bl'G= 

D$SISK= 

0$ILn  = 

D$$YNC--- 

Or$VNM= 

EVEin 

E/'EIDI 

tVE;D2 

EVELIS 

tVENJM 

EvERAN 

E$$XPR= 

FIX 


OOAOAAR 

003630R 

003650R 

000000 

000000 

000000 

000000 

00001  OR 

OOOOOOR 

003656R 

003700R 

003720R 

0037A0R 

003750R 

******  G 

******  G 


000330R 

000320R 

000352R 

00007AR 

000362R 

000372R 

OOOAOAR 

0OC5O6R 

0O0520R 

000600R 

00061  OR 

000620R 

******  G 

**.«**  G 

******  G 

006626R 

000000 

OOOAOO 

17756A 

00377AR 

00A060R 

00AA2AR 

00AA52R 

000070R 

00700AR 

000062R 

17751A 

000000 

000001 

000000 

000000 

006670R 

006720R 

006740R 

0067A6R 

0C67-/6R 

006762R 

000000 

005666R 


002  FL.CNT= 
00?  F$$LVL= 
002  G$$TPP= 
GS$TSS= 
G$$TTK= 
G$$WRD= 
HELTIM 
IDACCI 
IDACLl 
002  IDACLO 
002  IDACPR 
002  IDALAL 
002  I  DAL  I 
002  IDCIR 
IDKNAL 
IDKNCI 
IDKNLI 
lOKNLO 
002  IDKNNO 
002  IDKNOB 
002  IDKNPR 
002  IDLIN 
002  IDlOG 
002  IDLONO 
002  IDMOD 
002  IDNOD 
002  IDOBJ 
002  IDPRO 
002  ICSYS 
002  I$$RAR= 
I$$RDN= 
KEYTAB 
KWRPAS 
302  KWTPAS 
K$ACC  = 
K$ACES= 
KSACT  = 
002  KSADD  = 
002  K$ALI  = 
002  K$A'_IS  = 
002  KSALL  = 
002  K$BUf  = 
002  KSCHA  = 
KSCI"  = 
K$CIRS= 
K$CLE  = 
K$CNSL= 
K$C0N  = 
K$CONS= 
002  K$COP  = 
002  K$C0S  ■■= 
002  KSlOU  ^ 
002  KfCSR  = 
OO:^  K$DEA  = 

002  k$d:f  = 

K$DES  = 
002  <$DESS= 


******  G 

000001 

000000 

000000 

000000 

000000 

00663AR 

003102R 

0031 22R 

0031A2R 

003162R 

003220R 

003202R 

0032AOR 

003270R 

00331  OR 

003330R 

003350R 

003370R 

003A10R 

003A30R 

003A50R 

003A66R 

00350AR 

00352AR 

0035A2R 

003570R 

003606R 

00362AR 

000000 

000000 

OOOOOORG 

0066AAR 

006656R 

000000 

000001 

000002 

000003 

OOOOOA 

000005 

000006 

000007 

000010 

CG0011 

000012 

000013 

00001A 

000015 

000016 

000017 

000020 

000021 

000022 

000023 

00002A 

0000^5 

000026 


K$DIS  = 

K$DTE  = 

K$DTES= 

KSDUP  = 

.<$ECH  = 

KSENA  = 

002  K$EVE  = 

002  K$EXE  = 

002  K$EXI  = 

002  K$FAC  = 

002  KSFIL  = 

002  K$FIR  = 

002  KSFIX  = 

002  KSFUL  = 

002  K$GL0  = 

002  K$GRP  = 

002  K$GRPS= 

002  K$HAL  = 

002  K$HEL  = 

002  KSHOS  = 

002  K$HTM  = 

002  KSINA  = 

002  K$INC  = 

002  K$INS  = 

002  K$KN0  = 

002  KSLGI  = 

002  K$LJN  = 

002  K$L1NS= 

002  K$L0A  = 

K$L0AR= 

KSLOC  = 

l03  K$L0G  = 

002  KSLOO  = 

002  KSLTM  = 

KSMAX  = 

KSnOD  = 

KSMON  = 

(C$MUL  = 

K$NAM  -- 

K$NET  = 

K$NErS= 

K$N0D  = 

K$M0DS= 

KSOBJ  = 

K$08JS= 

KSOFF  = 

K$ON  = 

K$OUT  = 

K$UWN  = 

K$PAR  = 

K$PAS  = 

KSPRI  = 

KSPRO  = 

KIPR0S= 

K$PRTO= 

K$REC  = 

K$REi  = 


000027 

000030 

000031 

000032 

000033 

00003A 

000035 

000036 

000037 

OOOOAO 

0000A1 

O000A2 

0000A3 

OOOOAA 

0000A5 

0000A6 

0O00A7 

000050 

000051 

000053 

000052 

00005A 

000055 

000056 

000057 

000066 

000060 

000061 

000063 

00006A 

000065 

000067 

000070 

000062 

000071 

000072 

000073 

00007A 

000075 

000076 

000077 

000100 

000101 

000102 

C00103 

OOOIOA 

000105 

C00106 

000107 

000110 

000111 

000112 

000113 

00011A 

000115 

000116 

000117 


K$SC0  = 

K$SEC  = 

K$SEG  = 

K$SER  = 

K$SET  = 

K$SH0  = 

K$SHU  = 

KSSIZ  = 

K$SNG  = 

K$SNK  = 

K$SNKS= 

K$STAE= 

K$STUS= 

K$SUM  = 

K$SVR  = 

K$SYS  = 

K$TER  = 

K$TIM  ^ 

KSTOP  = 

K$TRA  = 

K$TRIB= 

KSUNF  = 

K$UNI  = 

KSUSE  = 

K$VDT  = 

K$(/EC  = 

K$VER  = 

K$X25  = 

K$X29  = 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LD.ALI= 

LD.CEX= 

LD.CIR= 

LD.LiN= 

LD.LOG^ 

LD.M0D= 

LD.NOD= 

LD.OBJ^ 

LD.PR0= 

LINID 

LlNl 

LIN? 

LlSriM 

lOGID 

LO.ADD 

LO.ADR 

LO.CLS 

10. CON 

LO.COP 

LO.COS 

L0.C5R 

LO.CTL 

LO.DES 


000120 

000121 

000122 

00012A 

000125 

000126 

000127 

000133 

000130 

000131 

000132 

00013A 

000135 

000136 

000123 

000137 

OOOIAO 

0001A1 

0001A2 

000143 

OOOKA 

0001A5 

0001A6 

0001A7 

000150 

000151 

000152 

000153 

000154 

177546 

177546 

000000 

000074 

OOOCOO 

000030 

000024 

000035 

C 0002 5 

000031 

000037 

000027 

000032 

000026 

00A076R 

00A120R 

00A13AR 

006640R 

00415AR 

000022 

000052 

000002 

000006 

C00C10 

000020 

OOOolO 

000032 

OOnOO? 


LO.DTE 
LO.EVT 
LO.GRO 
LO.HOS 
LO.HTM 
LO.INA 
LO.iNC 
LO.LDT 
LO.LID 
LO.LIN 
LO.LTM 
LO.MAC 
LO.MDE 
LO.NAM 
LO.NEr= 
LO.NNM 
LO.OFL 
LO.ONM 
LO.OUT 
LO.OUN 
LO.PAR 
LO.PRI 
LO.RET 
LO.RPA 
LO.SCR 
LO.SEG 
LO.SKA 
LO.SKN 
LO.SNM 
LO.TPA 
LO.TRB 
LO.IRI 
LO.UNT 
LO.VCT 
LO.VER 
LR.ACC 
LR.ACO 
LR.ADD 
LR.ALI 
LR.BLK 
LR.CTL 
LR.DES 
LR.HLP 
002  LR.LIN 
002  LR.NAM 
002  LR.PAS 
002  LR.PRO 
002  ^,  STS 
LR.TRI 
LR  ^YP 
LR.uCB 
L".UU 
LR.UNf 
LS.AL!= 
LS.CEX= 

ls.c:r= 

LS.CXO= 


O0O0A7 
000004 
000024 
000040 
000032 
000062 
000060 
000046 
000030 
OOOOOA 
000034 
000022 
000024 
onnn/,4 

000002 
000022 
000012 
000004 
000056 
000026 
000010 
000012 
000064 
000030 
000016 
000054 
OOOCIA 
000014 
000035 
000020 
000034 
000030 
000033 
000014 
000042 
000020 
000052 
000012 
000002 
000010 
000004 
000010 
000002 
000002 
000012 
000041 
000002 
000000 
OC0006 
00000? 
000016 
000020 
000005 
000016 
000001 
000033 
010000 
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X'STB  CREATED   BY 

MACRO   CROSS   REfEREMCE 


MACRO     ON  29-JUN-85  AT   03:03 


MACRO   NAME 


v'NPDfS 


REFERENCES 

#13-1076 
#13-1106 
#13-1131 
#13-1158 
#15-1187 
#13-1215 
#13-12^5 
#13-1269 
#13-1303 
#13-1330 
#13-1366 
#13-1395 
#i3-U26 
#13-K51 
#1A-U93 
#1A-1515 
#15-1557 
#15-1580 
#5-61 


#13-1078 
#13-1108 
#13-1133 
#13-1160 
#13-11b5 
#13-1217 
#13-12A7 
#13-1271 
#13-130A 
#13-1332 
#13-1373 
#13-K00 
#13-1427 
#13-1A53 
#1A-U95 
#1A-1516 
#15-1558 
#15-1581 
5-62 


#13-10o3 
#13-1 i09 
#13-1134 
#13-1165 
#13-1190 
#13-1218 
#13-1252 
#13-1273 
#13-1306 
#13-1339 
#13-1375 
#i3-1A02 
#13-1432 
#13-1454 
#14-1496 
#14-1518 
#15-1559 
#15-1582 


C     7 
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CREF        04.00 


#13-1085 
#15-1114 
#13-1139 
#15-1167 
#13-1192 
#13-1219 
#13-1254 
#15-1274 
#13-1307 
#15-1341 
#13-1577 
#13-1407 
#13-1454 
#14-1468 
#14-1503 
#14-1520 
#15-1560 


#13-1087 
#13-1116 
#13-1141 
#15-1169 
#13-1198 
#13-1224 
#13-1259 
#13-1281 
#13-1309 
#15-1345 
#13-1584 
#15-1409 
#13-1439 
#14-1470 
#14-1505 
#U-1525 
#15-1565 


#15-1088 
#13-1121 
#13-1142 
#15-1174 
#15-1200 
#15-1226 
#13-1260 
#13-1285 
#13-1310 
#15-1551 
#15-1585 
#15-1414 
#13-1441 
#14-1475 
#14-1507 
#14-1526 
#15-1566 


#15-1090 
#15-1122 
#15-1147 
#15-1176 
#15-1205 
#15-1231 
#13-1262 
#15-1284 
#15-1517 
#15-1553 
#13-1387 
#15-1415 
#13-1442 
#14-1480 
#14-1509 
#14-1551 
#15-1568 


#15-1092 
#15-1123 
#13-1149 
#13-1178 
#13-1207 
#15-1233 
#13-1264 
#15-1291 
#13-1319 
#15-1555 
#13-1388 
#15-1417 
#15-1445 
#14-1485 
#14-1510 
#14-1533 
#15-1573 


#13-1099 
#13-1125 
#15-1151 
#13-1135 
#15-1212 
#13-1238 
#15-1265 
#15-1296 
#15-1526 
#15-1562 
#13-1590 
#15-1419 
#15-1448 
#14-1487 
#14-1512 
#14-1555 
#15-1575 


#15-1101 
#15-1126 
#13-1156 
#15-1185 
#15-1214 
#13-1240 
#15-1267 
#13-1298 
,^15-1528 
#15-1364 
#13-1591 
#13-1424 
#13-1450 
#14-1488 
#14-1514 
#14-1540 
#15-1577 
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VSYM 


CREATED  BY  MACRO  ON  29-JUN-85  AT  03:0: 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


C  8 

PAGE  3 

CREF   OA.OO 


ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z .  AVi 

Z.DAT 

Z.DSP 

Z.FLG 

Z.^EN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

.ADDRB 

.ADDRW 

.APR 

.BASEB 

.BLKB 

.Blkw 

.BYTE 

.CORE 

.CSR 

.CTIM 

.CXALL 

.CXCSR 

.CXLBR 

.CXLBl 

.CXLB2 

.CXLEN 

.CXPCB 

.rxsvM 

.CXUNL 
.CX>/EC 

.cx-ysM 

.DPRB 

.DPRW 

.DVCHA 

.EOF 

.FILE 

.INT 

.LFILE 

.LIBR 

.LINKS 

.LSTHD 

.LTAB 

.MPTAB 

.MXPTB 


REFERENCES 


=  000400 

r, 

#5-64 

=  000040 

n 

#5-64 

=  002000 

fi 

#5-64 

=  010000 

G 

#5-64 

=  000200 

n 

#5-64 

=  000000 

G 

#5-64 

=  100000 

G 

#5-64 

=  140000 

G 

#5-64 

000014 

G 

#5-64 

000016 

G 

#5-64 

000000 

G 

#5-64 

000010 

G 

#5-64 

=  000016 

G 

#5-64 

000006 

G 

#5-64 

000020 

G 

#5-64 

000004 

G 

#5-64 

000012 

G 

#5-64 

000007 

G 

#5-64 

OOOnoi 

G 

#5-77 

000002 

G 

#5-78 

000040 

G 

#5-108 

=  140000 

G 

#5-63 

000003 

r 

#5-79 

000004 

b 

#5-80 

000005 

G 

#5-81 

000006 

G 

#5-82 

000007 

G 

#5-83 

000010 

G 

#5-84 

000062 

G 

#5-150 

000004 

G 

#5-141 

000060 

G 

#5-l'.9 

000030 

G 

#5-147 

000044 

G 

#5-148 

000064 

G 

#5-151 

000006 

G 

#5-142 

000010 

#5-143 

000024 

G 

#5-145 

000026 

G 

#5-146 

000016 

G 

#5-144 

000041 

G 

#5-109 

000042 

G 

#5-110 

000011 

G 

#5-85 

000012 

G 

#5-36 

000013 

G 

#5-87 

000014 

G 

#5-88 

000017 

G 

#5-91 

000015 

G 

#5-89 

000016 

G 

#5-90 

000020 

G 

#5-92 

000021 

n 

#5-93 

000022 

G 

#5-94 

000044 

G 

#5-112 

5-64 


VSYM 
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VTMP  -  VNP  TEMPLATE  PROCESSING  MACRO  V05.03b  Saturday  29-Jun-85  03:08  Page  10 
$B'JFC<  -  CHECK  NEXT  128.  BYTES 


311 

.S8TTL 

312 

+ 

313 

SBUFCK 

3H 

315 

INPUTS: 

316 

STMPBF 

317 

STMP.ND 

318 

R4 

319 

STADDR 

320 

$SIZE 

321 

322 

OUTPUT: 

323 

STADDR 

32^ 

STMPBF 

325 

R4 

326 

SSIZE 

327 

- 

328 

329 

330 

331  000316 

.ENABL 

004267 

OOOOOOG 

BBUFCK::JSR 

332  000322 

032767 

000240 

000000' 

BIT 

333  000330 

001107 

BNE 

334  000332 

020427 

OOOOOOC 

CMP 

335  000336 

002504 

BLT 

336 

337  0003A0 

012700 

OOOOOOC 

MOV 

338 

339  00034A 

0204:7 

OOOOOOG 

10$:     CMP 

340  000350 

003111 

BGT 

341  000352 

swtlho 

342  000360 

016767 

000016' 

OOOOOOG 

MOV 

343  000366 

010067 

OOOOOOG 

MOV 

344  000372 

010001 

MOV 

345  000374 

005067 

OOOOOOG 

CLR 

346  000400 

026727 

000016' 

120000 

CMP 

347  000406 

103406 

BLO 

348  000410 

016767 

OOOOOOG 

OOOOOOG 

MOV 

349  000416 

042767 

160000 

OOOOOOG 

BIC 

350  000424 

010167 

OOOOOOG 

14$:    MOV 

351  000430 

026727 

OOOOOOG 

001000 

CMP 

352  000436 

101403 

BLOS 

353  000440 

012767 

001000 

OOOOOOG 

MOV 

354  000446 

15$:    PUTAD 

355  000452 

062767 

001000 

OOOOOOC 

ADD 

356  000460 

062767 

001000 

OOOOOOG 

ADD 

357  000466 

162701 

001000 

SUB 

358  000472 

003354 

BGT 

359  000474 

010067 

OOOOOOG 

MOV 

360  000500 

060067 

000016' 

ADD 

361  0C0504 

160067 

000012' 

sua 

362  000510 

112700 

OOOOOOG 

MOV 

363  000^14 

91040' 

MOV 

364  00051^ 

(62701 

OOOOOOC 

SUB 

365  000522 

003406 

BLE 

366  000524 

010002 

MOV 

367  000526 

066702 

OOOOOOG 

ADD 

$BUFCK  -  CHECK  NEXT  128.  BYTES 

-  BUFFER  NEXT  128.  BYTES  TO  LINE  TABLE  IF  NECESSARY 


IMAuE  OF  LINE  TABLE  .'  IN  VRES  ) 
AuUrtESS  OF  END  OF  SlhPB.' 
ADDRESS  OF  NEXT  AVAILA8LL  BYTE  IN  STMPBF 
ADDRESS  OF  LINE  TABLE  DESTINATION  IN  SCOM 
SIZE  OF  LINE  TABLL 


NEW  DESTINATION  ADDRESS  (  INCREMENTED  ) 
SHIFTED  LEFT 
UPDATED  POINTER 
UPDATED  SIZE  (  LEFT  ) 


LSB 

R2,SSAVVR  ;    SAVE   VOLATILE  REGISTERS 

//F1.LFI!F1.MPL,SFLA61        ;    ARE   WE    DOING  MULTIPOINT   LINKAGE    ? 
100$  ;    YES,    SCRAM 

R4,#$TMPBF+«STMPND-$TMP8F>/2>    ;    IS   BUFFER   AT   LEAST   HALF-FULL 
100$  ;    NO 


#<STMPND-STMPBF>/2,R0 
R4,/»STN;oND 

ii6s 

*$TMPBF 

$TADDR,Si'ADDR 

R0,$RSIZE 

RO.RI 

$R6LCK 

$TADDR,*120000 

14$ 

SBIAS.SRBLCK 

#160000, SRADDR 

R1,$RSIZE 

$RSIZE,*512. 

15$ 

*512.,$RSiZE 

#512.,SYSFDB+F.NRBDt2 

#512.,$RADDR 

#512. ,R1 

14$ 

RCSRSIZE 

RO, STADDR 

RO, SSIZE 

#STMP8F,R0 

R4,R1 

#$TMPBF-<<$TMPND-SlMP8f> 

90S 

R0,R2 

SRSIZE,R2 


:    SET    TRANSFER   SIZE 

IS  BUFFER   OVER-FILLED    ? 

YES 

POINT  AT  BUFFER  TO  BE  WRITTEN 

VIRTUAL  ADDRESS 

GET  SIZE  OF  TRANSFER 

GET  SIZE  OF  TRANSFER 

CLEAR  THE  BIAS 

IS    IT   A   PARTITION   LlNt    TABLE? 

NO   IF    LOW 

PROCESS  BIAS 

CLEAR  THE  APR  BITS 

SET  TRANSFER  SIZE 

BREAK  UP  TRANSFER? 

BR  IF  NO 

ELSE  ONLY  TRANSFER  512.  BYTES 

WRITE  SRSIZE  BYTES  TO  VIRTUAL  IMAGE 

UPDATE  BUFFER  ADDRESS  TO  WRITE  FROM 

UPDATE  ADDRESS  TO  WRITE  TO 

UPDATE  BYTE  COUNT 

BR  IF  MORE  TO  TRANSFER 

GET  BACK  ORIGINAL  BYTE  COUNT 

UPDATE  SCOM  ADDRESS  POINTER 

AND  SIZE 
PREPARE  TO  SHIFT  LEFT 

/2>',R1   ;  ... 
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SYMBOL    CROSS   REFERENCE 
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PAGE   2 

CREF        0^.00 


SYMBOL 

VALUE 

REFERENCES 

SBFALL 

00032A  RG 

#6-157 

tBFBAS 

000336  RG 

#6-161 

SBFLBN 

000326  RG 

#6-158 

SBFPTR 

000332  RG 

#6-159 

$BFR 

=    *»t*««     Gx 

8-239 

10-373 

•10-389 

•10-390 

•10-391 

SBFXFR 

00033A  RG 

#6-160 

$81  AS 

-    »♦*•♦.     GX 

10-348 

$BIN 

OOOOOA   RG 

#6-107 

SBUFCK 

000316  RG 

#10-331 

SCAPR 

000316  RG 

#6-154 

SCLBUF 

=    *»*♦»»     GX 

«n-4i8 

SCLDEQ 

=    »»»*»»     GX 

8-264 

SCLIOS 

r    .***♦*      GX 

11-421 

SCLSIZ 

=    *«»»♦»     GX 

»11-419 

SCVAL 

C:i3U   RG 

#6-153 

$DIFF 

0.J300  RG 

#6-151 

SELINE 

001 15A   RG 

7-194 

7-195 

7-196 

7-197 

7-198 

SEROUT 

=    ..*♦,*     GX 

10-393 

$ERR13 

000720  R 

#7-194 

13-494 

$ERR21 

000766  R 

#7-195 

15-540 

$ERR79 

001014  R 

#7-196 

16-557 

$ERR82 

0010A2  R 

#7-197 

17-588 

$ERR83 

001110  R 

„'7-198 

17-589 

SEVEN 

001312  RG 

#14-517 

SFILEN 

000302  RG 

#6-152 

tFILEX 

=    ******     GX 

8-274 

SFLAGS 

=    ******     GX 

8-253 

15-538 

16-555 

18-611 

18-615 

SFLAGl 

000000  RG 

#6-74 
*18-618 

•8-238 

9-297 

10-332 

13-490 

$FLAG2 

000002  RG 

#6-95 

8-246 

•8-249 

8-262 

•8-265 

$FNR50 

000340  RG 

#6-162 

SGCLEP 

-    .»»*»♦      GX 

11-420 

$!CBAD 

000272  RG 

#6-144 

SICBSZ 

000274  RG 

#6-145 

SLBADR 

000346  RG 

#6-163 

SLBIAS 

000350  RG 

#6-164 

$LOA 

000060  RG 

#6-129 

SLEFT 

0OOC10  RG 

#6-109 

•13-492 

SLFLD 

000322  RG 

#6-156 

$LiN< 

O0CC26  RG 

#6-120 

•10-372 

SMPLD 

000320  RG 

#6-155 

SMXADD 

000022  RG 

#6-118 

SMXLtN 

000032  RG 

#6-122 

SMXSIZ 

000024  RG 

#6-119 

SNALL 

000034  RG 

#6-123 

SNLIB 

000035  RG 

#6-124 

S'JTLLB 

000162  RG 

#6-135 

$ii  1  LOB 

000062  RG 

#6-134 

9-30; 

SNVECT 

000270  RG 

#6-143 

$OFF 

000030  RG 

#6-121 

$PTR 

0C0006  RG 

#6-108 

13-500 

•13-501 

SPUTAD 

r    ».,.*»     GX 

9-306 

10-354 

10-401 


10-401 


8-255 


#12-450 


•13-495 


13-498 


17-577 


•17-579 


V'MP 
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\/TMP!N  CREATED  BY     MACRO     ON  29-JUN-85   AT   03:08 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


REFERENCES 


FL.CHA 

:  ****** 

GX 

8-UO 

FL.DDM 

-  ****** 

GX 

8-135 

FL.LLC 

r  ****** 

GX 

8-186 

FMTO 

000072 

R 

7-87 

#7-96 

FMT3 

000073 

R 

7-86 

#7-97 

FM.O 

=  000000 

#7-87 

FM.3 

--=  000000 

*7-86 

FNDADD 

000320 

R 

8-170 

#9-207 

F.RSIZ 

r  ***  * t * 

GX 

•8-147 

•9-208 

F1 .UMP 

-  ****** 

GX 

8-126 

K.CSR 

000002 

8-147 

8-154 

<.VCT 

000001 

8-155 

L.DDS 

=  ****** 

GX 

8-138 

L.<RBA 

r  ****** 

GX 

8-141 

RTSF^C 

00025O 

R 

7-87 

#8-181 

R$$MPL 

-  ****** 

5-60 

8-143 

SYSFDB 

~    ****** 

GX 

♦8-147 

•9-208 

SStBAS 

r  ****** 

7-86 

7-85 

TMPEXT 

000000 

R 

#6-78 

8-176 

ZF.PSE 

~    ****** 

GX 

8-133 

Z.DAT 

r   ****** 

GX 

*8-189 

Z.FLG 

r  ****** 

GX 

8-133 

lADDR 

r  ****** 

GX 

•8-121 

♦8-138 

$AZFS 

~     ****** 

GX 

8-177 

$BFR 

=     ****** 

GX 

8-154 

8-165 

tBlN 

-  ****** 

GX 

•8-118 

SCLIOS 

=     ****** 

GX 

8-179 

SCLQUE 

=  ****** 

GX 

8-178 

$DFN 

-  ****** 

GX 

8-131 

SERRWZ 

0000A2 

R 

#7-87 

8-159 

SERRB 

OOOOOA 

R 

#7-86 

8-190 

SFLAGS 

-   ****** 

GX 

8-135 

•8-140 

SFLAGI 

r  ****** 

GX 

•8-126 

SFNOUT 

=     ****** 

GX 

7-86 

iGETRV 

-  ****** 

GX 

8-147 

9-208 

SKBLN 

-  ****** 

GX 

9-211 

9-217 

$LEFT 

-  ****** 

GX 

•8-120 

SMXADD 

-  ****** 

GX 

•8-122 

SMXSIZ 

3  ****** 

GX 

•8-123 

SNALL 

z     ****** 

GX 

♦8-128 

$NAME 

-  *♦**+♦ 

GX 

8-13C 

SNVbCT 

=     ****** 

GX 

•8-127 

$OFF 

r  ****** 

GX 

•8-124 

SPOVA 

r  ****** 

GX 

8-132 

8-188 

SPRV.N 

r  ****** 

GX 

7-85 

SPTR 

-  ****** 

GX 

•8-119 

SRACDR 

-  ****** 

GX 

•8-147 

♦9-208 

*SIZE 

-  ****■*■* 

GX 

•3-125 

-'  ro, 

c  ****** 

GX 

8-137 

■:R 

r  ****** 

GX 

8-129 

•8-129 

$.     .IN 

OOOGOO 

RG 

#8-117 

STwARN 

*  ♦  ■r  ♦  *  * 

GX 

7-87 

C  11 
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CREF        04.00 


•9-212 


8-151 

•9-212 

7-87 


♦9-210 
9-209 

8-173 
8-186 

9-212 


8-161 
7-87 

♦9-2'4 
9-213 


•9-212 


VTMPIN 
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VTST  -  vNP  TESTING  ROUTINES 
tv'TST  -  VNP  TESTING  ROUTINES 


399  003122 

400  003152 
401 

402 
403 

404  003154 

405  003200 

4U6  003222  01050C 

407  U03224 

408  003230  103014 

409  003232 
4^0  003252 
411 

412 
413 

414  00326t 

415  003306 

416  003312  103015 

417  003314 

418  005344  000470 

419  003346  010146 

420  003350  010046 

421  003352 

422  003402 

423  003A40 

424  003476 

425  003526 
426 

427 
428 

429  003530 

430  003554 

431  003576  010500 

432  003600 

433  00360A  103014 

434  003606 

435  003636 
436 

437 

438  003640  052767 

439  003646  005767 

440  003652  001464 

441  003554  032767 

442  003662  001460 
445 

444 
445 
445  005664 

447  003672 

448  003712 

449  005720 

450  005752 
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TYPES 

<  BYTES>,CR 

XI 07:   RETURN 

■  DEALLOCATE  DSR 

DEAIc:   GETNUM 

<ADDRESS>,R5,X108 

GETNUM 

<NUMBER  OF  BYTES>,R1 ,X108 

MOV 

R5,R0 

CALL 

$DEA16 

BCC 

X108 

TVPES 

<C-eiT  SET>,LfCR 

X108:   RETURN 

;  ALLOCATE  2^  BIT  ADDRESS 

ALL22:   GETNUM 

<NUMBER  OF  BL0CKS>,R1  ,xrO 

CALL 

$ALL22 

BCC 

X109 

TVPES 

<C-8JT  SET>,LFCR 

BR 

XI  lO 

X109:   MOV 

R1,-(SP) 

MOV 

R0,-(SP) 

TyPES 

<8IAS  OF  BUFFER  >,LF 

TYPEN 

(SP)+,CR,0W 

TYPEN 

(SP)+,LF,DW 

TYPES 

<  BL0CKS>,CR 

X110:    RETURN 

;  DEALLOCATE  22 

BIT  ADDRESS 

DEA22: 


Xlll: 


OOOOOOG  OOOOOOG  BUFOU: 
OOOOOOC 

OOOOOOG  OOOOOOG 


GETNUM 

GETNUM 

MOV 

CALL 

BCC 

TYPES 

RETURN 


eis 

TST 
BEQ 
BIT 
BEQ 


<BIAS  OF  BL0CK>,R5,X111 

<NUf:3ER  OF  BL0CKS>,R1,X111 

R5,R0 

$DEA22 

X111 

<C-8IT  SET>,LFCR 


#VF.VDT,$VFLAG   ;  SET  SO  WDN'l  WRITE  BUFFERS  NEXT  TIME 
SYSFJB+F.FNB+N.FID      ;  IS  THE  IMAGE  FILE  OPEN? 
50$  ;  NO  IF  EO 

*VF.1N1,$VFLAG  ;  INITIALIZE  A  SUCCESS? 
50$  ;  NO  IF  EQ 


OUTPUT  VALUES  STORED  IN  ROOT  SECTION 


451  005740 

452  003752 
455  005750 

454  005772 

455  004000 


052767  OOOOOOG  OOOOOOG 


SUTCHO 

PUTRC 

SUTCHO 

PUTRC 

SUTCHO 

PUTRC 

SUTCHO 

PUTRC 

SUTCHO 

BIT 


*$FMASK 

.FMASK,*2 

*$DEVHD 

.DEVHD 

#$PARHD 

.PARHD 

#$CRAVL 

.CRAVL 

#FE.CEX,$FMASK 


COMM  EXEC  LOADED? 
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VUMR 


198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2M. 
215 
216 
217 
218 
219 


30$; 


29-Jun-85  03:09 

turday 

MOV 

R5,-2(R1) 

MOV 

R4,R5 

B1C8 

#U8MPRI3A,R5 

BK 

R5,R4 

ASR 

R5 

ASLB 

R4 

ASL 

Rl 

ASL 

R« 

SWAB 

R4 

MOV 

RA,M.UMVL-2(R1) 

M0V8 

R5,M.UMVH-2(R1) 

DEC 

R1 

DEC 

R1 

DEC 

RO 

DEC 

RO 

RETURN 

.ENDC 

Page  8 


POINT  NEW  BLOCK  TO  NEXT  IN  LIST 
COPY  UMR  ADDRESS 

MASK  OUT  COMPLIMENT  OF  HIGH  TO  BITS 
CLEAR  HIGH  BYTE  AND  HI  TWO  BITS 
SHIFT  HIGH  TWO  BITS  TO  BITS  4  AND  5 
GET  HIGH  BYTE  OF  LOW  16  BITS 


FORM  LOW  16  BITS 
SET  UP  LOW  16  BITS 
SET  BITS  k   AND  5 
POINT  TO  LINK  WORD 
PRESERVE  C-B;T 
SAME 


;[MP01] 
; CMP01 ] 
;CMP01] 
; CMP01 ] 
.■[MP01] 
;[MP01] 
;[MP0n 
;[MP01] 
;[MP01] 
; CMP01 ] 
; CMP01 ] 
;[MP0n 
;[MP01] 
;[MP01] 
.-LMPOn 

;[MPOn 
; [MPOl J 
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MACRO  NAME 

REFERENCES 

CALL 

6-130 

6-135 

7-156 

7-165 

7-173 

ERBLKt 

#6-105 

7-182 

7-184 

ERMSGS 

#6-105 

7-181 

7-83 

ERRPTt 

#6-105 

7-179 

7-180 

GET  AD 

#6-105 

6-135 

PUTAD 

#6-105 

7-165 

7-173 

RAND 

#6-135 

6-135 

#7-165 

7-165 

#7-173 

RETURN 

6-U5 

7-175 

SWTCH! 

#6-105 

6-132 

6-142 

7-154 

7-159 

5WTCH0 

#6-105 

6-133 

6-145 

7-155 

7-158 

7-179 


7-173 


7-180 


♦*FILE»*Iu'n'UNL 
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DEAXP'    -   UEALLOCAIF    XPT   DATA   STRUCTURES 


A85  001066 

484  001070 

485  001074 

486  001114 

487  001120 

488  001124 

489  001130 

490  001134 

491  001140 

492  001144 

493  001146 

494  001162 

495  001164 

496  001166 

497  001172 

498  001210 
499 

500  001212 

501  001216 

502  001220 
503 

504  001224 
505 


005001 
156401 

066701 
066701 
012700 

062701 
042701 
000241 

010105 
010200 


010501 

016700 
001402 


OOOOOOG 

000054G 
000056G 
000004 

000077 
000077 


000074G 


40$: 


50$: 


C1.R 

BIS8 

GETRV 

ADD 

ADD 

MOV 

CALL 

ADD 

BIC 

CLC 

ASR$ 

MOV 

MOV 

CALL 

GETRV 

MOV 

MOV 
BEQ 
CALL 

RETURN 


R1 

2.DAT(R4),R1 

$OECPT,*D$END 

D$NBRA+$BFR,R1 

D$NBEAt$BFR,R1 

#A$LEN,RO 

$M!JL 

#77, Rl 

*77, Rl 

6,R1 

r1,R5 

R2,R0 

$DEA18 

R3,#N$XLEN 

R5,R1 

N$ADJ2t$BfR,R0 

50$ 

$DEA18 


INIT  REG 

GET  XPT  CHANNELS 

READ  DECNET  HOME  BLOCK 

INCLUDE  BROADCAST  ROUTERS 

INCLUDE  BROADCAST  ENDNODES 

GET  LENGTH  OF  ENTRY 

CALCULATE  TOTAL  SI7E 

ROUND  UP 


CONVERT  TO  BLOCKS 
SAVE  SIZE 
GET  BIAS 

DEALLOCATE  BLOCK 
READ  XPJ   DDB 
RESTORE  SIZE 


GET  BIAS  OF  SECON^: 
IF  NONE  -  BRANCH 


ADJACENCY    D.B. 


VNP   UNI  OAD   ROUTINES 
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-  VNP   UNLOAD   ROUTINES 

-  RESET    IN^FRfvUPT    VECTORS 
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9^9 

950 

951 

;  RESET  INTERRUPT  VECTOR(S) 

952 

953  002A02 

VECT: 

954 

.If  DF 

R$$MPL 

[MPOl] 

955 
956 

MOV 

#KR8MP,R4 

GET  KR8  ADDRESS 

957 

SUB 

#K.PRM,R4 

SET  TO  OFFSET  0 

958 
959 
960  002402 

.IFF 

[MP01] 

016504 

OOOOOOG 

MOV 

L.KR8A(R5),R4 

GET  KR8  ADDRESS 

961  002406 

001550 

8EQ 

'.0$ 

IF  NO  VECTORS  -  BRANCH 

962  002410 
963 

GETRV 
.ENDC 

ftH,#$KR8LN 

CMPOl] 

964 

965  002426 

005000 

CLR 

RO 

INIT  REG 

966 

.If  Df 

R$$MPL 

CMPOl] 

967 

CLR 

$R8LCK 

ASSUME  NON  MULTIPROCESSOR 

[MPOID 

96° 

TST 

.MPRO 

MULTIPROCESSOR  ? 

CMPOl] 

^69 

BLT 

1$ 

If  NO  -  BRANCH 

C:iP01] 

970 
971 

MOV 

K.PRM(R4),R2 

GET  IC8  ADDRESS/2  1  CPU  NUMBER 

CMPOl] 

972 

3IC 

#7777, R2 

FORM  CPU  NUMBER 

CMPOl] 

973 

SWAB 

R2 

CMPOl] 

974 

ASR 

R2 

CMPOl] 

975 

ASR 

R2 

' , , 

CMPOl] 

976 

ASR 

R2 

CMPOl] 

977 

ADD 

.K6TA8,R2 

GET  ADDRESS  OF  LOWCR  CPU  BIAS 

CMPOl] 

978 
979 

SWTCHI 

RESET  INPUT  BUFFER  ADDRESS 

980 

GETRV 

R2,*2 

READ  BIAS 

CMPOl ] 

981 

MOV 

$8fR,$RBLCK 

COPY  BIAS 

CMPOl] 

982 
983 

1$:     8IS8 

K.VCT(R4>,R0 

GET  VECTOR  ADDRESS 

CMPOl] 

984 
985 

.Iff 

CMPOl] 

986  002430 

156700 

OOOOOIG 

BISB 

K.VCTt$BFR,RO 

GET  VECTOR  ADDRESS 

CMPOl] 

987 
988 
989 
990  002434 

.ENDC 

CMPOl] 

006300 

ASL 

RO 

CONVERT  TO  REAL  ADDRESS 

991  002436 

006300 

ASL 

RO 

, 

992  002440 

062700 

OOOOOOG 

ADD 

#$8FR,R0 

POINT  AT  DEFAULT  BUFFER 

993  002444 

010001 

MOV 

R0,R1 

GET  INTERRUPT  VECTOR  ADDRESS  LIMITS 

994  002446 

066701 

OOOOOOG 

ADD 

$MXVCT,R1 

,  . 

995  002452 

016703 

000010' 

MOV 

UBA,R3 
lOli 

GET  UNLOAD  BLOCK  ADDRESS 

996  002456 

001525 

BEQ 

IF  ZERO,  LINE  TABLE  NOT  FQUNDI 

997  002460 

005723 

TST 

(R3)  + 

SKIP  PDV  INDEX 

998  002462 

012302 

NOV 

(R3)+,R2 

GET  LINE  TABLE  STARTING  ADDRESS 

999  002464 

011303 

MOV 

(R5),R3 
#3,R^ 

•  AND  LENGTH 

moo  002466 

042703 

000003 

BIG 

•  DISCARD  STATUS  BITS 

1001  002472 

060203 

ADD 

R2,R3 

■  GIVING  END  OF  LINE  TABLE  ADDRESS 

1002  002474 

005067 

OOOOOOG 

CLR 

SRADDR 

•  READ  IN  FROM  VIRTUAL  ZERO 

1003  002500 

mb721 

OOOOOOG  001000 

CMP 

$MXVCT,*1000 

;  iS  VECTOR  SPACE  WITHIN  LEGAL  LIMITS  ? 

1004  002506 

003113 

BGT 

121$ 

;  IF  GT,  NO 

viiwi    -  \iHP  iiNiinAn  RniiTiNF<; 
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1236 
1237 
1238 
1239 
12A0 
1241 

ir;2 

ic43 
124'< 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 


003456 
003460 
003464 
003466 
003472 
003474 
003476 
003500 
003502 
003506 
003512 
003516 
003522 
003526 
003532 
003536 
003540 


010246 

112314 
122724 
001374 
005304 
010400 
011601 
116101 
066701 
016101 
016146 
016101 

122740 
001775 
005200 


.SBTTL  REP7B  -  REPLACE  TASK  NAME  AM)  LINE  ID 

REP7e  -  REPLACE  REQUESTING  TASK'S  NAME  AND  LINE  ID 

INPUTS: 

$$TASK=REQUESTING  TASK'S  NAME 
R2=SLT  ADDRESS 
R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 


OUTPUTS: 

R0,R1,R2=DESTROYED 
R3,R4=UPDATED 

REP78:  MOV 


VRQI 

SYMI 

SYMI 

.SL: 
.SM 
.SN 
.SO 
.SP 
.TL 
.TS 
..S 


000052 


OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000040 


10$: 


20$: 


1267 

003542 

112720 

000055 

1268 

003546 

112720 

000060 

1269 

003552 

016601 

000002 

1270 

003556 

116101 

OOOOOOG 

1271 

003562 

001404 

1272 

003564 

005300 

1273 

003566 

005002 

1274 

003570 

1275 

003574 

032726 

OOOOOOG 

1276 

003600 

001414 

1277 

003602 

112720 

000055 

1278 

003606 

11272C 

000060 

1279 

003612 

011601 

1280 

003614 

116101 

OOOOOOG 

1281 

003620 

001404 

1282 

003622 

005300 

1283 

003624 

005002 

1284 

003626 

1285 

C03f32 

005726 

1286 

003634 

010004 

1287 

C03636 

30$: 


40$: 


MOV 

R2,-(SP) 

CALL 

REP7 

Move 

(R3)+,(R4) 

CMPB 

#'*,(R4)t 

BNE 

10$ 

DEC 

R4 

MOV 

R4,R0 

MOV 

(SP),H1 

M0V8 

L.DDM{R1) 

Rl 

ADD 

$PDVTAtAB 

R1 

MOV 

A6(fi1),Rl 

MOV 

Z.FLG(Rl) 

-(S 

MOV 

Z.NAM(R1) 

Rl 

CALL 

$C5TA 

CMPB 

#'  ,-(R0) 

BEQ 

20$ 

INC 

RO 

MOVB 

*'-,(RO)t 

MOVB 

#'0,(RO)t 

MOV 

2(SP),R1 

MOVB 

L.CTL(Rl) 

Rl 

BEQ 

30$ 

DEC 

RO 

CLR 

R2 

CALL 

$CBOMG 

BIT 

#ZF.MUX,(SP)+ 

BEQ 

40$ 

MOVB 

#'-,(R0)<- 

MOVB 

#"O,(R0)+ 

MOV 

(SP),R1 

MOVB 

L.UNT(Rl) 

Rl 

II 

4)$ 

4- 

CALL 

$ceoMG 

TST 

(SP)  + 

MOV 

R0,R4 

RETURN 

SAVE  SLT  ADDRESS 

REPLACE  REQUESTING  TASK'S  NAME 

LOOK  FOR  THE  SECOND  ASTERISK 


SKIP  THE 
COPY  BUF 
GET  SLT 
AND  DDM 
ADD  PDV 
GET  PDV 
SAVE  THE 
GET  DDM 
CONVERT 
DISCARD 


ASTERISK 
FER  ADDRESS 
ADDRESS 
PDV  INDEX 
TABLE  ADDRESS 
ADDRESS 

FLAGS  WORD 
PROCESS  NAME 
TO  ASCII 
TRAILING  BLANKS 


DEPOSIT  AN  UNDERSCORE 

AND  AN  ASCII  ZERO 

GET  SLT  ADDRESS 

AND  CONTROLLER  NUMBER 

IF  ZERO,  NO  WORK  TO  DO 

SKIP  THE  ASCII  ZERO 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  OCTAL 

IS  THIS  LINE  A  MULTIPLEXER  ? 

IF  EQ,  NO 

DEPOSIT  AN  UNDERSCORE 

AND  AN  ASCII  ZERO 

ELSE,  GET  SLT  ADDRESS 

AND  UNIT  NUMBER 

IF  ZERO,  NO  WORK  TO  DO 

BACKUP  OVER  ASCII  ZERO 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  OCTAL 

CLEAN  UP  THE  STACK 

SET  NEW  BUFFER  ADDRESS 
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CREF   OA.OO 


VSTI 
MAC 


SYMBOL  VALUE 


.SLOG 
SMOD 
SNOD 
SOBJ 
SPRO 

.TLGTH 
TSKHD 
.SCSR 


000170 
000216 
000162 
00022A 
000104 
****** 
****** 


R 
R 
R 
R 

D 

GX 
GX 
GX 


REFERENCES 

6-94 
6-108 
6-90 
6-96 
6-80 
26-996 
26-996 
•20-702 


#6-137 
#6-146 
#6-134 
#6-151 
#6~117 
35-1303 


35-1313 


J 


VRQB 
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VST 
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MACROS  AND  SYMBOLS  WD 

56 
57 
58 
59 
60 
61 
62  000000 


63 
6'. 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 


000011 
000001 
OOOCOl 
000001 


NG  S  MACRO  V05.03b  Saturday 
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Page  5 

lALlZATION 

.SBTTL 

ma:pos 

AND  SYMBOLS  AND 

INITIALIZATION 

.ENABLE 

LC 

.DSA8LE 

GBL 

;  DECLARE  EXTERNAL  MACROS 

.HCALL 

VNPDFS, 

I  STATS, KEYWDS,PRMPTS, STATES, TRANS 

VNPDFS 

;VNP  SYMBOLS 

TAB  =  n 

SGPRM 

=  1 

SGOFF 

=  1 

;  ONLY 

DEFINE  OFFSETS  FOR  PROMP 

T  STRINGS 

SRONLY 

=  1 

;  MAKE 

TPARS  TABLES  READ  ONLY 

;  DECLARE  GL08ALS: 

;  Prompt  string 

s 

.GLOBL 

p$ACT, 

PSAID, 

PSCLE, 

PSCLCI, 

PSCLLI, 

PSCLLO 

.GlOBL 

PSCLNO, 

PSCLOB, 

PSCOP, 

PSCOS, 

PSCRID, 

PSCSR 

.GLOBL 

PSDEA, 

PSDES, 

PSDST, 

PSDTE, 

PSDUP, 

PSEVE, 

PSGRP 

;CTD001] 

.GLOBL 

PSHOS, 

PSHTM, 

PSLGID, 

PSLIST, 

PSLNID, 

PSLOC 

;CTD001D 

.GLObL 

PSLOST, 

PSLTM, 

PSMAX, 

PSMOID, 

PSMUL , 

PSMXCO 

;CTD001] 

.GLOBL 

°$MXLI, 

PSNAD, 

PSNAM, 

PSNET, 

PSNID, 

PSNOST, 

PSOBNA 

;[TD001] 

.GLOBL 

PSOBUS, 

PSOBVE, 

PSOID, 

PSOWN, 

PSPAR, 

PSPEN 

.GLOBL 

PSPID, 

PSPRI, 

PSSCO, 

FSSEAL, 

PSSECI, 

PSSELI 

.GLOBL 

PSSELO, 

PSSENO, 

PSSEMO, 

PSSEOB, 

PSSEPR, 

PSSET, 

PSSHO 

.GLOBL 

PSSJN, 

PSSNAM, 

PSTER, 

PSTPAS, 

PSTRIB, 

PSVEC 

.GLOBL 

PSVEST, 

PSVNP, 

P$X5ST 

;  Pai-oe 

variabL 

es 

.GLOBL 

SCMAND, 

SFLAGS, 

SOPTON, 

SQUAL, 

STYPE, 

SVFLAG 

.GLOBL 

RQB, 

RQBST, 

CMSCLE, 

CMSSET, 

CMSSHO, 

.PFLAG 

.GLOBL 

FL.CNT, 

VF.ADD, 

VF.ECH, 

VF . F ; X , 

VF.ON, 

VF.PEM 

.GLOBL 

VF.PSJ, 

VF.SED 

;  Action  i  utines 

.GLOBL 

SADS, 

SANT, 

SCKLOG, 

SCOP, 

SCOST, 

SCiR, 

SCTL 

;i:T0001] 

.GLOBL 

SDACC, 

SDPAS, 

SDUSE, 

SEXNOD, 

SGRO, 

SHLPAC 

.GLOBL 

SHTM, 

SIFNNA, 

SIFALI, 

SIFLOG, 

SIFXAC, 

SIFXPR 

.GLOBL 

SIFx5s, 

tIFX9S, 

SLNAME , 

SLTM, 

SMACT, 

SMDEA 

.GLOBL 

SHXCO, 

SMXLI, 

SNADD, 

SNNAM, 

SONAM, 

SOTYP 

.GLOBL 

SOVER, 

SOWN, 

SPCIR. 

SPDT, 

SPNAH, 

SPRGCL, 

SPRI 

.GLOBL 

SSCOND, 

SSC0P1, 

SSCOPJ, 

SSC0P3, 

SSCSR, 

SSTADD, 

SSTLSH 

.GLOBL 

SSTALI, 

SSTDES, 

SSTEND, 

SSTHOS, 

SSTLND, 

SSTLSN 

.GLOBL 

SSTNAM, 

SSTNAD, 

SSTPAR, 

SSTRPA, 

SSTSNM, 

SSTTPA 

.GLOBL 

STRJ, 

STRIBA, 

SUNT, 

SVEC, 

SXMISS, 

SXTRI 

.GLOBL 

SARAD1, 

SARAD2 

SSEG, 

SINC, 

SOUT, 

SINA, 

SRET 

.GLOBL 

SXUNT, 

CKEVEB 

CKEVEC, 

CKEVEN, 

CKEVER 

VSTI 
ENT 
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VST 


ENTITV  ARGUMENT  SUBEXPRESSIONS 

671  000000 

672 

673 

674 

675  000000 

676  000000 

677  OOOOno 

678  000' .,0 
679 
680 
681 

682  000000 

683  000000 

684  000000 

685  000000 
686 
687 
688 

689  000000 

690  000000 

691  000000 

692  000000 
693 
694 
695 

696  000000 

697  000000 

698  000000 

699  000000 
700 
701 
702 

703  000000 

704  000000 

705  000000 

706  000000 
707 
708 
709 

710  000000 

711  000000 

712  000000 

713  000000 
714 
715 
716 

717  000000 

718  OOGOOO 

719  000000 

720  000000 
721 
722 
723 

724  000000 

725  000000 

726  000000 
',•21  000000 
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TRANS   SRADSO, 

SEXIT, 

SPCIR, 

VF.PSI, 

SVFLAG 

•  KNOWN  ALIASES 

STATES  ID*-NAL 
TRANS  8KSKN0 

STATES  .SPSPEN 
TRANS  SKSALIS, 

SEXIT, 

QFSKNO, 

SQUAL 

•  KNOUN  CI'KUITS 

STATES  IDKNCI 
TRANS  SKSKNO 

STATES  .gPSPEN 
TRANS  SKSCJRS, 

SEXIT, 

QFSKNO, 

SQUAL 

;  KNOWN  LINES 

STATES  IDK^NLI 
TRA"'$  &KSKN0 

STATES  ,8PSPEN 
TRANS  8KSL1NS, 

SEXIT, 

QFSKNO, 

SQUAL 

;  KNOWN  LOGGING 

SPATES  IDKNLO 
TRANS  &KSKN0 

STATES  ,8PSPEN 
TRANS  8KSL0G, 

SEXIT, 

QFSKNO, 

SQUAL 

;  KNOWN  NODES 

STATES  IDKNNO 
TRANS  8KSKN0 

STATES  ,8PSPEN 
TRANS  8KSN0DS, 

SEXIT. 

QFSKNO, 

SQUAL 

;  KNOWN  OBJECTS 

STATES  IDKNOB 
TRANS  8KSKN0 

STATES  ,&PSPEN 
TRANS  SKSOajb, 

SEXIT, 

QFSKNO, 

SQUAL 

;  KNOWN  PROCESSES 

'       STATES  IDKNPR 
TRANS  8KSKN0 
STATES  ,8PSPEN 
TRANS  SKSPROS, 

SEXIT, 

QFSKNO, 

SQUAL 

':   LINE 

STATES  IDLIN 
TRANS  &KSLIN 

STATES  ,8P$LNID 
TRANS   ILINID, 

SEXIT 

VST 
ENT 


E  k 
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VST 
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1555  000000 

1356 

1357 

1358 

1359 

1360 

1361  000000 

1362  000000 

1363  000000 
136^  000000 
1365  000000 
1J66  000000 
1367 

1368 
1369 
1370 
1371 

1372  000000 

1373  000000 
137A  000000 

1375  000000 

1376  000000 

1377  000000 
1378 

1379 
1380 
1381 
138? 

1383  000000 

1384  000000 

1385  000000 

1386  000000 

1387  000000 

1388  000000 

1389  000000 

1390  OOOOOO 

1391  000000 
1392 
1393 
1394 
1395 
1396 

139? 

1398 

1399  000000 
"  "  OflOOOO 
000000 
000000 


000000 
000000 


1400 
1^0! 
U02 
•^403 
1404 
i405 

1406  000000 

1407  ooooon 

1406  100000 
140C  00000 
1410 
1411 


TRANS  $NUM8R,$tXIT,$0U1 


•  INACTIVITY  TIMER  VALUE 

STATES  OPINA 

TRANS  &KSINA 

STATES 

TRANS  SKSTiM 

STATES 

TRANS  SNUMeR,SEXIT,IINA 

;  RETRANSMIT  FACTOR 

STATES  OPRET 

TRANS  SKSRET 

STATES 

TRANS  &KSFAC 

STATES 

TRANS  SNUMBR,SEXIT,SRET 

;  SINK  NODE  (FOR  SHOW  LOGGING) 

STATES  OPSINK 

TRANS  6KSKN0,        0PSIN1 

TRANS  &KSSNK 

STATES 

TRANS  8KSEXE,        SEXIT 

TRANS  &KSNOD 

STATES  ,aPSSIN 

TRANS   lOPSHST,       SEXIT, 

SSTLSH 

IRANS   INODID,        SEXIT, 

SSTLSN 

(COMMON  EXIT  FOR  KNOWN  SINKS) 
STATES  0PSIN1 
TRANS  aKSSNKS,       SEXIT, 


OPSKSK, 


SOPTON 


TRANSMIT  PASSWORD 


STATES 
TRANS 

STATES 
TRANS 


TRIBUTARY 


STATES 

TRANS 

STATES 


OPTPAS 
IKWTPAS 
.SPSTPAS 
SSTRNG, 


OPTRI 
8KSTRIB 
8PSTRIB 


TRANS  §DNUMB 
UNIT  CSR 


SEXIT, 


';5Xn, 


SSTTPA 


JTRiRA 
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LS.CX5= 
LS.ECH= 
LS.FDX= 
LS.HDX= 
LS.HLP= 
LS.LIN= 
LS.LMC= 
LS.LOG= 
LS.MOD= 
LS.NOD= 
LS.NT1= 
LS.OBJ= 
LS.OPT= 
LS.PRO= 
LS.TOP= 
LS.TST= 
LS.UNF= 
LS.XIT= 
LX.ALI= 
LX.CEX= 
LX.CIR= 
LX.LIN= 
LX.LOG= 
LX.NOD= 
LX.OBJ= 
LX.PRO= 
L$$ASG= 
L$$DRV= 

L$$pn  = 

L$$11R= 

MOD  ID 

M0DID5 

M00ID9 

M0DI91 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$SMGE= 

M$$Ntr= 

M$$OVR= 

NODADD 

NODD 

NOOEND 

NOD  ID 

N0DID1 

NCDID2 

N0DID3 

NODNAM 

NODX 

N$tACC= 

N$tGUF= 

N$$LDV=: 

N$$MCP= 

N$$MLL 

N$$M0V= 

N$$NCT= 

N$$PEM= 


000400 

001000 

004000 

OTOOOO 

000012 

000003 

000007 

000020 

000036 

OOOOH 

000013 

000022 

OOOAOO 

000002 

002000 

000010 

020000 

000011 

000017 

000004 

000034 

000006 

000021 

00001 5 

000023 

000005 

000000 

000000 

000001 

000000 

004204R 

004220R 

004262R 

004276R 

000124 

000000 

000000 

000000 

000000 

000000 

00431 2R 

004344R 

007030P 

&04352R 

004376R 

004412R 

0C4420R 

0O'.466R 

00'i324R 

000001 

000001 

ooooo: 

O0OOC1 
000001 
000010 
000001 
000001 


OBJ  ID 
OF$INS= 
OF$LOG= 
OF$OFF= 
OF$ON  = 
OF$SMC= 
OPA 
OPADD 
OPADS 
GPAD2 
OPANT 
OPCCSR 
0PCCS1 
OPCIR 
OPCOP 
OPCOS 
OPCSNM 
OPDES 
OPDESV 
OPDST 
0PDST1 
OPDUP 
OPEVE 
0PEVE1 
OPGRO 
0PGR01 
OPHA 
OPHOS 
OPHTM 
OPINA 
002  OPINC 
002  OPLG''^ 
002  OPLIN 
002  OPLNST 
OPLOC 
0PL0C1 
OPLTM 
OPHACT 
OPMDEA 
OPMXCO 
002  OPMXLI 
002  OPNAM 
002  OPNOD 
002  OPNOST 
002  OPOBNA 
00?  OP03VE 
002  OPOUT 
002  C^OWN 
U02  OPPAR 
OPPDT 
0PPDT1 
OPPRI 
OPRET 
OPRP/:S 
OPSCO 
0PSC01 
0PSC02 


004474R 

000001 

000100 

000002 

000000 

000200 

005572R 

005544R 

004640R 

004660R 

004674R 

004510R 

004516R 

004540R 

004556R 

004604R 

0061 34R 

004622R 

004624R 

004714R 

004742R 

00501  OR 

005040R 

005062R 

005072R 

005120R 

0051 76R 

0051 50R 

005130R 

006304R 

006260R 

005334R 

00521  OR 

005226R 

005272R 

005312R 

005252R 

005404R 

005516R 

005432R 

005464R 

0O562'.R 

005604R 

005642R 

005712R 

0n6536R 

006272R 

005730R 

005746R 

004752R 

005000R 

00'^770R 

D06316R 

00601 2R 

006032R 

006042R 

C06052R 


002  OPSEG 
OPSER 
OPSHST 
OPSIN 
OPSINK 
0PSIN1 
002  CPSNAM 
002  OPTPAS 
002  OPTRI 
002  OPUCSR 
002  0PUCS1 
002  OPUSE 
002  OPVEC 
002  OPVER 
002  0PVER1 
002  0PX5ST 
002  OP$ADD= 
002  OP$ALL= 
002  OP$CCS= 
002  0P$CIE= 
002  0P$C0N= 
002  0P$C0P= 
002  0P$COS= 
002  CP$DST= 
002  OP$DTE= 
002  0P$DUP= 
002  0P$EST= 
002  OP$EVE= 
002  OP$FIL= 
002  OP$GRP= 
002  aP$HOS= 
002  OP$HTI«!= 
002  OP$INA= 
002  OP$INC= 
002  OP$KDS= 
002  OP$KDT= 
002  OP$KEV= 
002  OP$KGR= 
002  0P$KNT= 
002  OP$KSK= 
002  OP$LCT= 
002  0P$LNE= 
002  0P$L0C= 
002  0P$LSr= 
002  OP$LTM= 
002  OP$LVL= 
002  OP$MAC= 
002  0P$MCO= 
002  OPSMDE--: 
002  OP$MLI= 
002  0P$MON= 
002  OPSMST-- 
002  OPtNAM= 
002  OP$NET= 
002  OP$NLI= 
OP$NOD= 
OP$OUT= 


C02 
002 


006244R 

00611 6R 

006230R 

0061 60R 

006330R 

006372R 

006140R 

006402R 

006422R 

006440R 

006446R 

00C470R 

006514R 

006574R 

006604R 

005360R 

000200 

000200 

000004 

004000 

000400 

000001 

000100 

000200 

000040 

000002 

000100 

010000 

000200 

000100 

000001 

000002 

004000 

001000 

002000 

000400 

001000 

001000 

010000 

002000 

000200 

000040 

000001 

000002 

000001 

000010 

000010 

000002 

000400 

000004 

000100 

000020 

000004 

004000 

000002 

OOC.^20 

002000 


002  OP$OWN= 

002  OP$PAR= 

002  OP$PRI= 

002  OP$RET= 

002  OP$RPA= 

002  OP$SCO= 

002  OP$SEG= 

002  OP$SER= 

002  OP$SIN= 

002  0P$STA= 

002  OP$TPA= 

002  OP$TRI= 

002  OP$UCS= 

002  OP$USE= 

002  OP$VEC= 

002  OP$VER= 

0P$XAC= 

0P$XPP= 

0P$X5S= 

0P$X9S= 

PARTAB 

PAS 

PEMSTA 
PROID 

p$a:t  = 

PSAID  = 
P$CLCI= 
P$CLE  = 
".CLLI  = 
P$CLLO= 
P$CLNO= 
P$CLOB= 
P$COP  = 
P$COS  = 
P'  RID= 
F-vCSR  = 
P$DEA  = 
t>$DES  = 
"-SDST  = 
P$DTE  = 
PIDUP  = 
P$EVE  = 
P$GRP  = 
PSHOS  = 
PIHTM  = 
P$LGID= 
P$LIST= 
P$LNID= 
P$LOC  = 
P$LOST= 
P$LTM  = 
F$MAX  = 
P$MOID= 
PSMUL  = 
P$MXCO=^ 
P$MXLI= 
P$NAD  = 


000020 

000010 

000010 

010000 

000010 

000001 

000400 

000400 

000010 

000004 

000020 

000040 

000020 

000002 

000040 

000040 

000001 

000002 

000004 

000010 

OOOOOORG 

004026R 

000040R 

004502R 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


P$NAM  = 
P$NET  = 
PSNID  = 
P$NOST= 
P$OBNA= 
P$OBUS= 
P$03VE= 
P$0ID  = 
P$0WN  = 
P$PAR  = 
P$PEN  = 
P$PID  ^ 
P$PRI  = 
P$SC0  = 
P$SEAL= 
P$SECI= 
P$SELI= 
PSSELO^ 
P$SEM0= 
P$SENO= 
002  P$SEOB= 
002  P$SEPR= 
P$SET  = 
002  P$SHO  ^ 
P$SIN  = 
P$SNAM= 
PSTER  = 
P$TPAS= 
P$TRIB= 
P$VEC  = 
P$VEST= 
PSi/iMP  = 
P$X5ST= 
P$$P45= 
P$$WRD= 
QF$ACT= 
QF$ALL= 
QF$KNO= 
QF$L00= 
Q$$OPT= 
REJECT 
RQB 

RQBST  = 
R$$DER= 
R$$K11= 
R»$SND= 
RJ$11M= 
SEAL 
SEAL1 
SEAL2 
SECi 
SECIOP 
SELI 
SELIOP 
5EL3 
SELOOP 
SEMO 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

*  *  *  ^,  *  ^ 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
000000 
000000 
000001 
000002 
000004 
000010 
000010 
0001 26R 

*  *♦**  G 
******  (3 
000000 
000001 

cooooo 

000000 
001030R 
001056R 
001072R 

oor  iOR 

00112rR 

001d-'-iP 
0012curt 
001402R 
001414R 
001754R 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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VSYM 

CREATED  BY 

MACRO  ON  29-JUN-85  AT  03:07 

PAGE 

SYMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VALUE 

REFERENCES 

.MXTAB 

000023 

C, 

#5-95 

.NODE 

00002A 

G 

#5-96 

.PECHA 

0000A5 

G 

#5-113 

.PRl 

000025 

fi 

#5-97 

.PRTCV 

000026 

G 

#5-98 

.SBPCB 

000066 

G 

#5-152 

.SCOM 

000027 

G 

#5-99 

.SECSR 

000030 

G 

#5-100 

.SLNB 

000031 

G 

#5-101 

.SLNW 

000032 

G 

#5-102 

.STNB 

000033 

G 

#5-03 

.STNW 

00003^ 

G 

#5-- 04 

.TIME 

000043 

G 

#5-111 

.UNB 

000035 

G 

#5-105 

.UNW 

000036 

G 

#5-106 

.WORD 

000037 

G 

#5--;o7 

.X2CH1 

000061 

G 

#5-125 

.X2CH2 

000062 

G 

#5-126 

.X2CH3 

000063 

G 

#5-127 

.X2CHA 

00006A 

G 

#5-128 

.X2CH5 

000065 

G 

#5-129 

.X3C01 

000046 

G 

#5-114 

.X3C02 

000047 

G 

#5-115 

.X3C03 

000050 

G 

#5-116 

.X3C04 

000051 

G 

#5-117 

.X3C05 

000052 

G 

#5-118 

.X3C06 

000053 

G 

#5-119 

.X3C07 

000054 

G 

#5-120 

.X3C08 

000055 

G 

#5-121 

.X3C09 

000056 

G 

#5-122 

.X3C10 

000057 

G 

#5-123 

.X3C11 

000060 

G 

#5-124 

D  8 


04.00 


VSYM 


CRFATFD  BY   MACRO  ON  29-JUN-85  AT  03:07 
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E  8 


I 


VTMP  - 
tBUfCK 


VNP  TEMPLATE  PROCESSING 
-  CHECK  NEXT  128.  BYTES 


D  9 
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368  000532 

369  00053A 

370  000536 

371  0005A0 

372  000542 

373  000550 
37A  000556 
375 

376 

377 

378 

379 

380  000560 

581  000564 

382  GP0566 

383  0  C572 
384 

385 
386 
387 
388 

389  000574 

390  000602 

391  000606 
392 

393  000614 

394 

3^5 

396 

397 

398  000630 

399  000712 

400  000776 

401  001046 
402 

403 


112220 
005301 
001375 
010004 
066767 


004267 
010400 
162700 
000664 


012767 
010467 
162767 


OOOOOOG  00002' 


OOOOOOG 
OOOOOOG 


20$: 


90$: 
100$: 


MOVB 

(R2)+,(R0)+ 

DEC 

Rl 

BNE 

20$ 

MOV 

R0,R4 

ADD 

$RS1ZE,$LINK 

SWTCHO 

RETURN 

SHIFT  LEFT 

TILL  DONE 

RESTORE  NEXT  FREE  BYTE  POINTER 

UPDATE  LINK  VALUE 

POINT  BACK  AT  DEFAULT  BUFFER 


ALTERNATE  ENTRY  TO  FORCE  REMAINDER  OF  BUFFER  TO  BE  REURITTEN 


BUFCK:   JSR  R2,tSAVVR 

MOV  R4,R0 

SUB  *$TMPBF,RO 

BR  10$ 


ERRORS 


OOOOOOC  000002G  110$: 

OOOOOOG 

OOOOOOG  OOOOOOt 


MOV  #<$TMPND-$TMPBF>,$BFR+2 

MOV  R4,$BFR 

SUB  #$TMPBF,$BFR 

ERRPT$  ERR1,$ER0UT, FATAL 


SAVE  VOLATILE  REGISTERS 
CALCULATE  SIZE  OF  TRANSFER 

AND  GO  DO  IT 


;  SIZE  OF  TEMPLATE  PROCESSING  BUFFER 
ADDRESS  BUFFER  IS  FILLED  TO 
MINIMUM  SIZE  NEEDED 


ERROR  MESSAGES 

ERMSG$ 
ERMSG$ 
ERMSG$ 
ER8LK$ 


<Insuf f icient  space  in  template  processing  bufferJin> 

<(  TMP$$A  PSECT  ).  Current  size  is  XO   bytes,  but  it5!n> 

<sliould  be  expanded  to  at  least  %0   bytes. > 
ERR1,<$BFRt2,$8FR> 


.DSABL  LS8 
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L 


V"MP      CREATED  BY  MACRO  ON  29-JUN-85  AT  03:08 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


tRADDR 

SRBLCK 

SREP.C 

$RQ1 

$RQ2 

$RQ3 

SRGA 

$RQ5 

tRQ7 

SRSIZE 

tSADDR 

tSAVAL 

SSAVVR 

SSIZE 

SSZPTR 

STADDR 

STERR 

S^IOUT 

STMALT 

STMCHK 

STMFIL 

STMFIX 

STMLTA 

$TMP 

STMPBF 

STMPKJ 

STMPND 

STMPST 

STMVCT 

STM.IN 

STPARS 

STWARN 

$TWH 

SUB  I  AS 

$UDA 

SVALUE 

SVECTI 

SVECT2 

$VECT3 

SVEXP 

tVFDDM 

SVFDLC 

SVFLVl 

SVFSPC 

$$ 

$$$ 

$$f$ 

.ABFI 

.BYTE 

.TPARS 


****** 

GX 

»**«** 

fix 

****** 

(iX 

001226 

RG 

001220 

Rfi 

001212 

RG 

001204 

RG 

001176 

RG 

001170 

RG 

****** 

(iX 

OOOOH 

RG 

*t **** 

GX 

**;**** 

GX 

000012 

RG 

000036 

RG 

000016 

RG 

OOU70 

RG 

****** 

GX 

****** 

GX 

****** 

GX 

000066 

R 

000220 

RG 

****** 

GX 

000000 

RG 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

00U44 

RG 

00K6C 

RG 

00005A 

RG 

000056 

RG 

000276 

RG 

000262 

RG 

000264 

RG 

000266 

RG 

****** 

GX 

001 3A4 

RG 

001364 

RG 

00K16 

RG 

001404 

RG 

177777 

u0063i 

> 

00105! 

R 

00023 

■^G 

***** 

GX 

***** 

GX 

REFERENCES 

*10-342 
♦10-345 

7-194 
#13-489 
#13-487 
#13-485 
#13-483 
#13-481 
#13-479 
»10-343 
#6-115 

8-245 

10-331 
#6-114 
#6-125 
#6-116 

7-194 

12-453 

8-231 

8-230 

8-228 
#8-272 

8-236 
#8-223 

10-334 

10-391 

8-257 

10-334 

8-258 

8-234 

8-225 

8-227 
#18-609 
#18-614 
#6-127 
#6-128 
#6-150 
#6-; 40 
#6-141 
#6-142 

8-232 
#15-537 
#16-554 
#17-580 
#17-576 

10-398 
#10-401 
#10-398 
#10-401 
#8-279 

14-522 

8-259 


♦10-350 
♦8-224 
13-620 
10-380 
8-248 
♦8-247 
10-342 
7-195 
18-640 


#8-245 


9-302 
•8-250 


0  10 

PAGE   3 

CRFP       04.00 


♦lC-349         ^10-356 
♦10-348 
7-195  7-196 

14-520 


10-351 
9-299 


vlO-361 
8-248 
10-346 
7-196 


8-273 


7-197 


7-198 


$■ 
$; 


♦10-353    ^10-359    10-367 


10-372 


14-518 
♦8-266 
♦10-360 

7-197 


10-334     10-337     10-341 
10-337    10-339    10-364 


8-231 
18-616 


♦U-524 
17-581  17-581 

7-198  #18-617 


10-362    10-364 
10-389 


10-36^ 


10-382 


10-389 


10-398         #10-398 
10-401 


10-399 


10-399         #1C-399 


10-400 


10-400        #10-400 


VTMP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  03:08     PAGE  4 
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[ 


VTMPIN     CREATED  BY 
SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


MACRO  ON  29-JUN-C5  AT  03:08 


D  11 

PAGE  2 

CREF   OA.OO 


REFERENCES 


STWE 

~       ****** 

r,x 

7-86 

$XBUF2 

=   »♦**** 

r,x 

8-118 

SXLEN2 

~       ****** 

GX 

8-120 

SSCSR 

r  ****** 

GX 

8-154 

$$VECT 

■=.     ****** 

GX 

8-171 

.MGMGE 

=  ****** 

GX 

9-2U 

8-119 


CRFAIFn   RV      MACRfl      ON   P9-JUN-85    AT   03:08 
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tVTST  -  VNP  TESTING  ROUTINES 
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456  004006 

457  004010 

458  004014 

459  004020 

460  004024 
461 

462 
463 
464 

465  004026 

466  004026 

467  004032 

468  004036 

469  004042 

470  004044 

471  004050 

472  004054 

473  004056 

474  004060 

475  004064 

476  004066 

477  004072 
478 

479 
480 

481  004074 

482  004074 

483  004100 

484  004104 

485  004110 

486  004112 
487 

488  004114 

489 

490 


001406 
016746 

012667 


016^46 
010C67 

103411 
016700 
122720 
001775 
005300 
010067 
000241 
012667 


016700 

016701 
160100 


000001 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOCOG 


OOOOOOG 
000040 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


BEQ 
MOV 
CALL 
MOV 
50$:    RETURN 


50$ 

$FMASK,-(SP) 
$VIMO 
(SP)+,$FMASK 


NO  If  EO 
SAVE  THE  MASK 
OUTPUT  COMM  EXEC 


USE  GCL  TO  GET  INPUT  FROM  USER 
PROMPT: 


10$: 


20$: 


MOV 

MOV 

GCL$ 

BCS 

MOV 

CMPB 

BEG 

DEC 

MOV 

CLC 

MOV 

RETURN 


$CLPMT,-(SP) 
RO,$CLPMT 

20$ 

tCLBUF.RO 

*40,(R0)t 

10$ 

RO 

R0,$CLBUF 


CVBTO 
CVBTO. 


(SP)+,$CLPMT 
CONVERT  BINARY  TO  OCTAL 


MOV 

CALL 

MOV 

SUB 

RETURN 

ENTEXT 

.END 


$CLBUF,RO 
$CBTA 
$CL8UF,R1 
R1,R0 


SAVE  CURRENT  PROMPT  STRING 
SET  NEW  PROMPT  STRING 
GET  COMMAND  ^INE 
IF  CS,  EOF 
POINT  TO  BUFFER 

SKIP  blan::s 

IF  EQ,  MORE 

WENT  TOO  FAR 

UPDATE  BUFFER  POINTER 

MAKE  SURE  CARRY  CLEAR  ! 

RESTORE  PREVIOUb  PROMPT 


POINT  TO  OUTPUT  BUFFER 
CONVERT  BINARY  TO  OCTAL 
POINT  TO  START  OF  BUFFER 
CALCULATE  LENGTH  OF  STRING 


;  END  OF  TEXT  STRINGS 


VTST  -  VNP  TESTING  ROUTINES 
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221 

222 

223 

22^ 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238  000172 

259  000176 

2A0  000200 

241  00020A 

242  000210 

243  000212 

244  000216 

245  000220 

246  000224 

247  000226 

248  000232 

249  000234 

250  000236 

251  000244 
252 

253 
254 
255 
256 
257 
258 
259 
260 

261  000252 

262  000262 

263  000264 

264  000272 

265  000300 
266 

267 
268 
269 
270  000302 


SDEUMR  -  DE-ASSIGN  UNIBUS  MAPPING  REGISTERS 

THIS  ROUTINE  IS  CALLED  TO  SCAN  THE  LIST  OF  CURRENTLY  ALLOCATED  UMR'S 
(SUMRHD)  AND  TO  UNLINK  THE  CALLER'S  UMR  BLOCK. 

INPUTS; 


R2=UMR  BLOCK  REAL  MEMORY  ADDRESS 
.UMRHD^VALUE  OF  tUMRHD  FROM  RSX11M.STB  FILE 


ON  MULTIPROCESSOR  RSX-11M-PLUS  SYSTEMS, 
THE  BIAS  THE  CPU'S  DATA  AREA. 

OUTPUTS: 

C-BIT=:SUCCESS/FAILURE 

ALL  REGISTERS  ARE   PRESERVED 


.CPBIA  MUST  BE    SET    TO 


010200 

062700  000002 

000402 

103422 

026700  000000' 

001372 

162700     000002 

020003 

001022 

016767  000014' 


000000' 


000241 


IdEUMR: 

:CALL 

$SAVAL 

MOV 

R2,R0 

ADD 

#2,R0 

CALL 

GFIRST 

BR 

20$ 

10$: 

CALL 

GNEXT 

20$: 

BCS 

30$ 

CMP 

PREV.RO 

BNE 

10$ 

SUB 

#2,R0         ; 

CMP 

R0,R3 

BNE 

101$ 

MOV 

NEXT.PREV      ; 

SWTLHO 

#PREV 

.IF  DF 

R$$MPL 

TST 

.MPRO         ; 

BLT 

25$ 

NOV 

$CPEIA,$RBLCK 

PUTAD 

R2 

BR 

27$ 

.ENDC 

25$: 

PUTRC 

R2 

27$: 

CLC 

30$: 

SWTCHI 
SWTCHO 
RETURN 

;  ERROR 

CONDITION 

SAVE  ALL  REGISTERS 

COPY  BLOCK  ADDRE3S 

EACH  BLOCK  POINTS  AT  NEXT+2 

GET  FIRST  UMh  aLOCK(S) 

GET  NEXT  UMR  BLOCK 

IF  CS,  FAILURE 

DOES  PREVIOUS  BLOCK  POINT  AT  OURS? 

IF  NE,  NO 

RESTORE  ORIGINAL  BLOCK  ADDRESS 

IS  OUR  BLOCK  THE  NEXT  ONE? 

IF  NE,  NO  -  VERY  BAD 

COPY  OUR  POINTER  INTO  HIS 

CHANGE  DEFAULT  BUFFER 


MULTIPROCESSOR  SYSTEM  ? 
IF  NO  -  BRANCH 
MAP  TO  CPU  BIAS 
REWRITE  PREVIOUS  BLOCK 
CONTINUE 


RE-WRITE  PREVIOUS  BLOCK 
INDICATE  SUCCESS 
RESET  DEFAULT  BUFFERS 


UMR  BLOCKS  ARE  SCREWED  UPI 


;rMP01] 
;[HP01] 
;[MP01] 
;[MP01] 
;[MP01] 
;[MP01] 
;lMP013 
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VUNL    -   VNP  UNLOAD   ROUTINES 
DEAECL    -  DEALLOCATE    ECL   NODE 


507 
508 
509 
510 
511 

512 

513 

5H 

515 

516 

517 

518 

519 

520 

521 

522 

523  001226 

52^;  001226 

525  0012A4 

526  001250 

527  001252 

528  001256 

529  001262 

530  001266 

531  001272 

532  001506 

533  001312 

534  001316 
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MACRO  V05.03b  Monday  16-iep-85  07:30  Page  11 
COUNTERS 

.SBTTL  DEAECL  -  DEALLOCATE  ECL  NODE  COUNTERS 

DEAECL  -  DEALLOCATE  ECL  NODE  COUNTER  BLOCK 

INPUTS: 

R3  -  VIRTUAL  ADDRESS  OF  ECL'S  DDB 
R4  -  ADDRESS  OF  fCL'S  PDV 

OUTPUTS: 

R3  -  PRESERVED 
R4  -  PRESERVED 
ECL  NODE  COUNTER  BLOCK  IS  DEALLOCATED 


DEAECL: 


016701  000044G 
00U22 

062701  000050 

166701  0000420 

062701  000077 

042701  000077 

016700  000046G 


10$: 


GETRV 
MOV 
BEQ 
ADD 

sue 

ADD 

BIC 

ASR$ 

MOV 

CALL 

RETURN 


R3,#N$ELEN 

N$ENC+2+$BFR,R1 

10$ 

#E$NLEN,R1 

N$ENC+$BFR,R1 

#77, R1 

#77, R1 

6.R1 

N$ENC+4+$BFR,R0 

$DEA18 


Read  ECL  DDB  into  $BFR 

GET  START  OF  LAST  NODE  COUNTER  BLOCK 

IF  NO  COUNTERS  -  BRANCH 

POINT  TO  END  OF  COUNTER  BLOCK 

CALCULATE  NUMBER  OF  BYTES 

ROUND  TO  NEXT  BLOCK  BOUNDARY 

CONVERT  TO  BLOCK  COUNT 

GET  APR  BIAS 

DEALLOCATE   NODE    COUNTERS 


535 


uwp  iiui  nin   nniiT  iMPt; 
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VUNL   -   VNP  UNLOAD   ROUTINES 
VECT   -  RESET    INTERRUPT   VECTORS 


1005 

1006 

1007  002510 

1008 

1009 

1010 

1011 

1012 

1013 

lOlA  002522 

1015  002526 

1016  002532 

1017  002536 

1018  0025A2 

1019  00254A 

1020  002552 

1021  002556 

1022  002560 

1023  002566 
102A  002574 
1025  002576 
1026 

1027  002602 

1028  002602 

1029  002604 

1030  002610 

1031  002614 

1032  002626 

1033  002632 

1034  002634 

1035  002640 

1036  002644 

1037  002646 

1038  002650 

1039  002654 

1040  002656 

1041  002660 

1042  002662 

1043  002664 

1044  002670 

1045  002672 

1046  002672 

1047  002676 
1048 

1049 

1050  002704 

1051 

1052 

1053 

1054 

1055 

1056  002724 

1057  002726 

1058  002730 
1059 

1060 
1061 
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005067 

000174' 

005C67 

000176' 

005067 

000200' 

020227 

120000 

103403 

152767 

000001 

000200' 

103445 

152767 

000002 

000200' 

132767 

000001 

000200' 

001402 

011067 

000174' 

010004 

162704 

OOOOOOG 

042704 

000077 

017404 

000130' 

010046 

162716 

OOOOOOG 

042716 

177700 

006216 

006216 

062716 

OOOOOOG 

010420 

012620 

020001 

103003 

103344 

005067 

OOOOOOG 

10$: 


30$: 


40$: 


005700 
001402 


60$: 


.IF  NDF  R$$MPL 
GETRV   ,$MXVCT 


.IFF 
GETAD 

.ENDC 

CLR 
CLR 

CLR 

CMP 

BLO 

BIS8 

CALL 

BCS 

BISB 

BITB 

BEQ 

MOV 


,$MXVCT 


K8SAV 

IC8SZ 

PRLTA 

R2.*1 20000 

lOi 

ffPR.LTA, PRLTA 

IC8SC 

40$ 

#PR. SEC, PRLTA 

#PR.LTA, PRLTA 

30$ 

(R0),ICBSAV 


MOV  R0,R4 

SUB  #$8FR,R4 

BIC  #77, R4 

ASRS  5,R4 

MOV  aNSlTAB(R4),R4 

MOV  R0,-(SP) 

sue  *$BFR,(SP> 

BIC  #»C<77>,(5P) 

ASR  (SP) 

ASR  (SP) 

ADD  #PR7,(SP) 

MOV  R4,(R0)+ 

MOV  (SP)+,(RO)+ 

CMP  RO.RI 

BHIS  40$ 

CALL  ICBSC 

BCC  30$ 

CLR  $RADDR 
SWTCHO 

.IF  NDF  R$$MPL 

PUTRC  #0,$MXVCT 

.IFF 

PUTAD  #0,$MXVCT 

.ENDC 

TST  RO 

BEQ  111$ 
RETURN 


ERROR  CONDITIONS 


AN  IMAGE  OF  VECTOR  SPACE 
READ  VECTOR  AREA 


START  ADDRESS  OF  KB 

SIZE  OF  AN  KB 

FLAG 

PARTITION  LINE  TABLE  ALiOCATION 

NO  IF  LOW 

SET  FLAG  SO  WILL  KNOW  LATER 

SEE  IF  VECTOR  POINTS  AT  KB 

NONE  IF  SET 

INDICATE  BEEN  THRU  VECSC  ONCE  OR  MORE 

PARTITION  LINE  TABLE? 

NO  IF  EQ 

START  OF  KB 


COPY  VECTOR  ADDRESS 

>:oNVERT  TO  REAL  VECTOR  ADDRESS 

DISCARD  LOW  6  BITS 

CONVERT  70  A  WORD  INDEX 

GET  APPROPRIATE  VECTOR  CONTENTS 

COPY  VECTOR  ADDRESS  AGAIN 

AGAIN  CONVERT  TO  REAL  VECTOR  ADDRESS 

GET  LOW  6  BITS 

DIVIDE  BY  4 

GIVING'DEFAULT  PRIORITY 
RESTORE  THE  VECTOR 


DONE? 

IF  HIS,  YES 

DOES  NEXT  VECTOR  POINT  AT 

IF  CC,  YFS 


;[MP01] 


;[MP01] 
;[MP0n 

;[MP01] 


OUR  LINE  TABLE? 


WRITE  FRO!"!  VIRTUAL  ZERO 

USE  DEFAULT  BUFFER  TO  OUTPUT 


REWRITE  UPDATED  VECTOR  IMAGE 
REWRITE  UPDATED  VECTOR  IMAGE 


WAS  AT  LEA  J  1  VECTOR  FOUND? 
IF  EO,  NO 


;[;MPOn 

;[MP01] 
;[MP01] 

;[MP01] 


\ir\C      A7U 
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DEQNTI  -  DEALLOCATE  BLOCK  QUEUED  TO  NTINIT 


1^. 


Page  35 


1289 
129C 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
150C 
1301 
1502 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
13:2 
1313 
1314 
1315 
1316 


.SBTTL  DEQNTI  -  DEALLOCATE  BLOCK  QUEUED  TO  NTINIT 

♦**  -  DEQNTI  -  DEALLOCATE  BLOCK  QUEUED  TO  NTINIT,  AND  REMOVE 
THE  ENTRY  FROM  THE  CLOCK  QUEUE. 

INPUTS: 

R5  =  NTINIT'S  TCB  ADDRESS 

OUTPUTS: 

NONE. 


003640 

003640 

003656  016700  00001 2G 

003662  001413 

003664  005067  0000126 

003670  010504 

003672  062704  000012 

003676  010467  00001 4G 

003702 

003706 

003712 

003716 

003734 

000001 


DEQNTI: 


10$: 


R5,.TLGTH 

T.RCVL+$BFR,R0 

10$ 

T.RCVL+$BFR 

R5,R4 

#T.RCVL,R4 

R4,T.RCVL+2+$BFR 

$DEA16 
CLQREM 


GETRV 
MOV 

5^9 
CLR 
MOV 
ADD 

MOV 

PUTRC 

CALL 

CALL 

GETRV   R5,.TLGTH 

RETURN 

.END 


READ  IN  NTINIT'S  TCB 

POINT  AT  THE  SEND  DATA  PACKET 

IF  EQ,  ACP  NOT  MOUNTED 

REMOVE  ENTRY  FROM  NTINIT'S  QUEUE 
COPY  THE  TCB  ADDRESS 
CALCULATE  ADDRESS  OF  QUEUE 
POINT  QUEUE  AT  ITSELF 

REWRITE  THE  TCB 

DE-ALLOCATE  THE  SEND  DATA  PACKET 

REMOVE  hJN  REQUESTS  FROM  CLOCK  QUEUE 

PUT  NTINIT'S  TCB  BACK  IN  $BFR 


VRQ 

MAC 

MAC 

ASL 
CAL 


CAL 
DCB 
EMS 
EMS 


GET 
GET 
NTL 


PUl 
RAN 

RES 
RET 


SA^ 
SWi 
5W1 
TCE 
UCE 
VNf 
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MACRO  CROSS  REFERENCE 


E  2 

PAGE  10 

CREF   OA.OO 


VST 
KE" 


MACRO  NAME 

ASL$ 
CALL 


CALLR 
DCBDFS 
EMSG$ 
EMSGSR 


GETAD 
GETRV 
NTLERS 


PUTRC 
RAND 

RESRG 
RETURN 


SAVRG 

5WTCHI 

SWTCHO 

TCBDFS 

UCBDFS 

VNPDFS 


REFERENCES 

#5-59 

9-282 

2A-863 

30-1137 

3A-128^ 
#5-60 
#5-60 
#5-59 
#5-59 

15-^82 

22-751 
#5-60 
#5-59 
#5-59 

8-218 

8-,.'28 
#5-i9 
#24-863 
#26-1003 
#5-60 

9-289 

18-571 

26-1008 
#5-60 
#5-59 
#5-60 
#5-60 
#5-60 
#5-59 


20-685 

U-399 

2A-870 

30-1U3 

35-1303 

2A-809 

5-64 

24-850 

9-294 

15-483 

23-776 

24-863 

8-209 

8-219 

8-229 

24-885 

24-863 

26-1003 

10-302 
19-635 
27-1032 

9-287 

9-288 

5-66 

5-65 

5-63 


14-411 
24-885 
30-1156 
35-1310 


24-903 
11-323 
19-640 
24-805 

24-870 

8-210 

8-220 

8-230 

35-1310 
#24-870 
#35-1303 

11-325 
20-706 
28-1064 

24-869 
24-884 


15-470 
24-903 
30-1159 
35-1311 


12-360 
19-641 
24-820 

26-969 
8-211 
8-221 
8-231 

24-870 
35-1303 

11-340 
21-730 
29-1117 


17-535 
26-947 
32-1193 
35-1312 


13-379 
19-642 
24-877 

26-996 
.s-212 
8-222 
8-232 

#24-885 
#35-1310 

12-356 
22-759 
30-1161 


18-569 
26-954 
^2-1206 
35-1313 


14-447 
19-643 
25-934 

26-1003 
8-213 
8-223 
8-233 

24-885 
35-1310 

13-375 
21-177 
31-1176 


19-592 
26-957 
33-1226 


14-448 
20-711 
26-975 

35-1303 
8-214 
8-224 
8-234 

#26-969 
#35-1313 

14-;43 
24-847 
32-1208 


19-618 
26-969 
34-1251 


14-449 
20-712 
29-1123 

35-1313 
8-215 
8-225 
8-235 

26-969 
35-1313 

15-477 
24-907 
33-1234 


22-743 
26-996 
34-1263 


14-450 
20-713 


8-216 
8-226 
8-236 

#26-996 


16-521 
25-929 
34-1287 


24-850 

26-1003 

34-1274 


14-451 
20-714 


8-217 
8-227 
8-237 

26-996 


17-548 
26-978 
35-1314 


••FILE*«ID«»VSET 
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VST 


VSTB  -  VNP  COMMAND  PROCESSING 

KEYWORDS 

105 

104 

105 

106 

107 

108 

000000 

109 

110 

111 

112 

000000 

113 

000000 

IV. 

000000 

115 

000000 

116 

000000 

117 

000000 

118 

000000 

119 

000000 

120 

000000 

121 

000000 

122 

000000 

123 

OOOoOO 

124 

000000 

125 

OOOOOO 

126 

OOOOOO 

127 

OOOOOO 

128 

OOOOOO 

129 

OOOOOO 

130 

OOOOOO 

131 

OOOOOO 

132 

OOOOOO 

133 

OOOOOO 

134 

OOOOOO 

135 

OOOOOO 

136 

OOOOOO 

137 

OOOOCO 

138 

OOOOOO 

139 

OOOOOO 

140 

OOOOOO 

141 

OOOOOO 

142 

OOOOOO 

143 

OOOOOO 

144 

OOOOOO 

145 

OOOOOO 

146 

OOOOOO 

147 

OOOOOO 

148 

OOOOOO 

149 

OOOOOO 

150 

OOOOOO 

151 

OOOOOO 

152 

OOOOOO 

153 

OOOOOO 

154 

OOOOOO 

155 

OOOOOO 

i:6 

OOOOOO 

157 

OOOOOO 

158 

OOOOOO 

159 

OOOOOO 
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.SBTTL  KEYWORDS 
**** 

TPARS  STATE  TABLES 
**** 

ISTATS  PARTAB.KEYTAB 


DEFINE  KEYWORDS 


KEYUDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYJDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYUDS 
KEYWDS 
KEYWDS 
KEYWDS. 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYUDS 
KEYWDS 


"ACCOUNT", 
"ACCESS", 
"ACTIVE", 
"ADDRESS  , 
"ALIAS", 
"ALIASES", 
"ALL", 
■BUFFER", 
"CHARACTERISTICS' 
"CIRCUIT", 
"CIRCUITS'', 
"CLEAR", 
"CONSOLE", 
"CONTROLLER", 
"CONTROLLERS  ', 
"COPIES", 
"COST", 
"COUNTER", 
"CSR", 
•DEAD", 
"DEFAULT", 
"DESTINATION", 
"DESTINATIONS  ', 
"DISABLE", 
"DTE", 
"DTES'', 
"DUPLEX", 
"ECHO", 
"ENABLE", 
"EVENTS", 
"EXECUTOR", 
"EXIT", 
"FACTOR", 
"FILE", 
"FIRSTFIT", 
"FIXED", 
"FULL", 
"GLOBAL", 
"GROUP", 
"GROUPS  , 
"HALF", 
"HELP", 

"hello'', 

"HOST", 

"INACTIVITY", 

"INCOMING", 

"INSPECT", 

"KNOWN", 


KSACC 

KSACES 

KSACT 

KSADD 

KSALI 

KSALIS 

KSALL 

KSBUF 

KSCHA 

KSCIR 

KSCIRS 

KSCLE 

KSCNSL 

KSCON 

KSCONS 

KSCOP 

KSCOS 

KSCOU 

KSCSR 

KSDEA 

KSDEF 

KSDES 

KSDESS 

KSDIS 

KSDTE 

KSDTES 

KSDL'P 

KSECH 

KSENA 

KSEVE 

KSEXE 

KSEXI 

KSFAC 

KSFIL 

KSFIR 

KSFIX 

KSFUL 

KSGLO 

KSGRP 

KSGRPS 

KSHAL 

KSHEL 

KSHTM 

KSHOS 

KSINA 

KSINC 

KSINS 

KSKNO 
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ENTITY  ARGUMENT  SUBEXPRESSIONS 

728 
729 
730 

731  OOOGOO 

732  000000 

733  000000 
73^  000000 
735 
736 
737 

738  000000 

739  000000 
7h0  000000 
7^1  OOOOOO 
7A2 
743 
744 

745  OOOOOO 

746  OOOOOO 

747  OOOOOO 

748  OOOOOO 
749 
750 
751 

752  000300 

753  OOOOOO 

754  OOOOOO 

755  OOOOOO 

756  COOOOO 
757 
758 
759 

760  OOOOOO 

761  OOOOOO 

762  OOOOOO 

763  OOOOOO 
764 
765 
766 

767  OOOOOO 

768  OOOOOO 

769  OOOOOO 

770  OOOOOO 
771 
772 
773 

774  OOOOOO 

775  OOOOOO 
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VST 
ENT 


;•  LOGGING 

STATES 
TRANS 

STATES 
TRANS 

IDLOG 
&KSLOG 
,gPSLGID 
ILOGID, 

lEXIT 

;•  LOOP  NODES 

STATES 
TRANS 

STATES 
TRANS 

IDLONO 
8KSL00 
.8PSPEN 
SKSNODS, 

SEXIT, 

;  MODULE 

STATES 
TRANS 

STATES 
TRANS 

IDMOD 

&KSMOD 
,&PSMOID 

IMODID, 

SEXIT 

;  NODE 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

IDNOD 

&KSEXE, 

SKSNOD 

,8PSNID 

INODID, 

SEXIT, 
SEXIT, 

SEXNOD 
SSTEND 

•  OBJECT 

'       STATES 

TRANS 

STATES 

TRANS 

I  DOB  J 
8KS0BJ 
,&PSOID 
I06JID, 

SEXIT 

;  PROCESS 

STATES 
TRANS 

STATES 
TRANS 

IDPRO 
SKSPRO 
,8P$PID 
IPROID, 

SEXIT 

;  SYSTEM 

STATES 
TRANS 

IDSYS 
&KSSYS, 

SEXIT 

QFSLOO, 


SQUAL 


F  « 
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ENTITY   OPTION   SUBEXPRESSIONS 


IZ:' 


U12 
H15 
HH 
U15 
H16 
H17 
H18 
1419 
1A20 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 

1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 


000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


STATES  OPUCSR 

TRANS  USUNI, 

TRANS  SLAMDA 

STATES  0PUCS1 

TRANS  8KSCSR 

STATES  .gPSCSR 

TRANS  SNUMBR , 


USER 


STATES 
TRANS 

STATES 
TRANS 
TRANS 


VECTOR 


STATES 
TRANS 

STATES 
TRANS 


OPUSE 

gKSUSE 

.SPSOBUS 

SKSDEF, 

SKSLGI, 


OPVEC 
BKSVEC 
,8PSVEC 
SNUMBR , 


VERIFICATION  (OBJECT) 


STATES 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 


0P08VE 

8KSVER, 

,&PS08VE 

8KS0N, 

8KS0FF, 

8KSINS, 
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0PUCS1 


SEXIT, 


SEXIT 
SEXIT, 


SEXIT, 


SEXIT 

SEXIT, 

SEXIT, 


SSCSR, 


SVFC, 


SOVER 


LS.OPT, 


OFSLOG, 


LS.OPT, 


OFSOFF, 
OFSINS, 


RQBST 


RQ8+L0.0FL 


RQBST 


RQB+LO.OFL 
RQB+LO.OFL 


VERIFICATION  STATE 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


OPVER 
SKSVER 

SKSSTAE, 

SLAMDA 

OPVERI.SPSVEST 

&KSOFF, 

8KS0N, 


OPVERl 


SEXIT 
SEXIT, 


1, 


RQB+LO.VER 
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'»♦   Assembler   statistics 


ulork  file  reads: 
Work  f i le  wri tes: 
Size  of  work  f i  le: 
Size  of  core  pool: 
Operating     system: 


0 

0 

15560  Words 

16552  Words 

R5X-11M/PLUS 


(   61   Pages) 
(  63  Pages) 


Elapsed  rime:   00:08:20.53 
Sy:VSTB.V2,t132,134]VSTB/CR/ 


•SP=Sy:ri,1]RSXMCM.SMl/ML,n50,110]NETLlB/ML,[130,10]RSXMCM/DA:l,[132,10]VSTB 


SEM0X5 

001770R 

002 

TIMER 

006630R 

002  SCOP  ■■= 

****** 

G 

$LTM  = 

****** 

6 

SSTAL1= 

****** 

G 

SEND 

001550R 

002 

TV$CHA= 

OOOAOO 

SCOST  = 

G 

SHACT  = 

****** 

G 

$STDES= 

****** 

G 

SENOOP 

0015'.2R 

002 

TY$EVE= 

001000 

$CSR  - 

****** 

G 

SMDEA  = 

***w** 

G 

SSTEND= 

****** 

G 

SEOB 

002006R 

002 

TY$STA= 

002000 

$CTL  = 

****** 

G 

SMXCO  = 

****** 

G 

SSTH0S= 

****** 

G 

SEOBOP 

002032R 

002 

TY$SUM= 

000000 

SDACC  = 

****** 

G 

SHXLI  = 

****** 

G 

SSTLND= 

****** 

G 

SE0B1 

002020R 

002 

T$$k;MG= 

000000 

$D]GJT= 

000024 

SNAOD  = 

****** 

G 

SSTLSH= 

****** 

G 

SEPR 

002102R 

002 

T$$MIN= 

000000 

$DNUMB= 

OOOOU 

SNNAM  = 

****** 

G 

SSTLSN= 

****** 

G 

SEPROP 

0021 32R 

002 

UID 

004010R 

002  SDPAS  = 

****** 

G 

$NUMBR= 

000002 

SSTNAD= 

****** 

G 

5EPR1 

0021 20R 

002 

VF.ADD= 

******  G 

SDUSE  = 

****** 

G 

SONAM  = 

*  *  +  ^  *  * 

G 

SSTNAM= 

****** 

G 

SESY 

002202R 

002 

Vf  .ECH= 

******  G 

$E0S  = 

000012 

$OPT0N= 

*   **  * 

G 

SSTPAR= 

****** 

G 

SET 

000630R 

002 

VF.f]X= 

******  G 

SEXIT  = 

000000 

SOTYP  = 

*  -  '** 

G 

$STRN6= 

000004 

SHO 

002222R 

002 

VF.ON  = 

******  G 

$EXNOD= 

****** 

G 

$OUT  = 

****** 

G 

SSTRPA^ 

****** 

G 

SHOAL  I 

002770R 

002 

VF.PEM= 

******  G 

SFAIL  = 

Mini 

SOVER  = 

****** 

G 

SSTSNM= 

****** 

G 

SHOID 

002276R 

002 

VF.PSI= 

******  G 

$FLAGS= 

****** 

G 

SOWN  = 

****** 

G 

SSTTPA= 

****** 

G 

SHOLOG 

0027A4R 

002 

VF.SED= 

******  G 

SGOFF  = 

000001 

SPCIR  = 

****** 

G 

SSUBXP= 

000010 

SHOOPT 

00267AR 

002 

V$$CTR= 

001000 

SGPRM  = 

000001 

SPOT  = 

****** 

G 

STRI  = 

****** 

G 

SHOTYP 

00263AR 

002 

UC.iNT= 

OOOAOO 

$GRO  = 

****** 

G 

SPNAM  = 

****** 

G 

STRIBA= 

****** 

G 

SHOXAC 

0C30UR 

002 

UC.EVE= 

004000 

$HLPAC= 

****** 

G 

$PRGCL= 

****** 

G 

STYPE  = 

****** 

G 

SHOXPR 

003034R 

002 

WC.TRI= 

002000 

$HTM  = 

****** 

G 

SPRI  = 

****** 

G 

SUNT  = 

****** 

G 

SHOXSV 

003062R 

002 

WC.UNT= 

001000 

$JFALI= 

****** 

G 

SQUAL  = 

****** 

G 

SVEC  = 

*****^ 

G 

SH01 

0022A4R 

002 

X$$DBT= 

000000 

$IFLOG= 

****** 

G 

SRAD50= 

000016 

SVFLAG= 

****** 

G 

SH02 

002256R 

002 

$ADS  = 

******  G 

$IFNNA= 

****** 

G 

SRET  r 

****** 

G 

$XMISS= 

****** 

G 

STMAT1 

000020R 

$ALPHA= 

000022 

$JFXAC= 

****** 

G 

$RONLY= 

000001 

SXTRI  = 

****** 

G 

STMAT3 

000030R 

$ANT  = 

******  G 

$JFXPR= 

****** 

G 

$SCOND= 

****** 

G 

SXUNT  = 

****** 

G 

STR 

0070A2R 

002 

$ANY  = 

000020 

$JFX5S= 

****** 

G 

SSC0P1= 

****** 

G 

S$$FLG= 

177777 

STR.B 

0001 34R 

$ARAD1= 

******  G 

$IFX9S= 

****** 

G 

SSC0P2= 

****** 

G 

SSSKEy= 

000154 

STR.M 

007060R 

002 

$ARAD2= 

******  5 

$1NA  = 

****** 

G 

SSC0P3= 

****** 

G 

S$$LEN= 

000007 

S$$URG= 

000000 

$BLANK= 

000006 

$INC  = 

****** 

G 

SSCSR  = 

****** 

G 

SS$STA= 

007060R    0U2 

S$$YSZ= 

007600 

$CKLOG= 

******  G 

$LAMDA= 

000000 

SSEG  = 

****** 

G 

SSSTMP= 

00141 3R    004 

TAB 

000011 

$CMAND= 

******  G 

$LNAME= 

****** 

G 

$STADD= 

****** 

G 

.PFLAG= 

****** 

G 

.  ABS. 

000106 
000162 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CCN) 

SSTATE 

007076 

002 

(RO,D,LCL,REL,CON) 

SKTAB 

000332 

003 

(RO,D,l  CL,REL,CON) 

SKSTR 

00U17 

004 

(RO.t^.L 

a.REL.CON) 

SPRMPT 

000000 

005 

(RO,D,LCL,REL,CON) 

Errors 

detected: 

0 

VSTB 
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VSYM  CREATED  BY     MACRO     ON  P9-JUN-85   AT   03:07 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 


E     8 

PAGE   5 

CREF       04.00 


NHWQFS 

#5-58 

5-63 

PDVDFS 

#5-58 

5-6A 

SLTDFS 

#5-58 

5-65 

F     8 


t*FUF«*ID**VTMP 


VTMP  -  VNP   TEMPLATE   PROCESSING 
TM.RD  -  READ  RECORD 

A05 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 

418  001056     012767     000352' 

419  001064     012767     000204 

420  001072 

421  001076  016700  OOOOOOG 

422  001102  016003  000002 

423  001106  010367  000556' 

424  001112  012704  000352' 

425  001116  105710 

426  001120  100401 

427  001122 
428 

429 
430 
431 

432  001124     122710     OOOOOOG 

433  001130     001405 

434  001132     122710     OOOOOOG 

435  001136     001404 

436  001140 
43?  001144 
438  001150 


MACRO  V05.03b  Saturday  29-Jun-85 
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.S8TTL  TM.RD  -  READ  RECORD 
TM.RD  -  READ  ONE  RECORD  FROM  TEMPLATE  FILE 
INPUTS: 


NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R0,R1,R2=DESTROYED 
R3=REC0RD  LENGTH 
R4=REC0RD  ADDRESS 


OOOOOOG  TM.RD: 
OOOOOOG 


MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

TSTB 

BMI 

RETURN 


#TMPaF,$CLBUF 

#132.,$CLSIZ 

SGCLEP 

$CLIOS,RO 

2(R0),F3 

R3,TMPSZ 

#TMP8F,R4 

(RO) 

101$ 


ERROR  CONDITIONS 


101$: 


111$: 
121$: 


SET  GCL  BUFFER  ADDRESS 

AND  BUFFER  SIZE 

READ  1  RECORD 

GET  GCL  lOSB  ADDRESS 

GET  RECORD  LENGTH 

SAVE  IT 

GET  RECORD  ADDRESS 

SUCCESS?  (CLEARS  C-BIT) 

IF  MI,  NO 


CMP8 

#IE.EOF,(RO) 

END  OF  FILE? 

BED 

111$ 

IF  EQ,  YES 

CMP8 

#IE.RBG,(RO) 

BUFFER  OVERFLOW? 

BEQ 

121$ 

IF  EQ,  YES 

CALLR 

ERR$10 

READ  FAILURE 

CALLR 

ERR$11 

NO  END  STATEMENT  (WARNING) 

CALLR 

ERR$12 

READ  OVERFLOW 

UNP  TFMPI  ATF  PRnCFSSING 
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VTMP      CREATED  BY  MACRO  ON  29-JUN-85  AT  03:08 
MACRO  CROSS  REfERENCE 


E  10 

PAGE  4 

CREF   OA.OO 


MACRO  NAME 
CALL 


CALLR 

EM3G$ 

EMSGSR 

ERBL<$ 

ERMSGS 

ERRPTS 

NTLERS 

PUTAD 

PUTRC 

RAND 

RETURN 


SUTCHO 


REFERENCES 

8-225 

8-2S1 

10-i93 

8-274 
#5-58 
#5-58 
#5-59 
#5-59 
#5-59 
#5-58 
#5-58 
#5-58 
#9-306 

8-240 

18-645 
#5-58 


8-227 

8-255 

11-420 

8-281 

13-494 

17-588 

10-401 

10-398 

10-393 

7-194 

9-306 

9-306 
8-267 

8-239 


8-228 

8-259 

13-494 

11-436 

15-540 

17-589 

10-399 

7-195 
10-354 

#10-354 
9-309 

9-305 


8-230 

8-261 

14-520 

11-437 

16-557 


10-400 
7- 


10-354 
10-374 

10-341 


8-331 
8-264 
15-540 
11-438 


7-197 

11-427 
10-373 


8-232 
8-273 
16-557 
12-453 


7-198 


13-503 


8-234 
8-280 
18-620 


8-236 
9-306 
18-627 


8-237 
9-308 
18-640 


8-245 

10-354 

18-643 


14-525 


15-541 


16-558 


17-583 


[ 


L 


VTMPIN 

CREATED  BY 

MACRO     ON  29- 

■JUN-85   AT 

05:08           PAGE 

MACRO   CROSS 

RE 

fERENCE 

CREF 

MACRO  N4ME 

REFERENCES 

CALL 

8-131 

8-uy 

8-159 

8-170 

EMSGS 

#5-58 

8-'S2 

8-173 

;msg$r 

#5-58 

8-190 

GETRV 

#5-58 

8-U7 

9-208 

9-212 

NKRDFS 

#5-58 

5-61 

NTLERS 

#5-58 

7-86 

7-87 

RAND 

#8-U7 

8-U7 

#9-208 

9-208 

RESRG 

#5-58 

f;-225 

RETURN 

8-181 

9-:?^ 

SAVRG 

#5-58 

9-207 

E  11 


04.00 


8-173 


#9-212 


8-177 


9-212 


8-178 


?-208 


9-212 


H.F  11  F*tin»*UTST 
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VIST  - 

mP   TESTING 

ROUTINES 

MACRO  V05.03b 

Saturday 

?9-Jun-85  B 

Symbol 

table 

ALL  16 

002710R 

GETAD 

001216R 

M$$0"R= 

599209 

ALL22 

00326AR 

GETRC 

001134R 

NEWLIN 

002042R 

A$tCHK= 

000000 

GETRV 

001052R 

NO 

000000 

A$$CPS= 

000000 

G$$TPP= 

000000 

NUL 

99^95?'' 

A$$PRI= 

000000 

G$$TSS= 

000000 

N$$ACC= 

000001 

A$$TRP= 

000000 

G$$TTK= 

000000 

N$$BUFr 

000001 

BPT 

OCOZOR 

G$$URD= 

000000 

N$$LDV= 

000001 

BUfOU 

00364CR 

IO.WLB= 

■.•«•»•  GX 

NI$MCP= 

99999] 

CR 

000053 

$$RAR= 

000000 

N$$MLL= 

000001 

CVBTC 

00A074R 

$$RDN= 

000000 

N$$l«IOV= 

000010 

C$$CKP= 

000000 

K$$CNT= 

177546 

N$'.NCT  = 

000001 

C$$ORE= 

OOOAOO 

K$$CSR= 

177546 

N$$PEM= 

000001 

C$$RSH= 

17756A 

K$$LDC= 

000000 

N.FID  = 

♦«***»  GX 

DB 

015012 

K$$TPS= 

000074 

OB 

015010 

DEA16 

003154R 

LD$LP  = 

000000 

ODT 

000764R 

DEA22 

0C3530R 

LF 

000044 

OW 

031010 

OELIM 

0020';6R 

LFCR  = 

000040 

PROMPT 

004026R 

D5 

000060 

L$$ASG= 

000000 

PUTAD 

001326R 

DUMPB 

001520R 

L$$DRV= 

000000 

PUTRC 

001 i36R 

DUMPW 

00205i!,R 

L$$P11= 

000001 

P$$P45= 

000000 

DW 

031012 

L$$nR= 

000000 

P$$WRD= 

000000 

D$$BUG= 

1775K 

MADDR  = 

000014R 

Q$$OPT= 

000010 

D$$ISK= 

000000 

MCTL  = 

000020R 

Q.IOAE= 

000012 

D$$L11= 

000001 

MLGTH  = 

00001 6R 

Q.IOEF= 

000006 

D$$YNC= 

000000 

MODIFY 

00241 2R 

Q.IOFN= 

000002 

D$$YNri= 

000000 

MODPMT 

002406R 

Q.IOLU= 

000004 

EXIT 

000066R 

MSG 

OOOOOOR 

Q.IOPL= 

000014 

ES$XPR  = 

000000 

|V|$$CRB= 

000124 

Q.IOPR= 

000007 

fE.CEX= 

♦♦*♦*♦  GX 

M$$CRX= 

000000 

Q.I0S8= 

000010 

F$$LVL= 

000001 

M$$FCS= 

000000 

R$$DER= 

000000 

F.ENB  = 

*«♦**»  GX 

M$$MGE= 

000000 

R$$K11= 

000001 

F.NRBD= 

***♦*»  GX 

l*l$$NET  = 

000000 

R$$SND= 

000000 

F.RSIZ= 

*•*•*♦  GX 

.  ABS. 

000000 
0041 U 

000  (RW,I,GBL,ABS,0\/R) 

001  (RW,I,LCL,REL,C0N) 

$$$VDT 

001670 

002   (RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

•♦♦  Assembler  statistics 

1,^1 
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R$$11M= 

SSTTBL 

SYSFDB- 

S$$WRG= 

S$$YSZ= 

TAB 

TST 

T$$KMG= 

T$$MIN= 

VECTOR 

VF.1NI= 

VF.VDT= 

V$$CTR= 

X$$DBT= 

XIO 

XlOl 

X102 

X103 

X104 

X105 

X106 

X107 

X108 

X109 

X110 

X111 

X20 

X30 

X50 

$ALL16= 

$ALL22= 

$BFR  = 


000000 

000030R 

******  (jx 

000000 

007600 

002044R 

000036R 

000000 

000000 

000674R 

******  GX 

******  GX 

001000 

000000 

002552R 

001132R 

001214R 

001324R 

001434R 

001516R 

002772R 

003152R 

003262R 

003346R 

003526R 

003636R 

002652R 

002702R 

002706R 

******  GX 

******  GX 

******  GX 


$CBTA  = 

$CLBUF= 

$CLIOS= 

$CLPMT= 

SCOTS  = 

$CRAVL= 

$DEA16= 

$DEA22= 

$OEVHD= 

$FMASK= 

$GCLEP= 

$GETAD= 

$GETRC= 

$GETRV= 

tPARHD= 

$PUTAD= 

$PUTRC= 

$RADDR= 

$RBLCK= 

$RSIZE= 

$VFLAG= 

SVIMI  = 

SVIMO  = 

SVTST 

$$$   = 

$$$ARG= 

$$$LEN= 

$$$OST= 

.CRAVL= 

.DEVHD= 

.FMASK= 

.PARHD= 


GX 
GX 
6X 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

******  GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


****** 
****** 
****** 
******  GX 
******  GX 
******  GX 
******  GX 
000036RG 
001656R 
000003 
000011 
000014 
******  GX 
******  GX 
♦«*♦**  GX 
******  GX 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  11153  Words  <  44  Pages) 

Size  of  core  pool:  14440  Words   t  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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272 

275 

27A 

2^5 

276 

277  000304 

278 

280 
281 
282 
283 
284 
285 
286 

287  000304 

288  000310 

289  000314 

290  000316 

291  000320 

292  000326 
293 

294  000344 

295  000352 
296 

297 
298 
299 

300  000354 

301  000354 

302  000356 

303  000360 

304  000362 

305  000366 
306 

307 
308 
309 
310 
311 
312 

313  00C406 

314  000406 

315  000412 

316  000414 
317 

318  000420 

319  000430 

320  000432 
321 

322 
323 
324 


GFIRST: 


016702  OOOOOOG 
022702  177777 
000261 
001445 


000415 


000261 
010302 
001424 
01270^ 
012705 
000006 


8$: 


9$! 


.ENA8L 

LS8 

ftST  UMR 

BLOCK 

.IF 

Df ,R$$MPL 

TST 

.MPRO 

BLE 

8$ 

MOV 

.UMRHD,R2 

MOV 

$cpbia,$rblck; 

SWTCHI 

#PREV 

GETAD 

R2,*M.LGTH 

BR 

9$ 

.ENDC 

MOV 

.UMRHD,R2 

CMP 

#-1 ,R2 

SEC 

BEO 

20$ 

SWTCHI 

#PREV         ; 

GETRV 

R2,#M.LGTH 

SWTCHI 

#NEXT 

BR 

10$ 

GET  NEXT  UMR  BLOCK 


GNEXT: 


000014- 
000000' 


016703 
001406 
162703 


0002-,1 


000001 


000000' 
000002 


SEC 

MOV 

R3,R2 

8EQ 

20$ 

MOV 

#NEXT 

R4 

MOV 

#PREV 

R5 

.REPT 

M.LGTH/2 

MOV 

(R4)  + 

(R5)  + 

.ENDR 

;  COMMON  CODE 

iO$: 

MOV 

PREV, 

?3 

BED 

15$ 

SUB 

#2,R3 

GETRV 

R3 

15$: 

CLC 

20$: 

RETURN 

.DSA8L 

Lse 

.END 

IS  THIS  A  MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

POINT  AT  THE  FIRST  UMR  BLOCK 

SET  THE  CPU'S  DATA  AREA  BIAS 

SET  TO  "PREVIOUS  UMR  BLOCK"  BUFFER 

GET  THE  FIRST  UMR  BLOCK 

AND  CONTINUE  NORMALLY 


GET  $UMRHD  VALUE 

IS  THE  SMBOL  DEFINED? 

ASSUME  FAILURE 

IF  EO,  TARGET  SYSTEM  NOT  11/701 

CHANGE  DEFAULT  BUFFER 

READ  IN  EXEC  UMR  BLOCK 

CHANGE  DEFAULT  BUFFER  AGAIN 
JOIN  COMMON  CODE 


ASSUME  FAILURE 

COPY   REAL   HEIIORY  ADDRESS 

IF  ZERO,  END  OF  LIST  (C-BIT  SET) 

COPY  "NEXT"  BLOCK 

TO  "PREVIOUS"  BLOCK 


;CMPOn 
;CMP01] 
;CMP01] 
;CMP01] 
;[MP01] 
;[MP01] 
;CMP01] 
;[MP01] 
;CMP01] 


GET  NEXT  POINTER  FROM  THIS  BLOCK 
IF  ZERO,  THERE  ARE  NO  OTHERS 
GIVING  START  OF  BLOCK  ADDRESS 

READ  IN  NEX"  UMR  BLOCK 
INDICATE  SUCCESS 
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s- 

S5 

6- 

92 

7- 

191 

8" 

'W 

9- 

^9^ 

10- 

t,?h 

11- 

SO/ 

1 2" 

SW 

1 3- 

(SOI 

U- 

(SW 

1S- 

HV 

1/- 

948 

1H- 

10/1 

19- 

1169 

.-O- 

1191 

?\- 

V40 

?■?- 

IS/H 

?'.- 

IfiAA 

?^- 

1/Hi 

2'i- 

18« 

MACRO  DEFINITIONS 

LOCAL  DATA 

DEVEC  -  DEALLOCATE  VECTOR  BLOCK 

$XPRO  -  UNSUCCESSFUL  SET  PROCESS  TLEANUP 

GETIND  -  GET  PDV  INDEX 

DEAXPT  -  DEALLOCATE  XPT  DATA  STRUCTURES 

DEAECL  -  DEALLOCATE  ECL  NODE  COUNTERS 

$XLIN  -  UNSUCCESSFUL  SET  LINE  CLEANUP 

$CPRO  -  CLEAR  PROCFSS 

SCLIN  -  CLEAR  LIN 

FNDADD  -  FIND  LINE  TABLE  ADDRESS 

VECT  -  RESET  INTERRUPT  VECTORS 

ICBSC  -  KB  SCAN 

ZDDS  -  CLEAR  DDM  LINE  TABLE  ADDRESS 

CSRUNL  -  REMOVE  CSR  UNLOAD  ENTRY 

$CCEX  -  CLEAR  SYS 

FLT15  -  FIND  LINE  TABLE 

XLT16  -  DEALLOCATE  LINE  TABLE 

.DEA16  -  DEALLOCATE  16  BIT 

TSKSCH  -  SEARCH  FOR  TASK  TC8 


'jiiMi  -  uwp  iiwinin  BniiTiWF<; 
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VUNL  -  VNP  UNLOAD  ROUTINES 
SXLIN  -  UNSUCCESSFUL  SET  LINE 


537 

538 

559 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556  001320 

557 

558  001320 

559  001320 
560 

56'!  001324 

562  001330 

563  001332 

564  001336 
565 

566  001342 

567  001346 
568 


E  15 

MACRO  V05.03b  Monday  16-Sep-85  07:30  Page  12 
CLEANUP 

.SBTTL  $XLJN  -  UNSUCCESSFUL  SET  LINE  CLEANUP 

$XLIN  -  CLEAN  UP  AFTER  AN  UNSUCCESSFUL  "SET  LINE" 

THIS  ROUTINE  IS  CALLED  IF  A  "SET  LINE"  FAILS  IN  TRANSFERRING  EITHER  THE 
DLC  OR  DDM  PROCESS  INTO  CORE,  INITIALIZING  THE  PLC  LINE  TABLE,  OR  LOADING 
THE  DDM  MICRO-CODE.  IN  NO  CASE  HAS  THE  DDM  LINE  TABLE  BEEN  INITIALIZED. 

INPUTS: 

$SLTA=SLT  ADDRESS 

$DLCPV=DLC  PDV  ADDRESS 

$DDMPV-DDM  PDV  ADDRESS 

FL.PX1  OF  SFLAGS  SET  IF  DLC  WAS  TRANSFERRED 

FL.PX2  OF  SFLAGS  SET  IF  DDM  WAS  TRANSFERRED 

OUTPUTS: 

C-8IT=SET 


SXLIN: 


016705 

016500 
001404 


005065  OOOOOOG 


OOOOOOG 
OOOOOOG 


.MCALL  VNPBPT 
VNPBPT  XL  IN 
MOV     $SLrA,R5 


016503 
001417 


OOOOOOG 


5$: 


MOV 

BEQ 

CALL 

CLR 

MOV 
BEQ 


L.KRBA(R5),R0 

5$ 

XKR6 

L.KR8A(R5) 

L.DLS(R5),R3 
20$ 


GET  SLT  ADDRESS 

GET  THE  KRB  ADDRESS 
IF  EQ,  NONE 
DEALLOCATE  THE  KRB 
ZERO  KRB  ADDRESS 

AND  DLC  LINE  TABLE  ADDRESS 
IF  ZERO,  NO  WORK  TO  DO 


569 
570 

571  001350 

572  001356 

573  001360 
574 

575  001366 

576  001372 

577  001376 

578  001402 
579 

580  001406 

581  001414 

582  001416 

583  001422 

584  001424 

585  001430 

586  001436 

587  001440 

588  001444 

589  001446 

590  001452 
591 

592  001454 
593 


032767 
001003 
016767 


CHECK  IF  DLC  WAS  LOADED  WITH  THIS  LINE 


OOOOOOG  OOOOOOG 
OOOOOOG  000202' 
116504  OOOOOOG       10$: 


005065 
005065 

032767 
001405 
016704 
001415 

032767 
001405 
016704 
001405 

000261 


OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG  20$: 

OOOOOOG 

OOOOOOG  OOOOOOG  30$: 
OOOOOOG 

40$: 


BIT 
BNE 
MOV 

MOVE 
CALL 
CLR 
CLR 

BIT 

§^y 

SEO 

CALL 

BIT 

BEQ 

MOV 

BEQ 

CALL 

SEC 

RETURN 


#FL.PX1,$FLAGS 

10$ 

$DLCPV,..PDV 

L.DLC(R5),R4 
XLT16 
L.DLS(R5) 
L.DLM(R5) 

*FL.PX1, SFLAGS 

30$ 

$DLCPV,R4 

101$ 

XDLC 

#FL.PX2,$FLAGS 

40$ 

$DDMPV,R4 

111$ 

XPRO 


WAS  OLC  TRANSFERRED  INTO  CORE  ? 

IF  NE,  YES  -  DISCARD  DLC  LINE  TABLES 

ELSE  ..  HOUSEKEEP  THE  DE-ALLOCATION 

GET  THE  DLC  PDV  INDEX 
DE-ALLOCATE  DLC  LINE  TABLE 
ZERO  LINE  TABLE  ADDRESS 
AND  LINE  TABLE  BIAS 

WAS  DLC  TRANSFERRED? 

IF  EQ,  NO 

GET  DLC  PDV  ADDRESS 

IF  ZERO,  LOGIC  ERROR 

RELEASE  DLC  FROM  PARTITION 

WAS  DDM  TRANSFERRED? 

IF  EQ,  NO 

GET  DDM  PDV  ADDRESS 

IF  ZERO,  LOGIC  ERROR 

RELEASE  DDM  FROM  PARTITION 

RETURN  WITH  C-BIT  SET 


lAAran    ursc:     n7k    M^ 


F  15 

o,^_s';  n7-xn     d:i 


VUNL  -  VNP  UNLOAD  ROUTINES 
VECT  -  RESET  INTERRUPT  VECTORS 

1062 

1065  002732 

106A  00273A 

1065  002756 

1066  002746 

1067  005056 

1068  005125 
1069 


E  16 
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]?]|; 

CRASH 

CRASH 

121$: 

ERRPTS 

ERMSGS 

ERMSG$ 

ERSLKS 

LINE  TABLE  NOT  FOUND  WITHIN  UNLOAD  DATA 
NO  VECTORS  POINTED  AT  LINE  TABLEI 

ERR«,$EROUT    •  VECTOR  SPACE  EXCEEDS  NOMINAL  LIMITS  . 

<The  highest  legal  vector  address  in  RSX11M  sjfstems  is  3!n> 

<1000,  put  in  this  system  it  is  XO.   Vector  still  in  use.> 

ERR^4,<$MXVCT> 


I  r\\r\    Dm  it  i  hjCC 


MATDn     KlD^     n7K    MnnH;i\, 
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Symbol  table 


AB 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

CCEX 

CEXLD 

CHKLP 

CHKNOD 

CHKPP 

CLIN 

CLQREM= 

CLRPP 

CM$SET= 

CPRO 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DEQNTI 

DEV7 

DSIZE  = 

OV.CCL= 

DV.COM= 

DV.DIR= 

DV.EXT= 

0V.F11= 

DV.ISP= 

DV.MBC= 

DV.f1NT  = 

DV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC= 

DV.SDI= 

DV.SQD= 

DV.SWL= 

DV.TTY= 

DV.UMD= 

0$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$VNM= 

D.DSP 

D.LNK 

D.MSK 

O.NAM 

D.PCB 

D.UCB 

D.UCBL 

P. UNIT 

D.VCAN= 

D.VDEB= 

O.VINI  = 

D.VOUT  = 

D.VPWF= 

ERRBUf 


««*♦♦«  GX 

000000 

000000 

000000 

000000 

002536R 

0001 76R 

001264R 

00025AR 

0O0552R 

002472R 

**«»«»  GX 

001532R 

»♦*»»»  GX 

001672R 

000000 

OOOAOO 

177564 

0036A0R 

003424R 

**♦*«•  GX 

000002 

02000C 

000010 

OOOAOO 

OAOOOO 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

000001 

000000 

000000 

000012 

000000 

000014 

000004 

000C34 

0OOGO2 

000010 

000006 

000002 

177776 

000000 

000004 

0OCO06 

000400R 


ERRMSG 

E$$XPR: 

FE.CEX= 

FL.CEX= 

FL.DDM= 

FL.DLC= 

FL.ECH= 

FL.FDX= 

FL.HDX= 

FL.KMX= 

FL.LLC= 

FL.LMC= 

FL.MUX= 

FL.T0P= 

FL.WRN= 

FMAX  = 

FHT7 

FMT7A 

FMT78 

FM.7  = 

FM.7A  = 

FM.7B  = 

FTA8 

F$$LVL= 

F.NRBD= 

F.RSIZ= 

F.URBD= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$R()N= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LBITS 

LDSLP  = 

LD.ALI= 

LD.CEX= 

LD.CIR= 

LD.LIN= 

LD.L0G= 

LD.MOD= 

LD.NOD= 

LD.oej= 

LD.PRO= 
LF.ACT 
LF.RDY 
LF.UNL 
LLIN 
LO.ADD 
LO.ADR 
LO.CLS 
LO.CON 
002  LO.COP 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 


000370R 

000000 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

******  GX 

000037 

002352R 

002353R 

002366R 

000000 

000000 

000000 

OOOOOOR 

000001 

****** 

****** 

******  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000346R 

000000 

000030 

000024 

000035 

000025 

000031 

000037 

000027 

000032 

000026 
=  ******  GX 
=  ******  GX 
=  ******  GX 

000746R 

000022 

000052 

000002 

000006 

000010 


002  LO.COS 
LO.CSR 
LO.CTL 
LO.DES 
LO.DTE 
LO.EVT 
LO.GRO 
LO.HOS 
LO.HTM 
LO.INA 
LO.INC 
LO.LDT 
LO.LID 
LO.LIN 
LO.LTM 
LO.MAC 
002  LO.MUE 
002  LO.NAM 
002  LO.NET= 
LO.NNM 
LO.OFL 
LO.ONM 
002  LO.OUT 
LO.OUN 
LO.PAR 
LO.PRI 
LO.RET 
LO.RPA 
LO.SCR 
LO.SEG 
LO.SKA 
LO.SKN 
LO.SNM 
LO.TPA 
LO.TRB 
LO.TRl 
LO.UNT 

LO.vcr 

LO.VER 
LR.ACC 
LR.ACO 
LR.ADD 
LR.ALI 

lr.slk; 

LR.CTL 
LR.DES 
LR.HLP 
LR.LIN 
LR.NaM 
LR.PAS 
LR.PRO 
LR.3TS 
LR.TRI 
LR.TYP 
LR.UCB 
LR.UIC 
LR.UNT 


002 
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000020 

LS.ALI= 

000016 

NULL 

000234R 

002 

000010 

LS.CEX= 

000001 

N$$ACC= 

000001 

000032 

LS.CIR= 

000033 

N$$BUF= 

000001 

000002 

LS.CXO= 

010000 

N$$LDV= 

000001 

000047 

LS.CX5= 

000400 

N$$MCP= 

000001 

000004 

LS.ECH= 

001000 

N$$MLL= 

000001 

000024 

LS.FDX= 

004000 

N$$MOV= 

000010 

000040 

LS.HDX= 

010000 

N$$NCT= 

000001 

000032 

LS.HLP= 

000012 

N$$PEM= 

000001 

000062 

lS.L]N= 

000003 

OF$INS= 

000001 

000060 

LS.LMC= 

000007 

OF$LOG= 

000100 

000046 

LS.LOG= 

000020 

OF$OFF=: 

000002 

000030 

LS.MOD= 

000036 

OF$ON  = 

000000 

000004 

LS.NOD= 

000014 

OF$SMC= 

000200 

000034 

LS.NTI= 

000013 

OP$ADD= 

000200 

000022 

LS.OBJ= 

000022 

OP$ALL= 

000200 

000024 

LS.OPT= 

000400 

OP$CCS= 

000004 

000044 

LS.PRO= 

000002 

OP$CIE= 

004000 

000002 

LS.TOP= 

002000 

OP$CON= 

000400 

000022 

LS.TST= 

000010 

OP$COP= 

000001 

000012 

LS.UNF= 

020000 

OP$COS= 

000100 

000004 

LS.XIT= 

000011 

OP$DST= 

000200 

000056 

LX.ALI= 

000017 

OP$DTE= 

000040 

000026 

LX.CEX= 

000004 

OP$DUP= 

000002 

000010 

LX.CIR= 

000034 

OP$EST= 

000100 

000012 

LX.LIN= 

000006 

OP$EVE= 

010000 

000064 

LX.LOG= 

000021 

OP$FIL= 

000200 

000030 

LX.NOD= 

000015 

aP$GRP= 

000100 

000016 

LX.08J= 

000023 

OP$HOS= 

000001 

000054 

LX.PR0= 

000005 

OP$HTH= 

000002 

000014 

L$$AS6= 

000000 

OP$INA= 

004000 

000014 

L$$DRV= 

000000 

OP$INC= 

001000 

000035 

L$$P11= 

000001 

OP$KDS= 

002000 

000020 

L$$11R- 

000000 

OP$KDT= 

000400 

000034 

L.CTL  = 

****** 

GX 

OP$KEV= 

001000 

000030 

L.DDM  = 

****** 

GX 

OP$KGR= 

001000 

000033 

L.DDS  = 

****** 

GX 

OP$KNT= 

010000 

000014 

L.DLC  = 

****** 

GX 

OP$KSK= 

002000 

000042 

L.FLG  = 

****** 

GX 

OP$LCT= 

000200 

000020 

L.NSTA= 

****** 

GX 

OP$LNE= 

000040 

000052 

L.UNT  = 

****** 

GX 

OP$LOC= 

000001 

000012 

MS.ALL= 

****** 

GX 

OP$LST= 

000002 

000002 

MS.C3R= 

****** 

GX 

OP$LTM= 

000001 

000010 

MS.EXT= 

****** 

GX 

OP$LVL= 

000010 

000004 

MS.INC= 

****** 

GX 

OP$HAC= 

000010 

000010 

MS.LLC= 

****** 

GX 

OP$MCO= 

000002 

000002 

MS.PRI= 

****** 

GX 

OP$MDE= 

000400 

000002 

MS.SEC= 

****** 

GX 

OP$MLI= 

000004 

000012 

MS.VCT= 

****** 

GX 

OP$MON= 

000100 

000041 

M$$CRB= 

000124 

OP$MST= 

000020 

000002 

M$$CRX= 

000000 

OP$NAM= 

000004 

000000 

M$$fCS= 

000000 

OPINE T= 

004000 

000006 

M$$MGE= 

000000 

OP$NLI= 

000002 

000002 

M$$NET= 

000000 

OP$NOD= 

000020 

000016 

M$$OVR= 

000000 

0P$OUT= 

002000 

000020 

NOP 

000120R 

OP$OWN= 

000020 

000005 

NTINIT 

002646R 

OP$PAR= 

000010 
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VST 
ENT 


160  000000 

161  000000 

162  000000 

163  000000 

164  000000 

165  OOCOOO 

166  000000 

167  000000 

168  000000 

169  000000 

170  000000 

171  000000 

172  000000 

173  000000 

174  000000 

175  000000 

176  000000 

177  000000 

178  000000 

179  000000 

180  000000 

181  000000 

182  000000 

183  000000 
18A  000000 

185  000000 

186  000000 

187  000000 

188  000000 

189  000000 

190  000000 

191  000000 

192  000000 

193  000000 

194  000000 

195  000000 

196  000000 

197  000000 

198  000000 

199  000000 

200  000000 

201  000000 

202  000000 

203  000000 

204  000000 

205  000000 

206  000000 

207  000000 

208  000009 

209  000000 

210  000000 

211  000000 

212  000000 

213  000000 

214  000000 

215  000000 

216  000000 


KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 

keywd: 

KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KE/WDS 


"LINE", 

KSLIN 

"lines'', 
"listen''. 

KSLINS 

KSLTH 

"LOAD", 

KSLOA 

"LOADER", 

KSLOAR 

"LOCATION", 

KSLOC 

"LOGIN", 

KSLGI 

"LOGGING'  , 

KSLOG 

"LOOP", 

KSLOO 

"MAXIMUM", 

KSMAX 

"MODULE", 

KSMOD 

"monitor''. 

KSMON 

"MULTIPOINT", 

KSMUL 

"NAME", 

KSNAM 

"NETWORK", 

"networks''. 

KSNET 

KSNETS 

"NODE", 

KSNOD 

"nodes'', 

KSNODS 

"object'', 
"objects''. 

KSOBJ 

KSOBJS 

"OFF", 

KSOFF 

"ON", 

KSON 

"OUTGOING", 

KSOUT 

"OWNER", 

KSOWN 

"PARTITION", 

KSPAR 

"PASSWORD", 

KSPAS 

"PRIORITY", 

KSPRI 

"PROCESS", 

KSPRO 

"PROCESSES", 

KSPROS 

"PROTOCOL", 

KSPRTO 

"RECEIVE", 

KSREC 

"RETRANSMIT", 

KSRET 

"SCOPE", 

KSSCO 

"SECONDARY", 

KSSEC 

"SEGMENT", 

KSSEG 

"SERVER", 

KSSVR 

"service''. 

KSSER 

"SET", 

KSSET 

"SHOW  , 

KSSHO 

"SHUT", 

KSSHU 

"SINGLE", 

KSSNG 

"SINK", 

KSSNK 

"sinks''. 

KSSNKS 

"SIZE", 

KSSIZ 

"STATE  , 

KSSTAE 

"status''. 

KSSTUS 

"summary''. 

KSSUM 

"SYSTEM", 

KSSYS 

"TERMINAL", 

KSTER 

"TIMER", 

KSTIM 

"TOPDOWN", 

KSTOP 

"TRANSMIT'', 

KSTRA 

"TRIBUTARY  ', 

KSTRIB 

"UNFIXED", 

KSUNF 

"UNIT", 

KSUNI 

"USER", 

KSUSE 

"VDT", 

KSVDT 

;[TD001] 
;tTD001] 
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VST 
OPT 


777 
778 
779 
780 
781 
782 
783 
78A 
785 
786 
787 

788  000000 

789  000000 

790  000000 

791  000000 

792  000000 

793  000000 

794  000000 

795  000000 

796  000000 
797 

798 
799 

800  000000 

801  000000 

802  000000 

803  000000 
80A  000000 

805  000000 

806  000000 

807  000000 

808  000000 

809  000000 

810  000000 

811  000000 

812  000000 

813  000000 
8U  000000 

815  000000 

816  000000 

817  000000 

818  000000 

819  000000 

820  000000 
821 

822 
823 

824  000000 

825  000000 
826 

827 
828 

829  000000 

830  000000 

831  000000 

832  000000 
853  000000 


.SBTTL  ENTITY  IDENTIFICATION  SUBEXPRESSIONS 


Keyword 

Next 

Action 

Mask  (BIS) 

flag  to 

Type,  or 
Substate 

State 

Routine 

Value 

Mask 

ENTITY  IDENTIFICATION  SUBEXPRESIIONS 

ALIAS  ID 

STATES 

ALIID 

TRANS 

SLAMDA, 

BL.MAN 

STATES 

TRANS 

SRAD50, 

^ 

SSTALI 

STATES 

TRANS 

INODEND, 

ALIIDl 

TRANS 

SLAMDA 

STATES 

ALJIDl 

TRANS 

SLAMDA, 

SEXIT, 

BL.AUT 

;•  CIRCUIT  ID 

STATES 

CIRID 

TRANS 

SRAD50, 

, 

SLNAME 

STATES 

TRANS 

<'-> 

STATES 

TRANS 

SDNUMB, 

CIRl, 

SCTL 

TRANS 

<'*>, 

^ 

WC.CNT, 

SQUAL 

STATES 

CIRl 

TRANS 

<■->, 

C1R2 

TRANS 

<'.>, 

CIRA 

TRANS 

SLAMDA, 

SEXIT, 

^ 

FL.CNT, 

SFLAGS 

STATES 

CIR2 

TRANS 

SDNUMB , 

CIR3, 

SUNT 

TRANS 

<•♦>, 

C1R3, 

SXUNT, 

WC.UNT, 

SQUAL 

STATES 

CIR3 

TRANS 

<■  .>, 

CIR4 

TRANS 

SLAMDA, 

SEXIT 

STATES 

CJfi4 

TRANS 

SDNUMB, 

SEXIT, 

STRI 

TRANS 

<■*>, 

SEXIT, 

SXTRI, 

WC.TRI, 

SQUAL 

TRANS 

SLAMDA, 

SEXIT 

;  DES'INATION  NODE  ID 

STATEi 

DESID 

TRANS 

IDNODID 

)    DESTINATION  NODE,  RSX 

FORMAT 

STATES 

TRANS 

V, 

UID 

TRANS 

SLAMDA, 

DESIR1 

STATES 

UID 

TRANS 

iDSTR, 

, 

SDUSE 

G  A 
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H56 

U57 

H58 

U59 

U60 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

15M 

1512 


000000 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


.SSTTL  OPTION  KEYWORD  AND  VALUE  SUBEXPRESSIONS 


Keyword 

Next 

Action 

Mask  (BIS) 

Flag  to 

Type,  or 
Substate 

State 

Routine 

Value 

Mask 

OPTION  KEYWORD  SUBEXPRESSIONS 
COUNTER  TIMER 


STATES 
TRANS 

STATES 
TRANS 

COUTIM 
8KSC0U 

TIMER 
8KSTIM, 

SEXIT 

;  HELLO  TIMER 

STATES 
TRANS 

HELTIM 
SKSHTH, 

TIMER 

;  LISTEN  TIMER 

STATES 
TRANS 

LISTIM 
8KSLTM, 

TIMER 

■  RECEIVE  PASSWORD 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

KWRPAS 
8KSfiEC 

8KSPAS, 
SLAMDA, 

SEXIT 
SEXIT 

;  TRANSMIT  PASSWORD 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

KWTPAS 
8K$TRA 

8K$PAS, 
SLAMDA, 

SEXIT 
SEXIT 

OPTION  VALUE  SUBEXPRESSIONS 
EVENT  IDENTIFICATION 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 


EVEID 
SLAMDA, 

SDNUMB, 

SLAMDA 
iEVELIS 


BL.MAN 
CKEVEC 


EVEI02, 


WC.EVE, 


tOUAL 
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SYMBOL  VALUE 


F  6 

PAGE  1 

CREF   04.00 


BL.AU; 

BL.MAN 

CKEVEB 

CKEVEC 

CKEVEN 

CKEVER 

CMSCLE 

CMSSET 

.MSSHO 

DSTR.E 

FL.CNT 

KEYTAB 

LD.ALI 

LD.CEX 

LD.CIR 

LD.LIN 

LD.LOG 

LD.MOD 

LD.NOD 

LD.OBJ 

LD.PRO 

LO.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LT.GRO 

LL.HOS 

LG  HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

lo.pr; 


000010  R 
000000  R 

r  ****** 
=  ****** 
=  ****** 

:;  ****** 

=  ****** 

=  ****** 

=  ****** 

000062 

=  ****** 


000000  RG 

000030 

000024 

000035 

000025 

000031 

000037 

000027 

000032 

000026 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

000040 

000032 

000062 

000060 

000046 

000030 

000004 

000034 

000022 

000024 

000044 

000002 

000022 

000012 

000004 

000056 

000026 

000010 

000012 


REFERENCES 

#17-1602 
#17-1595 

5-101 

5-101 

5-101 

5-101 

5-85 

5-85 

5-85 
#20-1650 

5-86 
#6-108 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 


5-62 
5-62 


_J 
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VSYM  -  VNP  SYMBOL  DEFINITIONS 


1 
2 
3 

^ 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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.TITLE   VSYM  -  VNP  SYMBOL  DEFINITIONS 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  ''O  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  GLOBAL  NTL  SYMBOLS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI  .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNET-HM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
OECnet-Micro/RSX  VI. 0 
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VTMP  -  VNP  TEMPLATE  PROCESSING 
SELINE  -  ECHO  LINE 

442 
443 
444 
445 
446 
447 
448 
449 

450  001154 

451  001154  012700  000552' 

452  001160  016701  000556' 

453  001164 
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.S8TTL  SELINE  -  ECHO  LINE 

'SELINE  -  ECHO  LAST  LINE  READ  FROM  TEMPLATE  FILE 

INPUTS: 

NONE 

OUTPUTS: 

R0,Rl=DESTROYED 


iELINE: 


MOV 
MOV 
rALLR 


#TMPeF,RO 

TMPSZ.RI 

STIOUT 


GET  BUFFER  ADDRESS 
AND  LENGTH 
PRINT  IT  ON  TI: 
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'■»F!LE«'ID«»VTMP1M 
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VIST 

CREATED  BY 

MACRO  ON 

29-JUN-85 

AT  03:09 

PAGE  1 

SfMBOL 

CROSS  REFERENCE 

CREF   04 

.00 

SYMBOL 

VALUE 

REFERENCES 

ALL16 

002710  R 

6-243 

#6-389 

ALL22 

003264  R 

6-245 

#6-414 

BPT 

001020  R 

5-169 

#6-262 

BUFOU 
CR 

003640  R 
=  000053 

6-188 
#5-69 

#6-438 
6-307 

6-321 

6-359 

6-555 

6-368 

6-397 

6-599 

6-422 

CVB'-O 

004074  R 

6-424 
6-306 
6-423 

6-313 
#6-481 

6-358 

6-545 

6-567 

6-370 

6-397 

6-398 

6-422 

DB 

=  015012 

#5-72 

DEA16 

003154  R 

6-247 

#6-404 

DEA22 

003530  R 

6-249 

#6-429 

DELIM 

002046  R 

#6-327 

DS 

=  000060 

#5-68 

6-210 

6-211 

DUMPS 

001520  R 

6-237 

#6-305 

DUMPU 

002054  R 

6-239 

#6-334 

DW 

=  031012 

#5-74 

6-398 

6-425 

EXIT 

000066  R 

6-185 

#6-190 

FE.fEX 

=  «*♦**•  GX 

6-191 

6-455 

F.FNB 

=  »»**♦*  GX 

6-439 

F.NRBD 

=  ♦«♦»»«  GX 

»6-446 

♦6-448 

♦6-450 

♦6-452 

♦6-454 

F.RSIZ 

I  «*»***  GX 

*6-447 

GETAD 

001216  R 

6-231 

#6-281 

GETRC 

001134  R 

6-229 

#6-274 

GETRV 

001052  R 

6-227 

#6-267 

lO.ULB 

=  »»***»  GX 

5-59 

LF 

=  000044 

#5-67 

6-306 

6-338 

6-567 

6-370 

6-396 

6-598 

6-421 

6-423 

LFCR 

=  000040 

#5-66 

6-212 

6-213 

6-214 

6-215 

6-216 

('-m 

6-218 

6-219 

6-220 

6-221 

6-222 

6-225 

6-262 

6-508 

6-340 

6-362 

6-332 

6-392 

6-409 

6-417 

6-454 

MADDR 

=  000014  R 

#5-60 

♦6-210 

♦6-211 

♦6-212 

♦6-213 

♦6-214 

♦6-215 

♦6-216 

'^-lll 

»6-218 

♦6-219 

♦6-220 

♦6-221 

♦6-222 

♦6-225 

♦6-262 

♦6-506 

♦6-307 

»6-308 

♦6-313 

♦6-514 

♦6-519 

♦6-521 

♦6-338 

♦6-539 

♦6-340 

♦6-545 

*6-346 

♦6-351 

♦6-553 

♦6-362 

♦6-567 

♦6-368 

♦6-370 

♦6-382 

♦6-592 

*6-396 

♦6-397 

♦6-598 

♦6-399 

♦6-409 

♦6-417 

♦6-421 

♦6-422 

♦6-425 

*6-424 

♦6-434 

MCTL 

=  000020  R 

#5-62 

♦6-210 

♦6-211 

♦6-212 

♦6-215 

♦6-214 

♦6-215 

♦6-216 

♦6-217 

»6-218 

♦6-219 

♦6-220 

♦6-221 

♦6-222 

♦6-223 

♦6-262 

♦6-306 

♦6-307 

*6-308 

♦6-313 

♦6-314 

♦6-319 

♦6-521 

♦6-558 

♦6-339 

♦6-540 

♦6-345 

»6-346 

♦6-351 

♦6-353 

♦6-362 

♦6-367 

♦6-568 

♦6-570 

♦6-582 

♦6-392 

•6-396 

♦6-397 

♦6-598 

♦6-399 

♦6-409 

♦6-417 

♦6-421 

*6-422 

♦6-423 

»6-424 

♦6-434 

MLGTH 

=  000016  R 

#5-61 

♦6-210 

♦6-211 

♦6-212 

♦6-215 

*6-2U 

♦6-215 

♦6-216 

♦6-217 

♦6-218 

♦6-219 

♦6-220 

♦6-221 

♦6-222 

♦6-223 

♦6-262 

♦6-306 

♦6-307 

♦6-308 

♦6-313 

♦6-514 

♦6-319 

♦6-321 

♦6-338 

♦6-559 

♦6-340 

♦6-345 

♦6-346 

♦6-351 

♦6-553 

♦6-562 

♦6-367 

♦6-568 

♦6-570 

♦6-382 

♦6-392 

♦6-396 

♦6-397 

♦6-398 

♦6-599 

♦6-409 

♦6-417 

♦6-421 

♦6-422 

♦6-423 

♦6-424 

♦6-434 

MODIFY 

002412  R 

6-241 

#6-362 

MODPMT 

002406  R 

#6-359 

6-571 

MSG 

000000  R 

#5-59 

5-60 

5-61 

5-62 

6-210 

6-211 

6-212 

6-213 

6-214 

6-215 

6-216 

6-217 

6-218 

6-219 

6-220 

6-221 

6-^22 

6-223 

6-262 

6-306 

6-307 

6-508 

6-313 

6-314 

6-519 

6-521 

6-338 

G  12 

VTST 
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MACRO  ON 
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S/ttibol  table 


Page  10-1 


A$$CH<=: 

A$$CPS= 

A$$PR1= 

A$$TRP= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DS$BUG= 

D$$IS<= 

D$$Ln  = 

D$$YNC= 

D$$YNM= 

E$tXPR= 

F$$LVL= 

F.NRBD= 

F.RSU  = 

F.URBD= 

GFIRST 

GNEXT 

G$$TPP= 


ABS. 


000000 

000000 

000000 

000000 

000000 

000400 

177564 

1775K 

000000 

000001 

000000 

000000 

000000 

000001 

•♦«♦♦*  GX 

••*♦**  GX 

»♦»»«»  GX 

000304R 

000354R 

000000 


G$$TSS= 
G$$TTK= 
G$$WRD= 
1$$RAR= 
1$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LO$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 


000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 


M.BFVH 

M.8FVL 

M.LGTH= 

M.LNK 

H.UHRA 

M.UMRN 

M.UMVH 

M.UMVL 

NEXT 

NS$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

PREV 

P$$P45= 

P$$WRD= 


000011 

000012 

000014 

000000 

000002 

000004 

000010 

000006 

000014R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

OOOOOOR 

000000 

000000 


Q$$0PT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SPARE  = 
SP.EIP= 
SP.ENB= 
002  SP.LOG= 
SYSFDB= 
S$$WRG= 
S$$YSZ= 


.bhsk; 

,BMSV 
CON 
CSR 
CTM 


002  S.DMCS 
S.FRK 
S.JTM 


0)0010 
0i,0000 
000001 
000000 
000000 
000010 
000001 
000002 
000004 
•«»***  GX 

000000 
007600 
177776 
177774 
000010 
000012 
000006 
000020 
000016 
000007 


177776  000 

000434  001 

DATA    000030  002 

Errors  detected:  0 

♦*«  Assembler  statistics 


(RW,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


0 

0 

9833  Words      (  39  Pages) 

14440  Words      (   55  Pages) 

RSX-llM/PLUS 


S.LHD 

000000 

S.PKT 

000014 

S.PRI 

000004 

S.RCNT 

ymn 

S.ROFF 

177773 

S.STS 

000011 

S.VCT 

000005 

T$$KMG= 

000000 

T$$MIN- 

000000 

UBMPR  = 

170200 

V$$CTR= 

001000 

X$$DBT^ 

000000 

SASUMR 

OOOOOORG 

$BFR  = 

******  GX 

SDEUMR 

0001 72RG 

$GETRV= 

******  GX 

$PUTRC= 

******  GX 

$RAODR= 

******  GX 

$SAVAL= 

******  GX 

.UMRHD= 

******  GX 

Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system: 

SY?VUMR.V2?[h2?l34]VUMR/CR'-SP=SY:[l J JRSXMCM.SML/ML, [130,1 10:nETL  IB/ML, [130, 10]RSXMCM/PA:1, [132,1 0]VUMR 


UIIMR 


rRFATFD   BY      »1ACR0      ON   29-JUN-85   AT    03:09 
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7UML   -   VNP  UNLOAD   ROUTINES 


1 

2 

3 

t, 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
21, 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
^0 
41 
A2 
A3 
44 
45 
46 
47 
48 
49 

50 
51 
52 
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.TITLE  VUNL  -  VNP  UNLOAD  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  "CLEAR  CEX'V'CLEAR  LINE'V'CLEAR  PROCESS"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 


VNP  UNI  HAD  ROUTINFS 
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SXLlN  -  UNSUCCESSFUL  SET  LINE  CLEANUP 

595  ;  ERROR  CONDITIONS 

597  00U55  ioU:   CRASH                ;  NETLDR  LOGIC  ERROR 

598  001A60  lilt:   CRASH                ;  DITTO 
599 
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003132 

O03U0  016767  OOOOOOG  OOOOOOG 

003U6  005077  OOOOOOG 


VUNL  -  VNP  UNLOAD  ROUTINES 
CBSC  -  KB  SCAN 


1071 

1072 

1073 

107A 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109^ 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

110A 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

11  iS 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 
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.SBTTL   IC8SC  -  ICB  SCAN 

ICB3C  -  DETERMINE  IF  VECTOR  POINTS  AT  LINE  TABLE  OR  IC8 


INPUTS: 

RO  =  VECTOR  ADDRESS 

Rl   =  UPPER  Of   VECTOR  ADDRESSES 

R2   =   LINE   TABLE   ADDRESS 

R3   =  UPPER  BOUND   Of    LINE    TABLE   ADDRESS 

SICBLN  =   SIZE   or   EACH   ICB 

..PDV   =   PDV  Of    PROCESS 

OUTPUTS: 

RO  =  VECTOR  ADDRESS,  ON  A  MATCH 
ICBSZ  ^  INCREMENTED  ON  A  MATCH 


IC8SC: 


003152 
003160 
005162 
00316A 
003166 
003170 
003172 
003200 
003202 
003204 
003206 
003210 
003212 

0032U 
003216 
003222 
003224 
003230 
003232 
003236 
003242 
OC'246 
003252 


132767  000001  000200'  5$: 

001015 

021002  10$: 

103402 

021003 

103462 

132767  000002  000200'  20$: 

001060 

022020 

020001 

103761 

005000 

000453 


011004 

032704  000001 

001363 

020427  120000 

103360 

010467  OOOOOOG 

012704  000150' 
022427  013746 
001347 


30$: 


SWTCHI   #IC8LK 

MOV     $IC8LN,SRGIZE 

.IF  NDf  R$$MPL 
CLR     SSADRX 


.ENDC 

BITS 

BNE 

CMP 

BLO 

CMP 

BLO 

BIIB 

BNE 

CMP 

CMP 

?t8 

BR 

MOV 

BIT 

BNE 

CMP 

BHIS 

MOV 

GETAD 

MOV 

CMP 

BNE 


#PR.LTA,PRLTA 

30$ 

(R0),R2 

20$ 

(R0),R3 

36$ 

#Pfi.SEC,PRLTA 

40$ 

(R0)t,(RO)+ 

RO.fil 


(R0),R4 

#1,R4 

20i 

R4.#120000 

20i 

R4,$RADDR 

#ICBLK,R4 
(R4)t, #13746 
20$ 


.IF  DF   R$$MPL 


BIT 
BEO 
CMP 
BNE 


#DF.DAS,$DFLAG 

35$ 

(R4)t, #172372 

20$ 


PREPARE  TO  READ  ICB 
SIZE  Of  A  SINGLE  ICB 


BIAS  ($R8LCK) 


PARTITION  LINE  TABLE? 

YES  If  NE 

DOES  VECTOR  POINT  AT  LINE  TABLE? 

NO  If  LO 

WITHIN  RANGE  THEN? 

YES  IF  LO...SO  GOT  ONE 

BEEN  THRU  VECSC  BEfORE? 

IF  NE,  YES. ..SO  DONE 

ADVANCE  TO  NEXT  VECTOR 

DONE   YET? 

NO   If   LOW 

INDICATE  NO  VECTORS  fOUND 

C-SET  If  DIDN'T  fIND  ONE 

COULD  BE  START  OF  ICB 

MUST  BE  ON  WORD  BOUNDARY 

NOT  IF  NE 

MAPPED  SO  MUST  BE  LT  APR5  ADDRESS 

NOT  If  HIS 

VIRTUAL  ADDRESS  ($RADDR) 

READ 

PREPARE  TO  SCAN  DATA 

IS  IT  'MOV? 

NO  If  NE 


D-SPACE  ENABLED 
IF  NO  -  BRANCH 
CHECK  IF  ITS  OUR  KB 
If  NO  -  BRANCH 


; [MP01 3 
.•CMPOn 


;[MP01] 

;[MP01] 
;[MP01] 
;CMP01] 
;[MP01] 


_     \/MD    ilMinAh     fSnilTIMf:^ 
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Symbol  table 


Page  35-2 


OP$PRI= 

OP$RET= 

OPtRPA= 

OP$SCO= 

OP$SEG= 

OP$SER= 

0P$S1N= 

OP$STA= 

OP$TPA= 

OPSTRI= 

OP$UCS= 

OP$USE= 

OPSVEC-: 

OP$VER= 

OP$XAC= 

OP$XPR= 

0P$X5S= 

0P$X9S= 

PBITS 

PDVA 

PDVX 

PSILD 

P$$PA5= 

P$$URD= 

QF$ACT= 

QF$ALL= 

QF$KNO= 

QF$LOO= 

Q$$OPT= 

REP7 

REP7A 

REP7B 

RNTI 

RQB 

R$$DER= 

r$$k;11  = 

R$$SND= 

R$$11M= 

SCEX 

SCIR 

SLIN 

SLTA 

S°RO 

SPSAV 

SYSFDB= 

S$$WRG= 

S$$YSZ= 

S1.DEC= 

S1.DPR= 

S1.DSI= 

S1.ESC= 

SI.IBFi 

S1.IBV= 

S1.0Br= 

S1.PTH= 

S1.RES= 

S1.RNF= 


000010 

010000 

000010 

000001 

000400 

000400 

000010 

000004 

000020 

000040 

000020 

000002 

000040 

000040 

000001 

000002 

000004 

L.00010 

000356R 

000474R 

000246R 

00021 6R 

000000 

000000 

000001 

000002 

000004 

000010 

000010 

003344R 

003346R 

003456R 

000162R 

******  ex 

000000 

00000 1 

000000 

000000 

0001 24R 

001640R 

001544R 

000774R 

000670R 

000250R 

«♦*♦*»  QX 

000000 
007600 
001000 
000400 
004000 
000002 
002000 
000200 
000100 
000010 
010000 
000020 


SI. 
SI. 
SI. 
SI. 
SI. 
SI. 


.RNF  = 
.RSP= 
.RST  = 
.TNt^ 
.TSY= 
.USI  = 
S2.BEL= 
S2.BRQ= 
S2.CR  = 
S2.CT0= 
S2.CTS= 
S2.ELF= 
S2.FLF= 
S2.1R0= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
002  S2.SRQ= 
S2.WAL= 
002  S2.WRA= 
S2.WRB= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RUB= 
S3.TAB= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.ABD= 
S4.ANI= 
S4.AV0= 
S4.8LK= 
S4.DEC= 
S4.DL0= 
002  S4.EDT= 
S4.HFF= 
S4.HFL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.A8P= 
S5.BCC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI= 


020000 

000004 

000001 

040000 

000040 

100000 

020000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 

000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

0C4000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 

000100 

010000 

000020 

000007 

000040 

000200 

020000 

04000v 

000010 

100000 

020000 

040000 

000014 

000020 

000100 


S5.0XF= 

S5.RP0= 

S5.SW1= 

S5.TMH= 

S5.VER= 

S5.X0F= 

S5.X0N= 

S6.EI0= 

S6.RDI= 

S6.RLU= 

TSKSCH 

TS.8LK= 

TS.CKP= 

TS.CKR= 

TS.EXE= 

TS.HLD= 

TS.MSG= 

TS.NRP= 

TS.OUT= 

TS.RDN= 

TS.RUN= 

TS.STP= 

TY$CHA= 

TY$EVE= 

TY$STA= 

Ty$SUM= 

T$$KM6= 

T$$M1N= 

T.ACTL 


ASTL 
ATT 


T.CPCB 

T.OPRI 

T.EFLG 

T.IOC 

T.L8N 

T.LDV 

T.LNK 

T.MXSZ 

T.NAM 

T.OFF 

T.PCB 

T.PRl 

T.RCVL 

T.RRFL 

T.SAST 

T.SRCT 

T.STAT 

T.ST2 

T.ST3 

T.TCBL 

T.TIO 

T.TKSZ 

T.UC8 

T2.AB0= 

T2.AST= 

T2.CAF= 


000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

lOOOuO 

001000 

002652R 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 

001000 

000400 

001000 

002000 

000000 

000000 

000000 

000052 

000016 

000062 

000004 

000040 

000022 

000003 

000041 

000044 

000000 

000050 

000006 

000066 

000046 

000002 

000012 

000072 

000054 

000071 

000032 

000034 

000036 

000030 

000057 

000060 

000026 

000100 

100000 

00040C 


T2.CHK= 

T2.CKD= 

T2.DST= 

T2.FXD= 

T2.HLT= 

T2.REX= 

T2.SEF= 

T2.SPN= 

T2.STP= 

T2.UFR= 

T3.ACP=: 

T3.CAL= 

T3.CLI= 

T3.GFL= 

T3.MCR= 

T3.NET= 

T3.NSD= 

T3.PMD= 

T3.PRV= 

T3.REM= 

r3.R0V= 

T3.RST= 

T3.SLV= 

T3.SWS= 

UCBBUF 

UC.ALG= 

UC.ATT^ 

UC.KIL= 

UC.L6H= 

UC.NPR= 

UC.PWF= 

UC.QUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UM.CLI= 

UM.DSB= 

UM.NBR= 

UM.OVR= 

UNIT 

US.ABO= 

US.BSP= 

US.BSY= 

US.FOR= 

US.FRK= 

US.KPF= 

US.LAB= 

US.MDE= 

US.MDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PUF= 


020000 

010000 

040000 

002000 

000200 

001000 

004000 

000004 

000020 

000001 

100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

000252R 

000200 

000010 

000004 

000003 

000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

000036 

000200 

000400 

000001 

000244R 

000001 

000002 

000200 

000040 

000002 

000001 

000004 

000002 

000020 

000100 

000001 

000004 

000010 


US.R£D= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.WCIC= 

UU.ABO= 

UU.ATN= 

UU.A'i/N= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

IJU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADHA 

U.AFLG 

U.ATT 

U.BPKT= 

U.BUF 

002  U.CBF  = 
U.CLI 
U.CNT 
U.COTQ 
U.CTCB 
U.CTL 
U.CTYP 
U.CWI 
U.CU2 
U.CW3 
U.CW4 
U.CYL  = 
U.DCB 
U.FCDE= 
U.FNUM= 
U.GRP  = 
U.KCSR= 
l'.KCS6= 
U.LUIC 

002  U.MEDI= 
U.MLUN^ 
U.MUP 
U.OWN 
U.RBNS= 
U.RCTC= 
U.RCTS= 
U.RED 
U.RED2 
U.SCB 
U.SHST= 
U.SHUN= 
U.SPC  = 
U.STS 


000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
'77776 
I  J0112 
.,  '0113 
000110 
000002 
000034 
000020 
000076 
000074 
000036 
000005 
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1^ 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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HEYUORDS 


§2:1 
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VST 
ENT 


217  000000 

218  000000 

219  000000 

:'20  000000 


KFYUD$  "VECTOR", 

KEYUD$  "VERIFICATION" 

KEYWDS  "X25", 

KEYWPS  "X29", 


K$VEC 
K$VER 
K$X25 
K$X29 
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VS' 
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ENTITY  IDENTIFICATION  SUBEXPRESSIONS 

83-1  000000 

835  000000 

836  000000 

837  OOOOC'j 
836  000000 

839  000000 

840  000000 

841  000000 

842  000000 

843  000000 

844  000000 

845  000000 

846  000000 

847  000000 

848  000000 

849  000000 
850 
851 
852 

853  000000 

854  000000 

855  000000 

856  000000 

857  000000 

858  000000 

859  000000 

860  000000 

861  UOOOOO 

862  000000 

863  000000 

864  000000 

865  000000 
866 
867 
868 

869  000000 

870  000000 

871  000000 

872  000000 
873 


874 

875 

876 

000000 

877 

000000 

878 

000000 

879 

880 

000000 

881 

000000 

882 

000000 

883 

000000 

884 

000000 

885 

000000 

886 

887 

000000 

888 

000000 

889 

ocoooo 

890 

000000 

STATES 

TRANS 

V, 

TRANS 

SLAMDA, 

STATES 

PAS 

TRANS 

IDSTR, 

STATES 

TRANS 

V, 

TRANS 

SLAMDA, 

STATES 

ACC 

TRANS 

IDSTR, 

STATES 

TRANS 

V, 

TRANS 

SLAMDA 

STATES 

DESIR1 

TRANS 

INODEND, 

TRANS 

SLAMDA, 

LINE  ID 

STATES 

LINID 

TRANS 

SRAD50, 

STATES 

TRANS 

<■-> 

STATES 

TRANS 

JDNUMB, 

TRANS 

<■♦>, 

STATES 

LINi 

TRANS 

<•->, 

TRANS 

SLAMDA, 

STATES 

LIN2 

TRANS 

SDNUMB, 

TRANS 

<"*>, 

LOGGING  ID 

STATES 

LOGJD 

TRANS 

&KSMON, 

TRANS 

&KSCNSL, 

TRANS 

&KSFIL, 

MODULE  ID 

STATES 

MOD  ID 

TRANS 

8KSX25, 

TRANS 

&KSX29, 

STATES 

M0DID5 

TRANS 

<'->, 

STATES 

TRANS 

SKSACES 

TRANS 

8KSPRT0 

TRANS 

SKSSVS, 

STATES 

M0DID9 

TRANS 

<•->, 

TRANS 

SLAMDA, 

STATES 

M0DI91 
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PAS 
DESIR1 


ACC 
DESIR1 


DESIR1 


SEXIT, 
SEXIT, 


VSl 
OPl 


L1N1, 


SDPAS 


SDACC 


BL.AUT 
BL.AUT 


SLNAME 


SCTL 


WC.CNT, 


LIN2 
SEXIT, 

, 

FL.CNT 

SEXir, 
SEXIT, 

SUNT 
SXUNT, 

WC.UNT 

SEXIT, 
SEXIT, 
SEXIT, 

'■ 

OPSMON 
OPSCON 
OPSFIL 

M0DID5 
M0DID9, 

STMAT1 

0PSX9S 

SEXIT, 
SEXIT, 
SEXIT, 

STMAT3, 
STMAT3, 
STMAT3, 

OPSXAC 
OPSXPR 
0PSX5S 

M0DI91, 
SEXIT, 

STMAT1 
STMAT3 

SQUAL 

SFLAGS 

SQUAL 


SOPTON 
SOPTON 
SOPTON 


SOPTON 


SOPTON 
SOPTON 
SOPTON 
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VS 
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OPTION  KEYWORD  AND  VALUE  SUBEXPRESSIONS 


Page  14-1 


1513 
15U 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 


STATES  EVEID1 
TRANS  SEOS, 
TRANS  SBLANK, 
TRANS  <',     > 

STATES 
TRANS  lEVELIS, 

STATES  EVEID2 
TRANS  SLAMDA, 

EVEID2 
EVEID2 

EVEID1 
SEXIT, 

;    EVENT  LIST 

STATES  EVELIS 
TRANS  1 EVERAN, 
TRANS   lEVENUM, 

SEXIT 
SEXIT 

•    EVENT  RANGE 

STATES  EVERAN 
TRANS  SDNUMB, 

STATES 
TRANS  <'-> 

STATES 
TRANS  SDNUMB, 

SEXIT, 

;    EVENT  NUMBER 

STATES  EVENUH 
TRANS  SDNUMB, 

SEXIT, 

BL.AUT 


CKEVEB 


CKEVER 


CKEVEN 
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SYMBOL   CROSS   REFERENCE 
SYMBOL      VALUE 


G    6 

PAGE   2 

CREF       OA.OO 


LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKN 

LO.SNM 

LQ.TPA 

LO.TRB 

LO.TRI 

LO.UNT 

LO.VCT 

LO.VER 

LR.ACC 

LR.ACO 

LR.ADD 

LR.ALI 

LR.BLK 

LR.CTL 

LR.DES 

LR.HLP 

LR.LIN 

LR.NAM 

LR.PAS 

LR.PRO 

LR.STS 

LR.TRI 

LR.TYP 

LR.UCB 

LR.UIC 

LR.UNT 

LS.ALI 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.ECH 

LS.FDX 

LS.HDX 

LS.HLP 

IS. LIN 

LS.LMC 

LS.LOG 

LS.MOD 

LS.NOD 

LS.NTI 

LS.OBJ 

LS.OPT 

I  S.PRO 

LS.TOP 

LS.TST 

LS.UNF 


00006A 
000030 
00001b 
00005A 
OOOOU 
OOOOH 
000035 
00002C 
00003A 
000030 
000033 
OOOOH 
0000^2 
000020 
000052 
000012 
000002 
000010 
000004 
000010 
000002 
000002 
000012 
OOOOAl 
000002 
000000 
000006 
000002 
000016 
000020 
000005 
000016 
000001 
000033 
010000 
:  000400 
:  001000 
:  004000 

r    010000 

:  000012 
■  000003 
:  000007 
:  000020 
^  000036 
:  000014 
=  000013 
:  000022 
:  000400 
=  000002 
:  002000 
:  000010 
:  020000 


REFERENCES 

#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 


5-62 


5-62 


5-62 


5-62 


5-62 


5-62 


19-1641 


u^.TB 
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54 
55 
56 
57 
58 
59 
60 
61 
62 

63  000000 

64  000000 


000000 
000002 
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.SBTTL  MACRO  DEFINITIONS 

•  *** 

;  LIBRARY  MACROS 

•  *** 

.MCALL  NHWDF$,PD\/DFS,SLTDF$ 


;  GLOBAL  LIBfiARY  SYMBOLS 

NHUDFS   ,<=>  ;  HARDWARE  REGISTERS 

PDVDFS  <=>,<:>, LIST    ;  PROCESS  DESCRIPTION  VECTOR  OFFSETS 

!•       PROCESS  DESCRIPTOR  VECTOR  OFFSETS  AND  BIT  DEFINITIONS 


000004 
000006 
000007 
000010 

00O0T2 


OOOOU 

000016 
000020 


000016 


000000 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 

001000 
0'i2000 
004000 
010000 
020000 
C  0000 

luoooo 


Z.DSP::  .BLKW 
.BLKW 


Z.QUE: 


NAM: 
LLN: 
SCH: 
FLG: 


Z.PCB: 


Z.GCD: 

Z.AVL: 
Z.LEN= 
Z.DAT: 
Z.MAP: 


.IF  DF 

.BLKW 

.ENDC 

.BLKW 

.BLKB 

.BLK8 

.BLKW 

.IF  DF 

.BLKW 

.ENDC 

.IF  DF 

.BLKW 

.ENDC 

.BLKW 

.-Z.DSP 

.BLKW 


RELOCATION  BIAS  OF  DISPATCH  TABLE 
VIRTUAL  ADDRESS  OF  DISPATCH  TABLE 


ADDRESS  OF  SCHEDULER  LEVEL  QUEUE 


1 
1 

X$$MCB 

1 


1      ;  PROCESS  NAME  (RAD50) 

1       ;  #  OF  LOGICAL  LINES  (LLC'S  ONLY) 

1       ;  PROCESS  PRIORITY  (COMPLEMENT) 

1       ;  FLAGS  WORD 

X$$MCB!R$$11MIR$$11S 

1       ;  PCB  OF  LOADED  PROCESS  PARTITION 


R$$11D!I$$AS 


ADDRESS  OF  GCD  NODE(  0  =  PROCESS  NOT  RESIDENT  ) 

POINTER  TO  FIRST  FREE  BLOCK  IN  PROCESS  SPACE 

LENGTH  OF  PDV 

BIAS  OF  LLC  DATA  BASE 

DISPLACEMENT  OF  LLC  MAPPING  TABLE 


FLAGS  WORD  BIT  DEFINTIONS 


ZF.X3P= 
ZF.DDM= 
Zf .DLC= 
ZF.LLC= 
ZF.MFL= 
ZF.KMX= 
ZF.MUX= 
ZF.LMC= 
ZF.TIM= 
ZF.MTM= 


0 
1 
2 
4 

10 

20 

40 

100 

200 

400 


1000 
2000 
4000 
10000 
ZF.MAN==20000 
ZF.INI==40000 
ZF.DVP==100000 


ZF.COU 
ZF.PSE 
ZF.DIA 
ZF.SLI 


PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
(RSX-11 
LLC/DLC 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS 
PROCESS  ALWAYS 


REQUIRES  PARAMETERS  FROM  X3P$DF  MACRO 


IS 
IS 
IS 


A  DDM 
A  DLC 

_   A  LLC 

IS  MARKED  FOR  LOAD  (  WITH  NS  ) 

IS  A  DDM  FOR  A  KMC  DEVICE 

IS  A  DDM  FOR  A  MULTIPLEXER  DEVICE 

REQUIRES  MICRO-CODE  TO  BE  LOADED 

REQUESTS  TIMER  SUPPORT 

REQUIRES  TIMER  ENTRY  ON  EVERY  ACTIVE  PROCESSOR 
M+  MULTI-PROCESSOR  SYSTEMS  ONLY) 

PROCESS  SUPPORTS  COUNTERS 

IS  A  PSEUDO  DDM/DLC 

REQUIRES  DIAGNOSTICS  MICRO-CODE  LOAD 

SUPPORTS  SYSTEM  LEVEL  INTERFACE 

SUPPORTS  NETWORK  MANAGEMENT  REQUESTS 

SUPPORTS  INITIALIZATION  AND  TERMINATE 
RUNS  AT  IT'S  PRIORITY 


U^VM  -  UNP  SYMRni  DEFINITIONS 
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VTMP  -  VNP  TEMPLATE  PROCESSING  MACRO  VO5.03b  Saturday  29-Jun-85  03:08 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

$TMP  -  TEMPLATE  FILE  PROCESSOR 

IMGRES  -  REWRITE  IMAGE 

SBUFCK  -  CHECK  NEXT  128.  BYTES 

TM.RD  -  READ  RECORD 

SELINE  -  ECHO  LINE 

$RQ(N)  -  REQUEST  N  BYTES 

SEVEN  -  .EVEN  ACTION  ROUTINE 

tVFDDM  -  VERIFY  DDM 

SVFDLC  -  VERIFY  DLC 

SVFSPC  -  VERIFY  SPECIAL  OPERATOR 

SVFLVI  -  VERIFY  LEVEL  1 

STERR  -  PRINT  ERROR  MESSAGE 

STkJARN  -  PRINT  WARNING 


s- 

Sk 

6- 

M 

l- 

\U 

H- 

20/ 

9- 

2H1 

10- 

111 

11- 

4()S 

V- 

440 

H- 

4SS 

H- 

SO/ 

1S- 

S2/ 

16- 

S4i 

V- 

S6() 

■\l- 

Sft^ 

1H- 

S9^ 

18- 

')9A 

H     8 
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VTMP  -  VNP  TEMPLATE  PROCESSING 
tRQ(N)  -  REQUEST  N  BYTES 


455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 

479  001170 

480  001174 
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481  001176 

482  001202 

483  00^204 

484  001210 

485  001212 

486  001216 

487  001220 

488  001224 

489  001226 

490  001232 

491  001240 

492  001242 

493  001246 

494  001250 

495  001256 

496  001264 

497  001266 

498  001270 

499  001274 

500  001276 

501  001302 

502  001306 

503  001310 
504 

505 


012746 
000416 
012746 
000413 
012746 
000410 
012746 
000405 
012746 
000402 
012746 
032767 
001011 
161667 
002010 

052767 
005426 
000410 
005767 
100773 
016702 
062667 
105012 


.SBTTL  $RQ(N)  -  REQUEST  N  BYTES 

$RQ(N)  -  REQUEST  ACCESS  TO  BINARY  BUfFER 

THESE  ROUTINES  ARE  CALLED  TO  REQUEST  ACCESS  TO  THE  BINARY  BUFFER, 
WHICH  IS  LOCATED  AT  THE  END  OF  THE  TASK'S  SPACE.  THE  CALLER  SPECIFIES 
THE  NUMBER  OF  BYTES  HE  WISHES  TO  ADD  TO  THE  BUFFER  BY  USING  THE 
APPROPRIATE  ENTRY  POINT. 

INPUTS: 

$PTR=CURfiENT  POINTER  INTO  BINARY  BUFFER 
$LEFT=SPACE  REMAINING  IN  BINARY  BUFFER 
F1.6B0  SET  IF  BUFFER  ALREADY  OVERFLOWED 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

R2=P0INTER  INTO  BINARY  BUFFER 

$PTR  INCREMENTED  BY  CALLER'S  REQUESTED  SIZE 

$LEFT  DECREMENTED  BY  CALLER'S  REQUESTED  SIZE 

F1.BB0,  F1.ERR  SET  IF  THIS  REQUEST  OVERFLOWS  BUFFER 


000007 

000005 

000004 

000003 

000002 

000001 
000001 

000010' 


$RQ7 

$R05 

$RQ4 

$RQ3 

$RQ2 

$RQ1 
000000'  10$: 


000001  000000' 


000000' 

000006' 
000006' 


20$: 
30$: 

40$: 


.ENA8L  LSB 


MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

BIT 

BNE 

SUB 

BGE 

EMSG$ 

BIS 

NEG 

BR 

TST 

BMI 

MOV 

ADD 

CLR8 

RETURN 


#7,-(SP) 

10$ 

#5,-(SP) 

lOi 

*4,-(SP) 

lOi 

#3,-(SP) 

loi 

#2,-(SP) 

loi 

#1,-(SP) 

*F1.BB0,$FLAG1 

20$ 

(SP),$LEFT 

30$ 

13 

#F1.880,$FLAG1 

(SP)  + 

40$ 

$FLAG1 

20$ 

$PTR,R2 

(SP)+,$PTR 

(R2) 


HAS  BUFFER  ALREADY  OVERFLOWED? 

IF  NE,  YES 

ENOUGH  ROOM  FOR  THIS  REQUEST? 

IF  GE,  YES 

BINARY  BUFFER  OVERFLOW 

INDICATE  OVERFLOW 

PURGE  STACK  (SETS  C-BIT) 

HAVE  ANY  OTHER  ERRORS  OCCURRED? 

IF  MI,  YES 

RETURN  CURRENT  POINTER  VALUE 

ADJUST  $PTR  UP 

STORE  EOF  INDICATOR  (CLEARS  C-BIT) 


.DSABL  LSe 
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6-  66    LOCAL  DATA 
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8-  IDA  STM.IN  -    INITIALIZE    TEMPLATE    DATA 

9-  195  FNDADD   -   HND   LINE    TABLE 
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\nv 
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SVMBOl.    CROSS   REFERENCE 
SYMBOL      VALUE 


NEWLIN 

NO 

NUL 

N.FID 

OB 

ODT 

OU 

PROMPT 


PUTAD 

PUTRC 

Q.IOFN 

Q.IOPL 

SSTTBL 

SYSFDB 

TAB 

TST 

VECTOR 

VF.INI 

VF.VDT 

XIO 

X101 

X102 

X103 

X104 

X105 

X106 

X107 

X108 

X109 

X110 

X111 

X20 

X30 

X50 

$ALL16 

$ALL22 

$BFR 

SCBTA 

SCLBUF 

SCLIOS 

SCLPMT 

score 


SCRAVL 
$DFA16 
SDEA22 


0020A2  R 
000000 
002052  R 

015010 
000764  R 
031010 
00A026  R 


001326  R 
00U36  R 
000002 
OOOOU 
000030  R 


GX 


r  ****** 
0020'iA 
000036 
00067A 


GX 

R 
R 
R 


******  ( 
002552  R 
001132  R 
0012U  R 
001324  R 
00U34  R 
001516  R 
002772  R 
003152  R 
003262  R 
003346  R 
003526  R 
003636  R 
002652  R 
002702  R 
002706  R 


r  ****** 
r  ****** 


r  ****** 


****** 


=  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 


REFERENCES 

6-339 

6-370 

6-421 

6-319 
#5-70 

6-321 

6-439 
#5-71 

6-251 
#5-7^. 

6-184 

6-290 

6-429 

6-235 

6-233 

5-59 

5-60 
#5-167 

6-439 
#6-326 
#6-184 

6-197 

6-441 

6-186 
#6-370 

6-267 

6-274 

6-281 

6-289 

6-297 

6-391 

6-389 

6-404 

6-416 

6-414 

6-429 

6-379 

6-376 

6-373 

6-390 

6-415 

6-311 

6-483 

6-198 

6-374 

6-466 

6-267 

6-291 

6-430 

6-452 

6-407 

6-432 


6-340 
6-382 
6-422 

#6-325 
6-313 

#6-328 

6-313 

#6-257 

6-306 

6-267 

6-291 

6-430 

#6-289 

#6-297 

5-61 

6-257 

»6-446 

6-204 
#6-226 

6-190 
6-384 
6-268 
6-275 
6-282 
6-290 
6-298 

#6-394 
6-393 
6-405 

#6-419 
6-418 
6-430 

#6-382 
6-381 

#6-385 


6-343 

6-470 

*6-467 
6-268 
6-297 


6-345 
6-392 
6-423 
6-351 
6-314 
6-353 


6-338 

6-268 

6-297 

#6-465 


5-62 

♦6-447 

6-224 

6-438 

#6-270 

#6-277 

6-283 

6-291 

#6-300 

#6-400 
6-408 

#6-425 
6-433 

#6-383 


6-369 

»6-474 

♦6-476 
6-274 
6-298 
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6-346 
6-396 
6-424 

6-319 


6-345 
6-274 
6-298 


♦6-448 


#6-285 
#6-293 


#6-410 
#6-435 


6-454 
6-482 


6-275 
6-377 


6-351 
6-397 
6-434 

6-345 


6-367 
6-275 
6-372 


♦6-450 


6-484 


6-281 
6-389 


6-353 
6-398 


6-346 


6-370 
6-281 
6-389 


♦6-452 


6-362 
6-399 


6-351 


6-397 
6-282 
6-404 


♦6-454 


6-367 
6-409 


6-422 
6-283 
6-405 


6-368 
6-417 


6-289 
6-414 


6-282 
6-404 


6-283 
6-405 


6-289 
6-414 


6-290 
6-429 
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CREf       04.00 


SYMBOL 

VALUE 

REFERENCES 

F.NRBD 

r  k* *%** 

GX 

•6-135 

•6-140 

•9-251 

•9-264 

F.RSIZ 

-  ****** 

GX 

.10-292 

f .URBD 

=  ****** 

GX 

*6-139 

•9-263 

•10-291 

•10-294 

GFIRST 

000304 

R 

6-105 

9-241 

#10-277 

GNEXT 

000354 

R 

6-108 

9-243 

#10-300 

M.LGTH 

=  000014 

5-74 

5-75 

10-292 

10-306 

M.UMRA 

000002 

6-110 

6-115 

•6-119 

M.UMRN 

000004 

6-111 

6-117 

M.UMVH 

000010 

*6-134 

M.UMVL 

000006 

*6-133 

NEXT 

000014 

R 

*5-75 

6-115 

9-250 

10-294 

10-304 

PREV 

000000 

R 

#5-74 
10-291 

6-110 
10-305 

6-111 
10-314 

•6-120 

•6-121 

6-135 

RSSMPL 

-  ****** 

7-159 

9-253 

10-277 

SYSFDB 

=  ****** 

GX 

.6-135 

.6-139 

•6-140 

•9-251 

•9-263 

♦9-264 

UBMFR 

=  170200 

#5-80 

6-112 

6-126 

SASUMR 

000000 

RG 

#6-104 

tBFR 

-   *♦♦*** 

GX 

6-139 

6-140 

9-263 

9-264 

SDEUMR 

000172 

RG 

#9-238 

SGETRV 

r  ****** 

GX 

10-292 

10-318 

SPUTRC 

=  ****** 

GX 

6-137 

9-261 

SRADDR 

=  ****** 

GX 

•6-137 

•9-261 

•10-292 

•  10-318 

SSAVAL 

r  ****** 

GX 

6-104 

9-238 

.UMRHD 

=  ****** 

GX 

10-287 

9-245  .9-250  9-251 

•  10-291         .10-292         .10-2-'4 
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5A 

50 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66 

67 

68 

69 

70 

71  000000 

72 

73 

7^ 

75 

76  000000 

n   000000 

78  000000 

79  000000 

80  000000 

81  000000 

82  000000 

83  000000 
8A  000000 

85  000000 

86  000000 

87  000000 

88  000000 

89  000000 
90 
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.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 
*  1^  * 

.MCALL 
.MCALL 
.MCALL 
.MCALL 
.ENA8L 


ASR$,GETRV,PUTRC,GETAD,PUTAD,SWrCH0,SWTCH],SC8DF$,CEACC$ 

ERMSG$,ERRPT$,ERBLK$,OBJDF$,RNBDF$,ANBDF$,FLTDF$,CALLR 

ECDDB$,XPDDB$,GETRC,TCBDF$,PLBDF$,CrRDF$,DHBDF$,PCBDF$ 

ADJDF$,VfCDF$,RESRG,SAVRG 

LC 


.IF  DF   R$$MPL 

.MCALL  KRBDF$,CTBDF$ 

KRBDFS 

CTBDFS 

.IFF 

.MCALL  NKRDFS 

NKRDFS 

.ENDC 


SCBDFS 
ADJDFS 
TCBDFS 
OBJDFS 
FLTDF$ 
ANBDFS 
RNBDFS 
ECDDBS 
PLBDFS 
CTRDFS 
XPDDBS 
DHBDF$ 
PC8DF$ 
VECDFS 


DEFINE  KRB  OFFSETS 
DEFINE  CTB  OFFSETS 


STATUS  CONTROL  BLOCK  OFFSETS 

DEFINE  ADJACECV  DATA  BASE 

DEFINE  TCB  OFFSETS 

DEFINE  OBJECT  BLOCK  OFFSETS 

DEFINE  FILTER  BLOCK  OFFSETS 

DEFINE  ALIAS  BLOCK  OFFSETS 

DEFINE  REMOTE  BLOCK  OFFSETS 

DEFINE  ECL  DDB  OFFSETS 

DEFINE  PLB  OFFSETS 

ECL  NODE  COUNTER  BLOCK  OFFSETS 

DEFINE  XPT  DDB  OFFSETS 

DEFINE  DECNET  HOME  BLOCK  OFFSETS 

DEFINE  PCB  OFFSETS 

DEFINE  VECTOR  BLOCK  OFFSETS 


;[MP01] 
;CMPOi: 
;[MP01] 

;[MP01D 
.-CMCOI] 
;[MP01] 

;[MP01] 


Dm  I  T  t  MC  c 


MATDn     \lC\^     C\XV.     Me 


H  U 


VUNL   -   VNP  UNLOAD   ROUTINES 
$CPRO  -   CLEAR   PROrESS 


601 
60? 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
61A  00U62 

615  00U62 

616  00U70 

617  00K72 

618  00K76 

619  001502 

620  001510 

621  001512 
622 

623 
624 

625  0015U 

626  001520 

627  001530 

628  0'i1605 
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.SBITL  SCPRO  -  CLEAR  PROCESS 

$CPR0  -  "CLEAR  PROCESS" 

THIS  ROUTINE  IS  CALLED  TO  REMOVE  A  PROCESS  FROM  CORE. 
BIT  IN  THE  PDV  iS  ALWAYS  CLEARED. 

INPUTS: 

$PDVA=PDV   ADDRESS 

OUTPUTS: 

NONE 


THE  MARK-fOR-LOAD 


026727 
001A11 
016704 

K2764 
000241 


OOOOOOG  004640 
OOOOOOG 
OOOOOOG  OOOOOOG 


iCPRO: 


012746  001512' 


99$: 

;  ERRORS 

101$ 


CMP 

BEQ 

MOV 

CALL 

BICB 

CLC 

RETURN 


$NAME.**RAUX 

101$ 

$PDVA,R4 

XPRO 

#ZF.MFL,Z.FLG(R4 


YOU  CANNOT  CLEAR  AUX 

GET  PDV  ADDRESS 
RELEASE  PROCESS  FROM  MEMORY 
;  CLEAR  THE  MARK-FOR-LOAD  FLAG 
RETURN  WITH  C-BIT  CLEAR 


MOV 

ERRPT$ 
ERMSG$ 
ERBLK$ 


*99$,-(SP)      ;  SET  RETURN  ADDRESS 

ERRA,$EROUT     ;  WRITE  MESSAGE 

<The  AUX  process  cannot  be  cleared  expl ici t ly.> 

ERRA 


in^      n7k  Mnr^rir, 


H  15 

-aq  n7-7n  oa 


J      L 


VUNL    -   VNP   UfJLOAD    ROUTINES 
ICBSC    -    KB   SCAN 
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1128 

MP 

(R4)t, #13746 

OUR  ice  ? 

[MPOn 

112<5 

1i 

20$ 

IF  NO  -  BRANCH 

EHES]^ 

1130 

(R4)+, #172352 

OUR  1C8  ? 

CMPon 

1131 

1 

20$ 

IF  NO  -  BRANCH 

[MP01] 

[MPon 

1132 

(R4)*, #12737 

OUR  KB  ? 

1133 

20$ 

IF  NO  -  BRANCH 

[MP01] 

1134 

MOV 

..PDV,-(SP) 

GET  PDV  ADDRESS 

[MP01] 

1135 

ADD 

#2.DSP,(SP) 

POINT  TO  DISPATCH 

CMP01] 

1136 

(R4)t,5l(SP)t 

OUR  KB  ? 

CMPOI] 

1137 

DM  ! 

20$ 

IF  NO  -  BRANCH 

CMPOI] 

1138 

CM  ^ 

(R4)+,(R4)t 

POINT  TO  LINE  TABLE  JMP  INSTRUCTION 

[MPon 

1139 

CM ' 

(R4)t,(R4)* 

CMPOI] 

1U0 

BR 

33$ 

CONTINUE 

[MP01] 

lUl 
1U2 

.ENDC 

CMPOI] 

1U3 
11A4 
1U5  003254 

022427 

172552 

55$: 

CMP 

(R4)+, #172352 

KISAR5? 

1U6  003260 

001344 

BNE 

20* 

NO  IF  NE 

11A7  003262 

022427 

012757 

CMP 

(R4)+, #12757 

IS  IT  'MOV? 

1148  003266 

001341 

BNE 

20$ 

NO  IF  NE 

1149  003270 

016746 

000202' 

MOV 

..PDV,-(SP) 

PROCESS'  PDV 

1150  003274 

062716 

OOOOOOG 

ADD 

#Z.DSP,(SP) 

POINT  AT  BIAS 

1151  003300 

022456 

CMP 

(R4)+,a(5P)+ 

DO  BIAS'S  MATCH? 

1152  003302 

001555 

BNE 

20$ 

NO  IF  NE 

1153  003304 

022427 

172552 

CMP 

(R4)t, #172352 

•  KISAR57 

1154  003310 

001550 

BNE 

20* 

NOPE  IF  NE 

1155  003312 

022427 

000157 

55$: 

CMP 

(R4)+,#157 

■  'JMP' 

1156  003316 

001325 

BNE 

20$ 

■  NOPE  IF  NE 

1157  003320 

021402 

CMP 

(R4),R2 

■  (R4)  NOW  POINTING  AT  LINE  TABLE 

1158  003322 

103723 

BLO 

20$ 

•  NOT  OURS,  IF  LO 

1159  003324 

021405 

CMP 

(R4),R3 

•  WITHIN  RANGE? 

1160  003326 

105521 

BHIS 

20$ 

■  NO  IF  HIS 

1161  003330 

066767 

OOOOOOG  000176' 

ADD 

$]C8LN,1CBS7 

;  INCREASE  SIZE  OF  THIS  KB 

1162  003336 

000241 

36$: 

CLC 

•  C-CLEAR  THEN  FOUND  ONE 

1163  003340 

000401 

BR 

50$ 

1164  003542 

000261 

40$: 

SEC 

•  C-SET  THEN  NO  MATCH 

1165  005344 

50$: 

SWTCHl 

;  REVERT  TO  #$3UF 

1166  003352 

RETURN 

1167 

H  16 
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VSE 


U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMT! 

U.TRC<= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.|JTIL  = 

U.VCB  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

UJ.D'1  = 

U2.DZ1= 

U2.E?C= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LWC= 

.  ABS. 


000007 
000036 
0000A2 
0000^3 
OOOOAO 
000036 
000060 
000053 
0000A7 
000100 
000026 
00005A 
000056 
000050 
0000^6 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 
000120 
000070 
000020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 
000001 


177776 
003736 
DATA  002376 
Errors  detected: 


000 
001 
002 
0 


U2.L3S= 

U2.L8S= 

U2.NEC= 

U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

VF.ADD=: 

VF.PEM= 

V$$CTR= 

WC.CNT= 

WC.EVE= 

WC.TRI= 

WC.UNT= 

X$$DBT= 

ZF.DDI»I= 

ZF.DLC= 

ZF.KMX= 

ZF.LHC= 

ZF.MUX= 

Z.DAT  = 

Z.FLG  = 

Z.LLN  = 

Z.MAP  = 

Z.NAM  = 

L   PCB  = 

J3FR  = 

iBITS 

$CB0MG= 

$CMAND= 


(RU,I,GBL,ASS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


000004 

$C5TA  = 

******  GX 

$FPDV 

002776R 

010000 

$DDMPV= 

******  GX 

SFSLT 

003054RG 

004000 

$DEA16= 

******  GX 

$FUNC  = 

******  GX 

000010 

$DEVHD= 

******  GX 

$GETRV= 

******  GX 

020000 

$DLCPV= 

******  GX 

$LLCTA= 

******  GX 

100000 

lERROI 

002036R 

00,> 

SWISS  = 

******  GX 

000004 

$ERR02 

002074R 

002 

$HXVCT= 

******  GX 

000200 

$ERR03 

002134R 

002 

SNAME  = 

******  GX 

000002 

$ERR04 

002210R 

002 

SNLRQB 

OOOOOORG 

010000 

$ERR05 

0O2252R 

002 

$0PTON= 

******  GX 

100000 

$ERR06 

002320R 

002 

SPDVA  = 

******  uX 

040000 

SERRZB 

001700R 

002 

$PDVNM= 

******  GX 

020000 

SERRZP 

001734R 

002 

$PDVTA= 

******  GX 

000100 

SERRZR 

001772R 

002 

$PS]PT= 

******  GX 

****** 

GX 

SERRZI 

001410R 

1)02 

$PUTRC= 

******  GX 

****** 

GX 

$ERRZ3 

001440R 

002 

$RADDR= 

******  GX 

001000 

$ERRZ4 

001466R 

002 

SRERR 

003250RG 

000400 

$ERfiZ5 

001530R 

002 

$RSIZE= 

******  GX 

004000 

$ERRZ6 

001550R 

002 

$SAVAL= 

******  GX 

002000 

$ERRZ7 

001604R 

002 

$SAVRG= 

******  GX 

001000 

$ERRZ8 

001644R 

002 

$SAVVR= 

******  GX 

000000 

$ERR86 

001350R 

1)02 

$SLN  = 

******  GX 

****** 

GX 

$ERR87 

001302R 

002 

SSLTA  = 

******  GX 

****** 

GX 

$ERR88 

001220R 

002 

$SLTMA= 

******  GX 

****** 

GX 

$ERR90 

001164R 

002 

$SLTNM= 

******  GX 

****** 

GX 

$ERR91 

001126R 

002 

$TI0UT= 

******  GX 

****** 

GX 

$ERR92 

001064R 

002 

STRIB  = 

******  GX 

****** 

GX 

$ERR93 

001020R 

002 

$VFLAG= 

******  GX 

****** 

GX 

$ERR94 

000764R 

002 

$$CSR  = 

******  GX 

****** 

GX 

$ERR95 

000730R 

002 

$$DEV  = 

******  GX 

****** 

GX 

$ERR96 

000652R 

002 

$$EXT  = 

******  GX 

****** 

GX 

$ERR97 

000614R 

002 

iSINC  = 

******  GX 

****** 

GX 

$ERR98 

000540R 

002 

$$LINX= 

******  GX 

****** 

GX 

$ERR99 

000506R 

002 

$$LRB  = 

******  GX 

002744R 

$FLAGS= 

******  GX 

$$MTP  = 

******  GX 

****** 

GX 

$FMASK= 

******  GX 

$$MUX  = 

******  GX 

****** 

GX 

•♦•  Assembler  statistics 


Work  file  reads:  26 

Work  file  writes:  32 

Size  of  work  file:  17918  Words  (  70  Pages) 

Size  of  core  pool:  "^608  Words  (  67  Pages) 

Operating  system:  RSX-IIH/PLUS 


$$PAR  = 

******  GX 

$$PRI  = 

******  GX 

$$SNUM= 

******  GX 

$$TBL  = 

******  GX 

$$VECr= 

******  GX 

$$$   = 

000062 

.CALI 

000224R 

002 

.CCEX 

0001 32R 

002 

.CLIN 

0001 46R 

002 

.CLOG 

0001 70R 

002 

.CNOD 

000162R 

002 

.COBJ 

000224R 

002 

.CPRO 

0001 36R 

002 

.DAL  I 

000224R 

002 

.DCEX 

000224R 

002 

.DCIR 

000224R 

002 

.DLIN 

000224R 

002 

.DLOG 

000224R 

002 

.DMOD 

0001 76R 

002 

.■^NOD 

000224R 

002 

.DOBJ 

000224R 

002 

.DPRO 

000224R 

002 

.NOP 

0001 56R 

002 

.RNTI 

000230R 

002 

.SAL  I 

000224R 

002 

.SCEX 

000076R 

002 

.SCIR 

000204R 

002 

.SLIN 

0001 16R 

002 

.SLOG 

0001 70R 

002 

.SMOD 

00021 6R 

002 

.SNOD 

000162R 

002 

.SOBJ 

000224R 

002 

.SPRO 

000104R 

002 

.TLGTH= 

******  GX 

.TSKHO= 

******  GX 

..SCSR= 

******  GX 

DB2^VRQB!T3!il32;i34]VROB/CR/-5P=DB2:[1,1]RSXMCM.SML/Ml,[130,nO]NETLlB/ML,[:i30,10]RSXMCM/PA:1,[132,10]VRQB 
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VSl 
COI" 


54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 

74  000000 

75  000000 

76  000002 

77  000006 

78  000012 

79  0000 H 

80  000016 

81  000022 
82 

83  000024 

84  000030 

85  000032 

86  000034 

87  000036 
38 

89  000040 

90  000044 
91 

92  000046 

93  000050 

94  000052 

95  000054 
96 

97  000056 

98  000062 

99  000066 
100  000074 
101 

102  000076 

103  000104 

104  000116 
105 

106  000120 

107  000122 

108  000124 

109  000126 

110  000132 


005005 
012700 
012701 
011002 
001403 
0127C: 
160102 


103003 
005705 
001037 
000772 

021267 
001425 

005705 
001365 
005712 
001363 

016712 
066712 
016762 
010705 


000742 

005705 
00140-' 
00501. 
005062 
000761 


SCSRLD  -  LOAD  CSR  ADDRESS  OF  THIS  SYSTEM  LINE  INTO  CSR  BLOCK 


INPUTS 


J  A 
$$CSR 


-  SYSTEM  LINE  TABLE  ADDRESS 

-  CSR  ADDRESS 


OUTPUTS: 

BLOCK  POINTED  TO  BY  NTL  HOME  BLOCK 


.CXCSR  IS  UPDATED 


NOTE: 


SCSRLD: 


OOOOOOC 
000004 


000002G 


20$: 


50$: 


80$: 


000002 


ONE  REQUIREMENT  IS  THAT  DUPLICATE  SLT  ENTRIES  NOT  BE  ENTERED 
INTO  THIS  LIST.  THE  LIST  IS  MAINTAINED  WITH  ZERO  HOLES  ALLOWED 
ANYWHERE  WITHIN  THE  LIST.  THE  FIRST  HOLE  IS  ALWAYS  FILLED  IN 
WITH  THE  CURRENT  CSR  BLOCKS  BEING  ENTERED,  BUT  THEN  THE  REST  OF 
THE  LIST  IS  SCANNED  FOR  DUPLICATE  ENTRIES  WHICH  ARE  REMOVED. 


.MCALL  SWTCHO,PUTAD,SWTCHI 


OOOOOOG 

30$: 

CMP 
BEQ 

40$: 

TST 
BNE 
TST 
BNE 

OOOOOOG 
OOOOOOG 
OOOOOOG  000002 

MOV 
ADD 
MOV 
MOV 

CLR  R5  ; 

MOV  #$NTLHBt. CXCSR, RO 

MOV  *4.R1 

MOV  (R0).R2 

BEQ  20$ 

MOV  #$UNBLK+2,R2 

SUB  R1,R2 


CALL    $VUNB 
BCC     30$ 

BNE     90$ 

BR     20$ 

(R2),$SLTA 
80$ 


R5 
20$ 
(R2) 
20$ 

$SLTA,(R2) 
$CETDF,(R2) 
$$CSR,2(R2) 
PC,R5 


SWTCHO  #$UN8LK 

PUTAD  ,*64. 

BR  20$ 

TST  R5 

BEQ  90$ 

CLR  (R2) 

CLR  2(R2) 

BR  50$ 


CLEAR  FLAG  FOR  SEGMENT  ALREADY  LOADED 

;  POINT  AT  LISTHEAD 

SET  SIZE  OF  DESIRED  SEGMENT 

DOES  FIRST  BLOCK  EXIST  ? 

NO 

SET  UP  INITIAL  STARTING  ADDRESS 


GET  NEXT  SEGMENT  ADDRESS 

GOT  IT 

END  OF  CHAIN,  HAS  SEGMENT  BEEN  ADDED  ? 

YES,  10-4 

R2  =  0,  GO  ALLOCATE  NEW  BLOCK 

IS  THIS  A  DUPLICATE  ? 

YES,  THEN  CHECK  FOR  DUPLICATE 

HAS  SEGMENT  ALREADY  BEEN  ADDED  10  LIST 

YES 

IS  THIS  SEGMENT  FREE  ? 

NO,  THEN  LOOP 

LOAD  SLT  ADDRESS 

ALLOW  FOR  DIFFERENTIAL 

AND  CSR  ADDRESS 
SIGNAL  SEGMENT  STORED 

POINT  AT  BLOCK  BUFFER 

WRITE  UPDATED  BLOCK  TO  SYSTEM  IMAGE 

AND  LOOP 

HAS  SEGMENT  ALREADY  BEEN  STORED  ? 
NO,  THEN  WE  WERE  ALREADY  IN  LIST 
REMOVE  DUPLICAIE  ENTRY 

AND  CONTINUE 
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V5TB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.03b  Saturday  29-Jun-85  02 
COMMANDS 

222 
223 
224 
225 
226 
227 
228 
229 
230 

231  000000 

232  000000 

233  000000 

234  000000 

235  000000 

236  000000 

237  000000 


:l 
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VSl 
ENT 


238 
239 

2A0 
241 


000000 


242  000000 


.SBTTL 

COMMANDS 

Keyword 
Type,  or 
Substate 

Next 
State 

Action 
Routine 

Mask  (BIS) 
Value 

Flag  to 
Mask 

;  COMMANDS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

,8PSVNP 
8KSCLE, 
8KSEXI, 
&KSHEL, 
8KSSET, 
8K$SH0, 
8KSVDT, 

CLE, 

DONE, 

SEXir, 

SET, 

SHO, 

DONE, 

§HLPAC, 

CMSCLE, 
LS.XIT, 
LS.HLP, 
CMSSET, 
CMSSHO, 
LS.TST, 

SCMAND 

RQBST 

RQBST 

SCMAND 

SCMAND 

ROBST 

•  UNIVERSAL  DONE 

STATES 
TRANS 

DONE 
$EOS, 

SEXIT 

L_ 


VSTB  -  VNP  COMMAND  PROCESSING  S 

ENTITV  IDENTIFICATION 

SUSEXPRES 

891 

000000 

892 

000000 

895 

894 

895 

896 

000000 

897 

000000 

898 

000000 

899 

000000 

900 

000000 

901 

902 

000000 

903 

000000 

904 

000000 

905 

000000 

906 

907 

000000 

908 

000000 

909 

910 

911 

912 

913 

914 

000000 

915 

000000 

916 

000000 

917 

000000 

918 

000000 

91'' 

000000 

920 

000000 

921 

000000 

922 

oocooo 

923 

000000 

924 

000000 

925 

000000 

926 

000000 

927 

928 

929 

930 

931 

932 

000000 

933 

000000 

934 

000000 

935 

000000 

936 

000000 

937 

000000 

VSi 

UTl 


938  000000 

939  000000 
940 

941 
942 

943  000000 

944  000000 
94  5 

946 
94  7 


TRANS 

8KSSVR 

TRANS 

SLAMDA 

NODE  ADDRESS 

STATES 

NODADD 

TRANS 

SDNUMB, 

STATES 

TRANS 

<'  .>, 

TRANS 

SLAMDA, 

STATES 

NODX 

TRANS 

SEOS, 

TRANS 

SLAMDA, 

TRANS 

SLAMDA, 

STATES 

NODD 

TRANS 

SDNUMB, 

NODE  ID 

STATES 

NODID 

TRANS 

SLAMDA, 

STATES 

TRANS 

! NODADD 

TRANS 

INODNAM 

STATES 

N0DID1 

TRANS 

<■/>, 

TRANS 

INODEND 

TRANS 

SLAMDA 

STATES 

N0DID2 

TRANS 

SLAMDA, 

STATES 

N0DID3 

TRANS 

SLAMDA, 

SEXIT, 
SEXIT, 


NODD 


SEXIT 

SEXIT, 

SEXIT, 


f?OX, 


STMAT3 
STMAT3 


SARADI 


DSTR.E 
STR.B 


$ARAD2 


, 

BL.MAN 

NODIDi, 

SNADD, 

N0DID3 
N0DID2 

SEXIT, 

BL.AUT 

REJECT 

VF.ADD, 


SVFLAG 


NODE  ID,  DESTINATION  VARIANT 

NOTE:  LEAVES  BLANKS  ON  MANUAL  PARSE 


DNODIl, 
DNODIl, 


STATES 

DNODID 

TRANS 

SLAMDA, 

STATES 

TRANS 

1 NODADD, 

TRANS 

SRAD50, 

STATES 

DNODIl 

TRANS 

SLAMDA, 

TRANS 

SLAMDA, 

NODE  NAME 

STATES 

NODNAM 

TRANS 

$RAD50, 

SEXIT, 
SEXIT, 


SEXIT, 


BL.MAN 

SSTADO, 
SSTDES 

DSTR.E 
STR.B 


SNNAM 


VF.ADD, 


SVFLAG 


OBJECT 
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UTILITY  SUBEXPRESSIONS 


Page  15 


15A2 

1543 

15iA 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 


.SBTTL  UTILITY  SUBEXPRESSIONS 


Keyword 

Next 

Action 

Mask  (BIS) 

Flag  to 

Type,  or 
Substate 

State 

Routine 

Value 

Mask 

000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 


UTILITY  SUBEXPRESSIONS 

DESTINATION  NODE  STRING,  QUOTED  OR  ANY  CHARACTERS  OTHER  THAN  BLANK  OR  TAB. 
DELIMITED  BY  SLASHES  OR  SHORT  TERMINATED  WITH  A  BLANK  OR  TAB  OR  END  OF  INPUT 

ASSUMES  THAT  BLANK  PARSING  IS  ON  MANUAL 


STATES 
TRANS 
TRANS 
TRANS 
TRANS 


DSTR 

SEOS, 

SLAMDA, 

SLAMDA, 

SANY, 


NODE  END  CHARACTERS 


STATES 
TRANS 
TRANS 

STATES 
TRANS 


NODEND 
<'  >, 
<■"> 

<'  ■■>, 


SEXIT 
SEXIT, 
SEXIT, 
DSTR 


SEXIT 


SEXIT 


STR.B 
DSTR.E 


STRING  OR  ANY  CHARACTERS  OTHER  THAN  BLANK  OR  TAB 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 


STR 
SLAMDA, 

ISTR.M 

SLAMDA, 

STR.M 
SEOS, 
SLAMDA, 
SANY, 


SEXIT, 


SEXIT 

SEXIT, 

STR.M 


BL.MAN 


BL.AUT 


STR.B 
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VSTB 

CREATED  BY 

MACRO  ON  2 

SYMBOL 

:R0SS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

LS.XIT 

=  000011 

#5-62 

LX.ALI 

=  000017 

#5-62 

LX.CEX 

=  OOOOOA 

#5-62 

LX.CIR 

=  000034 

#5-62 

LX.LIN 

=  000006 

#5-62 

LX.LOG 

=  000021 

#5-62 

LX.NOD 

=  000015 

#5-62 

LX.OBJ 

=  000023 

#5-62 

LX.PRO 

=  000005 

#5-62 

OPSINS 

=  000001 

#5-62 

Of  SLOG 

=  000100 

#5-62 

OFSOFF 

=  000002 

#5-62 

OF  SON 

=  000000 

#5-62 

OFSSMC 

=  000200 

#5-62 

OPSADD 

=  000200 

#5-62 

OPSALL 

=  000200 

#5-62 

OPSCCS 

=  OOOOOA 

#5-62 

OPSCIE 

=  OOAOOO 

#5-62 

OPSCON 

=  OOOAOO 

#5-62 

OPSCOP 

=  000001 

#5-62 

OPSCOS 

=  000100 

#5-62 

OPSDST 

=  000200 

#5-62 

OPSDTE 

=  OOOOAO 

#5-62 

OPSDUP 

=  000002 

#5-62 

OPSEST 

=  000100 

#5-62 

OPSEVE 

=  010000 

#5-62 

GPSFIL 

=  000200 

#5-62 

OPSGRP 

=  000100 

#5-62 

OPSHOS 

=  000001 

#5-62 

OPSHTM 

=  000002 

#5-62 

OPSINA 

=  004000 

#5-62 

OPSINC 

=  001000 

#5-62 

OPSKDS 

=  002000 

#5-62 

OPSKDT 

=  OOOAOO 

#5-62 

OPSKEV 

=  001000 

#5-62 

OPSKGR 

=  001000 

#5-62 

OPSKNT 

=  010000 

#5-62 

OPSKSK 

=  002000 

#5-62 

OPSLCT 

=  000200 

#5-62 

OPSLNE 

=  OOOOAO 

#5-62 

OPSLOC 

=  000001 

#5-62 

OPSLST 

=  000002 

#5-62 

OPSLTM 

=  000001 

#5-62 

OPSLVL 

=  000010 

#5-62 

OPSMAC 

=  000010 

#5-62 

OPSMCO 

=  000002 

#5-62 

OPSMDE 

=  OOOAOO 

#5-62 

OPSMLI 

=  OOOOOA 

#5-62 

OPSMON 

=  000100 

#5-62 

0PSM5T 

=  000020 

#5-62 

OPSNAM 

=  OOOOOA 

#5-62 

OPSNET 

=  OOAOOO 

#5-62 

ON  29-JUN-85  AT  03:03 
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#5-62 


#5-62 


#5-62 
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VSYM  -  VNP  SYMBOL  DEFINITIONS 
MACRO  DEFINITIONS 


100000 
UOOOO 


65  000000 


\inih 

000000 
000002 
000003 
000004 
000006 
000010 
000012 
000013 

oooou 

000015 
000016 
000020 
000021 
000022 


000022 


000000 
000007 
000010 
000020 
000040 
000100 
000200 

000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


000017 
000360 
000000 
000001 
000002 
000003 
000004 
000000 
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CHANNEL  TABLE  FLAGS 


h.ASN==100000 
ZS.BSY==:140000 


CHANNEL  IS  FREE  TO  ASSIGN 

CHANNEL  IS  IN  PROCESS  OF  ASSIGNMENT 


SLTDFS  <=>,<:>, LIST    ;  SYSTEM  LINE  TABLE  OFFSETS 
SYSTEM  LINE  TABLE  OFFSETS  AND  FLAG  WORD  BIT  DEFINITIONS 


L.CVA 
L.FLG 
L.DDM 
L.DLC 
L.DDS 


DLM 
DLS 
L.CTL 
L.UNT 
L.NSTA 
L.COST 
L.KRBA 
L.NMST 
L . OWNR 
L.MPF: 
L.LEN= 


LF.X2P= 
LF.BWT= 
LF.TIM= 
LF.MTP= 
LF.SER= 
LF.MDC= 
LF.PAC= 

LF.BRO= 
LF.LPB= 
LF.ENA= 
LF.MFL= 
LF.REA= 
LF.UNL= 
LF.RDY= 
LF.ACT: 


.8LKW 
.6LKU 
.8LKB 
.BLK8 
.BLKW 
.BLKW 
.BLKW 
.BLK8 
.BLKB 


1 

1 

1 

1 

1 

1 

1 

1 

1 

.BLKB 

.BLKB 

.BLKW 

.BLKB 

.BLKB 


DDM  CHARACTERISTICS  VIRTUAL  ADDRESS 

FLAGS  WORD 

DDM  PROCESS  INDEX 

DLC  PROCESS  INDEX 

ODM  LINE  TABLE  ADDRESS 

DLC  LINE  TABLE  RELOCATION  BIAS 

DLC  LINE  TABLE  (  VIRTUAL  )  ADDRESS 

CONTROLLER  NUMBER 

MULTIPLEXER  UNIT  NUMBER 

NUMBER  OF  TRIBUTARIES  ON  THIS  LINE 
LINE  COST  FOR  ROUTING  TASK 
POINTER  TO  CONTROLLER  REQUEST  BLOCK 
NETWORK  MANAGEMENT  LINE  STATE/SUBSTATE 
LINE  OWNER  PROCESS  INDEX 

START  OF  MULTIPOINT  FIAG  TABLE 

;  LENGTH  OF  EACH  SLT  ENTRY 


FLAG  WORD  DEFINITIONS 

=000000  ;  LINE  NEEDS  PARAMETERS  FROM  X2P$DF 

=000007  ;  BUFFER  WAIT  QUEUE  COUNT 

=000010  ;  LINE  NEEDS  TIMER  SERVICE 

=000020  ;  LINE  IS  MULTI-POINT 

=000040  ;  CIRCUIT  HAS  SERVICE  DISABLED 

=000100  ;  LINE  NEEDS  MODEM  CONTROL 

=000200  ;  LINE  WAS  PREVIOUSLY  ACTIVE 

;  (BEFORE  RECONFIGURATION) 

=000400  ;  LINE  IS  A  BROADCAST  CHANNEL  (ETHERNET) 

=001000  ;  LINE  IS  IN  LOOPBACK 

=002000  ;  LINE  IS  TO  BE  ENABLED  AT  INITIALIZATION  TIME 

=004000  ;  LINE  IS  MARKED  FOR  LOAD  AT  INITIALIZATION  TIME 

=010000  ;  LINE  IS  REASSIGNABLE 

=020000  ;  LINE  IS  MARKED  FOR  UNLOAD 

=040000  ;  LINE  IS  READY  (DDM, DLC  PROCESSES  AND  LINE  TABLES  ASSIGNED) 

=100000  ;  LINE  IS  ACTIVE  (  LINE  IS  ASSIGNED  TO  AN  LLC  ) 

NETWORK  MANAGEMENT  STATE/SUBSTATE  BYTE  DEFINITIONS 
STATE  =  LOW  4  BITS 
SUBSTATE  =  HIGH  4  BITS 


LN 

STA= 

=  17 

;  STATE 

FIFID 

BIT  MASK 

LN 

SIIR= 

=360 

;  SUBSTATE  FIELD  BIT  MASK 

LN 

nN== 

0 

;  STATE  =  ON 

LN 

nFF  = 

=  1 

;  STATE 

=  OFF 

LN 

SFR= 

=2 

;  STATE 

=  SERVICE 

LN 

nAII= 

=3 

;  STATE 

=  ON, 

AUTOSERVICE 

LN 

nnp= 

=4 

;  STATE 

=  ON, 

OPEN 

LN 

CLO= 

=0 

;  SUBSTATE  = 

CLOSED 

I     7 

\/c;vM  -  v/MD   <;vMBni     nFFiMiTinM<;        HAfRn  uOS.O^h   Saturriav   ?9-Jun-85    03:07     Paae   5-2 


H    8 

VTMP  -  VNP   TEMPLATE   PROCESSING     MACRO  VO5.03b   Saturday  29-Jun-85  03:08     Page  4 


1 
2 
3 
^ 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
15 
17 
18 
19 
20 
21 
22 
23 
2^, 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
55 
35 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VTMP  -  VNP  TEMPLATE  PROCESSING 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  Br 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITh  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTl. '.RE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  PROCESSING  MAIN  CONTROL  LOOP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


J!  A  r  nn  wPii;  n7k  C  ^ 
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VTMP  -  VNP  TEMPLATE  PROCESSING 
SEVEN  -  .EVEN  ACTION  ROUTINE 

507 
508 
509 
51C 
511 
512 
513 
5U 
515 
516 

517  001312 

518  001312     032767 

519  001320     OOUIO 

520  001322 

521  001326     103^05 

522  001330     112722 

523  00133A     105012 
52A  001336     005267     000012' 
525  0013A2 
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.SBTTL  SEVEN  -  .EVEN  ACTION  ROUTINE 
SEVEN  -  ".EVEN"  ACTION  ROUTINE 


INPUTS: 

NONE 

OUTPUTS: 

R2=DESTR0YED 


COOOOl  000012' 


§EVEN: 


OOOOOOG 


lOS: 


BIT 

BEQ 

CALL 

BCS 

M0V8 

CLR8 

INC 

RETURN 


*1,SSIZE 

loi 

SRQ2 

10S 

#.8YTE,(R2)+ 

(R2) 

SSIZE 


IS  SIZE  CURRENTLY  EVEN? 
IF  EQ,  YES  -  DO  NOTHING 
REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
STORE  ZERO  VALUE 
ADJUST  DATA  BASE  SIZE 


I  9 
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1 
2 
5 

4 

5 

6 

7 

8 

9 

10 

11 

12 

15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   VTMPIN  -  VNP  TEMPLATE  INITIALIZATION 
.IDENT   /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTKF.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OK  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TEMPLATE  PROCESSING  INITIALIZATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-T1M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 


4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


\ir\i:.    n7k  c  ■, 
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VTST  -  VNP  TESTING  ROUTINES 


1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
1? 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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.TITLE   VTST  -  VNP  TESTING  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  SYSTEM  IMAGE  ODT  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00     14-DEC-79 

OECNET-UM/S  V3.0 
DECNET-11M-PLUS   VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DtCnet-llM-Ptus  V3.0 
DECnet-Micro/RSX  Vl  .0 


OF      ITS 
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CREATED  BY     MACRO     ON  29-JUN-85   AT   03:09 


VIST 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 
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CREf       OA.OO 


SDEVHD 

r 

****** 

GX 

SFMASK 

= 

****** 

GX 

SGCLEP 

- 

****** 

GX 

SGETAD 

r 

****** 

GX 

SGETRC 

- 

****** 

GX 

SGETRV 

r 

****** 

GX 

SPARHD 

- 

****  r * 

GX 

SPUTAD 

~ 

****** 

GX 

SPUTRC 

- 

**  A  *  ** 

GX 

SRADDR 

~ 

****** 

GX 

SR8LCK 

~ 

****** 

GX 

SRSIZE 

= 

****** 

GX 

tVFLAG 

- 

****** 

GX 

$VIMI 

= 

****** 

GX 

SVIMO 

= 

****** 

GX 

SVTST 

000036 

RG 

$S$ 

= 

001656 

R 

$$$ARG  =  000003 
$$$GLB  =  ««•»«♦ 
$$$LEN  =  000011 


.CRAVL  =  »»»*«*  GX 

.DEVHD  -  »«♦•♦*  GX 

.fMASK  =  »♦...♦  GX 

.PARHD  =  .»n*.  GX 


REFERENCES 

6-448 

6-191 

6-468 

6-284 

6-276 

6-269 

6-450 

6-292 

6-299 
♦6-267 
♦6-281 
♦6-268 

6-186 

6-194 

6-458 
#6-182 
#6-184 

6-213 
#6-218 

6-222 
#6-274 

6-283 
#6-298 

6-339 
#6-382 

6-399 
#6-417 

6-430 
#5-59 

5-59 
#6-210 

6-214 
#6-219 

6-223 
#6-339 

6-368 
#6-409 

6-434 

6-453 

6-449 

6-447 

6-451 


6-446 


6-447 
♦6-274 
♦6-289 
♦6-275 
♦6-190 


6-184 
#6-214 

6-218 
#6-223 

6-274 
#6-289 

6-298 
#6-340 

6-382 
#6-404 

6-417 
#6-434 

5-59 

6-210 
#6-215 

6-219 
#6-262 

6-339 
#6-332 

6-409 


6-455 


6-449 
♦6-282 

♦6-283 
♦6-438 


#6-210 

6-214 
#6-219 

6-223 
#6-275 

6-289 
#6-307 

6-340 
#6-389 

6-404 
#6-421 

6-434 
#5-59 

#6-211 
6-215 

#6-220 
6-262 

#6-340 
6-382 

#6-417 


6-457 


6-451 
•6-290 

♦6-291 
6-441 


6-210 
#6-215 

6-219 
#6-262 

6-275 
#6-290 

6-307 
#6-346 

6-389 
#6-405 

6-421 

5-59 

6-211 
#6-216 

6-220 
#6-307 

6-340 
#6-392 

6-417 


♦6-459 


6-453 

♦6-297 

♦6-447 

♦6-449 

♦6-451 

•6-453 

♦6-298 

6-305 

6-334 

6-363 

#6-211 

6-211 

#6-212 

6-212 

#6-213 

6-25 

#6-216 

6-216 

#6-217 

6-217 

#6-220 

6-220 

#6-221 

6-221 

*6-222 

6-262 

#6-267 

6-267 

#6-268 

6-268 

#6-281 

6-281 

#6-282 

6-282 

#6-283 

6-2 

#6-291 

6-291 

#6-297 

6-297 

#6-3u. 

6-308 

#6-314 

6-314 

#6-339 

6-346 

#6-362 

6-362 

#6-368 

6-368 

#6-392 

6-392 

#6-396 

6-396 

#6-399 

6-405 

#6-409 

6-409 

#6-414 

6-414 

#6-424 

6-424 

#6-429 

6-429 

#6-430 

#5-59 

5-59 

#5-59 

5-59 

5-59 

#6-212 

6-212 

#6-213 

6-213 

#6-214 

6-216 

#6-217 

6-217 

#6-218 

-218 

#6-221 

6-221 

#6-222 

6-222 

-223 

6-307 

#6-308 

6-308 

#6-314 

6-314 

#6-346 

6-346 

#6-362 

6-362 

#6-368 

6-392 

#6-396 

6-396 

#6-399 

6-399 

#6-421 

6-421 

#6-424 

6-424 

#6-434 

rnr:  «  tc  r\     Dw 
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VUMR  CREATED   BY 

MACRO   CROSS   REFERENCE 


MACRO     ON  29-JUN-85   AT   03:09 


PAGE 
CREF 


H  13 


0^.00 


MACRO  NAME 

REFERENCES 

CALL 

6-10A 

6-105 

6-108 

6-137 

9-238 

CRASH 

9-270 

GETAD 

#5-58 

GETRV 

#5-58 

10-292 

10-318 

PUTAD 

#5-58 

PUTRC 

#5-58 

6-137 

9-261 

RAND 

#6-137 

6-137 

#9-261 

9-261 

#10-292 

RETURN 

6-U1 

9-265 

10-320 

SCBDF$ 

#5-';8 

5-63 

SUTfHI 

#5-58 

6-139 

9-263 

10-291 

10-29A 

SWTCHO 

#5-58 

6-135 

6-UO 

9-251 

9-264 

9-2A1 


10-292 


9-243 


#10-318 


9-261 


10-318 


10-292 


10-318 
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VUNL  -  VNP  UNLOAD  ROUTINES 
LOCAL  DATA 

92 

93 

9A 

95 

96 

97 

98  000000 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 

111  000000 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 

127  000004 
128 
129 
130 
131 

132  000006 

133  000010 
131 
135 
136 
137 

138  000012 
139 
UO 
U1 
U2 

U3  000112 
UA 
K5 
U6 

K8  0001U 


H  K 

MACRO  V05.03b  Monday  16-Sep-85  07:30  Page  6 

.SBTTL  LOCAL  DATA 

•  *** 

■  LOCAL  DATA 

.PSECT  DATA.D 

.IF  DF  R$$MPL 
ICBI    ==  16  ; 

CETNAM:  .ASCIZ  /CETAB/        ; 

CTBLK:   .WORD  0.0  ; 

CTBSYM:  .RAD50  "SCTXXX" 

CTVAL:   .BLKU  1 

STBEXT:  .ASCIZ  /STB/         ; 
.ENDC 

$PNAME::.8LKW   2  : 

KR8  BUFFER  FOR  RSXilMt  SYATEMS 


.IF  OF  R$$MPL 

KRBMP:   .BLK8  70 

CPU:    .BLKU  1 

IC8VL:   .BLKW  1 

NXICB:   .BLKU  1 

.ENDC 


READY  LINES  ON  THIS  CONTROLLER 
UNITS:   .BLKU   1 

UNLOAD  BLOCK  BIAS  AND  ADDRESS 


UeiAS: 
U8A: 


.BLKU   1 
.BLKU   1 


I-SPACE  KB  SIZE 
CETAB  FILE  NAME 

CONTROLLER  SYMBOL  NAME 
FILE  EXTENSION  NAME 
PARTITION  NAME 


KRB  BLOCK 
CPU  NUMBER 
SAVED  ICB  ADDRESS 
NEXT  ICB 


START  OF  BLOCK  ADDRESS  UNMAPPED 


COPY  OF  UNLOAD  BLOCK 
BLOCK:   .BLKW   32. 

POINTER  INTO  UNLOAD  BLOCK  COPY 
UPTR:    .BLKW   1 

IAS  OF  BLOCK  TO  DEALLOCATE  (IN  "MICUNL") 
KMCB:    .BLKW   1 


;[MP01] 
;CMP01] 
;tMP01] 

;[MP01] 
jCHPOl] 
;CMP01] 
;CMP01] 
;[MP01] 

;[MP01] 


;CMP01] 
;CHP01] 
; CMP01 ] 
; CMP01 ] 
;CHP0n 


I  U 


wAC  n7u  u — A~...     1t_c«,^_Qi;  n7.7n   Dr.n«  A_1 


VUNL  -  VNP  UNLOAD  ROUTINES 
$CLIN  -  CLEAR  L!N 


650 
631 
6?? 
633 
63A 
635 
636 
637 
638 
639 
640 
6A: 
6A2 
6A3 
644 
645 
646 
647 

648  001610 

649  001610     016705 
650 

651  001614     042765 

652  001622 

653  001626  116504 

654  001632 

655  001636  032764 

656  001644  001402 

657  001646 

658  001652 
659 

660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 

684  001652  005702 

685  001654  001066 

686  001656 
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.SBTTL  SCLIN  -  CLEAR  LIN 

$CLIN  -  CLEAR  LINE 

THIS  ROUTINE  IS  CALLED  TO  DE-ALLOCATE  THE  DLC  AND  DDM  LINE  TABLES  AND  TO 
REMOVE  THE  ASSOCIATED  PROCESSES  FROM  CORE  IF  THEr  HAVE  NOT  BEEN  BROUGHT  IN 
VIA  "SET  PROCESS"  AND  IF  THIS  IS  THE  LAST  SLT  REFERENCE  TO  THE  PROCESS. 
IF  THE  LAST  LINE  ON  A  KHC  HAS  BEEN  CLEARED,  THAT  KMC  WILL  BE  REMOVED 
FROM  THE  "LOADED  KMC'S"  LIST. 

INPUTS: 

$SLTA=SLT  ADDRESS 

OUTPUTS: 

LF.RDYILF.UNL    CLEARED   FROM  L.FLG 
L.DDS   AND   L.DLS   ZEROED 


ICLIN:: 


OOOOOOG 

OOOOOOC  OOOOOOG  XL  IN: 

OOOOOOG 

OOOOOOG  OOOOOOG 

15$: 


MOV  $SLTA,R5 

BIC  *LF.RDY1LF.ACT!LF 

CALL  SCAN 

M0V8  L.DDM(R5),R4 

CALL  GETPDV         , 

BIT  *ZF.PSE,Z.FLG(R4) 

BEQ  15$ 

CALLR  20$ 


, IF  DF  R$$MPL 


GET  SLT  ADDRESS 

.ENA,L.FLG(R5)  ;  MARK  LINE  NOT  READY  AND  INAC 
SCAN  SLT  FOR  OTHER  ACTIVITY 
GET  DDM  PDV  INDEX 
GET  PDV  ADDRESS 
;  IS  THIS  DLM? 
BR  IF  NO 
JUMP  TO  20$ 


SAVRG 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 

SWTCHI 

SWTCHO 

CLR 

BISB 

ASL 

ADD 

ADD 

ADD 

CLR 

RESRG 

.ENDC 

rsT 

BNE 
CALL 


<R2,f<4,R5> 

$NAME,CTBSYM+2 

*$DFUIC,RO 

#CETNAM,R1 

#STBEXT,R2 

$AZFS 

#CTBL<,RO 

$SYM8L 


R1 

L.CTL(R5),R1 

R1 

CTVAL,R1 

#L.KRB,R1 

*$CETAB,R1 

(R1) 

<R5,R4,R2> 


R2 

10$ 

CSRUNL 


;[MP01] 


SAVE  REGS 

FORM  SYMBOL  NAME  TO  LOOK  FOR  "$CTXXX" 

GET  THE  COMM  EXEC  UIC 

FORM  ASCIZ  FILE  SPEC  "CXX.SXDCETAB.STB' 


GET  SYMBOL  BLOCK  TO  LOOK  FOR 
LOOK  FOR  IT 

SET  DEFAULT  BUFFERS 

INlfREG 

COPY  CONTROLLER  NUMBER 

CONVERT  TO  UORD  OFFSET 

CALCULATE  FIRST  CTB  ADDRESS 

POINT  AT  THIS  LINES  KRB  ADDRESS  OF  THE  CTB 

CALCULATE  ADDRESS  IN  VNP  TEMPLATE 

INIT  KRB  ADDRESS 

RESTORE  REGS 


CMPOI] 


ARE  ANY  OTHER  MUX  LINES  STILL  READY? 

IF  NE,  YES 

REMOVE  CSR  ADDRESS  FROM  LIST 


I  15 


n,-«  1 / _ 


VUNL    -   VNP  UNLOAD   ROUUNES 
2DDS  -  CLEAR  DDM  LINE    rABLF 


1169 
1170 
1171 
117? 
1175 

117A  00335A  016702 

1175  003360  016701 

1176  003364  012200 

1177  003366  126065 

1178  003374  001016 

1179  003376  126065 

1180  005A0'-.  001012 

1181  003406  005060 
118c  003412  005060 

1183  003416  126060 

1184  003424  001002 

1185  003426  005060 

1186  003432  005301 

1187  003434  001353 

1188  003436 

;i89 
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ADDRESS 

.SBTTL  ZDDS  -  CLEAR  DDM  LINE  TABLE  ADDRESS 

RE-SCAN  SET'S  AND  CLEAR  DDM  LINE  TABLE  ADDRESS  WORD(S) 


OOOOOOG        ZDDS;   MOV  SSLTMAB.R?     ;  GET  SLT  MAPPING  TABLE  ADDRESS 

OOOOOOG  MOV  $SLTNM,I^1      ;  GET  NUMBER  OF  SET'S 

10$:    MOV  (fi2)t,R0       ;  GET  NEXT  SLT 

OOOOOOG  OOOOOOG        CMP8  L .DDM(RO)  ,L .DDM(R5)  ;  SAME  DEVICE  AS  OURS? 

BNE  20$  ;  IF  NE,  NO 

OOOOOOG  OOOOOOG        CMPB  L.CTL (RO) ,L.CTL (R5)  ;  SAME  CONTROLLER? 

BNE  20$  ;  IF  NE,  NO 

OOOOOOG  CLR  L.DDS(RO)      ;  ZERO  DDM  LINE  TABLE  ADDRESS 

OOOOOOG  CLR  L.KRBACRO)      ;  ZERO  KRB  ADDRESS 

OOOOOOG  OOOOOOG        CMPB  L .DDM(RO)  ,L.DLC(RO)  ;  COMBINATION  DDM/DLC? 

BNE  20$  ;  IF  NE,  NO 

OOOOOOG  CLR  L.DLS(RO)       ;  ZERO  DLC  LINE  TABLE  ADDRESS 

20$:    DEC  R1 

BNE  10$  ;  SCAN  ENTIRE  SLT 

RETURN 
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VRQB 

CREATED  BY 

MACRO  ON  30-JUL-85  AT 

10:55 

PAGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF   04 

00 

5YMB0L 

VALUE 

REFERENCES 

AB 

=  *»*»*♦  GX 

19-626 

19-627 

34-1259 

34-1260 

CCEX 

002536  R 

6-126 

#26-947 

CEXLD 

000176  R 

6-117 
6-160 

6-121 
#12-353 

6-127 

6-130 

6-135 

6-138 

6-140 

6-142 

6-146 

CH<LF 

001 26A  R 

6-123 

#20-667 

CHKNOD 

00023A  R 

6-136 

#14-393 

CHKPP 

00055?  R 

6-119 

#16-501 

CLIN 

002A?.  R 

6-132 

#25-920 

CLQREM 

=  »**«*«  GX 

35-1312 

CLRPP 

001532  R 

6-115 

6-124 

6-144 

#21-727 

CMSSET 

=  »««»«*  GX 

14-406 

CPRO 

001672  R 

6-129 

#24-795 

DECNTI 

0036A0  R 

#35-1302 

DEV7 

0034 2A  R 

8-224 

#33-1225 

OSIZE 

=  ***♦♦»  GX 

26-969 

DV.MNT 

=  100000 

24-873 

D.DSP 

000012 

*24-882 

D.PCB 

000034 

24-858 

24-864 

•24-883 

24-885 

D.UCB 

000002 

24-866 

D.UCBL 

000010 

24-870 

24-878 

O.UNIT 

000006 

24-867 

24-880 

ERRBUF 

000400  R 

#8-202 

30-1139 

ERRMSG 

000370  R 

*8-200 

30-1153 

FE.CEX 

=  «♦♦*♦*  GX 

11-319 

11-337 

12-354 

26-948 

FL.CEX 

=  »«*«**  GX 

11-318 

a.DDM 

=  »»*♦««  GX 

15-474 

FL.DLC 

***♦♦♦  GX 

15-474 

24-889 

FL.ECH 

»•*♦♦♦  GX 

7-192 

9-280 

FL.FDX 

=  »*»♦**  GX 

7-190 

FL.HDX 

=  **♦»«*  GX 

7-191 

FL.KMX 

=  *♦«♦*«  GX 

19-608 

FL.LLC 

=  ******     GX 

15-474 

16-510 

17-536 

17-54! 

24-807 

FL.LMC 

=  «*»»*»  GX 

19-600 

FL.MUX 

=  ******     GX 

19-604 

29-1107 

FL.TOP 

=  ******     GX 

7-193 

9-280 

FL.WRN 

=   ******     GX 

9-280 

FMAX 

=  000037 

#6-110 

9-273 

FMT7 

002352  R 

8-209 

8-210 

8-211 

8-212 

8-213 

8-214 

8-215 

8-216 

8-217 

8-218 

8-219 

8-220 

8-221 

8-222 

8-224 

8-226 

^-W 

8-228 

8-229 

8-230 

8-231 

8-232 

8-233 

8-234 

8-235 

8-236 

8-237 

#8-242 

FMT7A 

002353  R 

8-223 

#8-243 

FMT7B 

002366  R 

8-225 

#8-244 

F*1.7 

=  000000 

#8-209 

#8-2^0 

#8-211 

#8-212 

#8-213 

#8-214 

#8-215 

#8-216 

#8-217 

#8-218 

#8-219 

#8-220 

#8-221 

#8-222 

#8-224 

#8-226 

#8-227 

#8-228 

#8-229 

#8-230 

#8-231 

#8-232 

#8-233 

#8-234 

#8-235 

#8-236 

#8-237 

FM.7A 

=  000000 

#8-223 

FM.7B 

=  000000 

#8-225 

FTAB 

000000  R 

#6-78 

6-110 

9-277 

F.NRBD 

=  *♦♦«*»  GX 

♦9-288 

»24-884 

F.RSIZ 

I  ******     GX 

.24-870 

»24-885 

•26-969 

•26-996 

•35-1303 

•35-1313 

F.URBD 

=  ******     GX 

•9-287 

•24-869 

VSE 


VRQB 
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VSl 
CLE 


111 

112  0001 3A 

113  000H2 
1U  000150 


90$: 


SWTCHO 

surcHi 

RETURN 
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VS 
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VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.03b  Saturday  29-Jun-85  02:59 

CLEAR  COMMAND 


Page  8 


2AA 
2A5 
2 '.6 
247 
2A8 
2'!.9 
250 
251 
252 

253  000000 

254  000000 

255  000000 

256  000000 
257 

258  000000 

259  000000 

260  000000 

261  000000 
262 

263  000000 

264  000000 

265  000000 

266  000000 

267  000000 

268  000000 

269  000000 
270 

271 
272 
273 
274 

275  000000 

276  000000 

277  000000 
278 

279 
280 

281  000000 

282  000000 

283  000000 

284  000000 
285 

286 
287 
288 

289  000000 

290  000000 

291  000000 
292 

293 
294 
295 
296 

297  000000 

298  OOOCOO 

299  000000 
300 


.S8TTL  CLEAR  COMMAND 


Keyword 
Type,  or 
Substate 

Next 
State 

;•  CLEAR 

COMMAND 

STATES 
TRANS 
TRANS 
TRANS 

CLE.SPSCLE 
IIDALI, 
IIDALAL, 
IIDKNAL, 

CLAL, 

CLALAL 

CLAL, 

TRANS 
TRANS 
TRANS 
TRANS 

ilDCIR, 
IIDKNCI, 
IIDLIN, 
IIDKNLI, 

CLCI, 
CLCI, 
CLLI, 
CLLI, 

TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

IIDLOG, 

IIDKNLO, 

IIDNOD, 

IIDOBJ, 

IIDKNOB, 

IIDPRO, 

IIDSYS, 

CLLO, 
CLLO, 
CLNO, 
CLOB, 
CL08, 
CLPR, 
CLSY, 

;  CLEAR 

ALIAS 

;    ALL  ALIASES 

STATES 
TRANS 
TRANS 

CLALAL 

8KSALL, 

SLAMDA, 

DONE 
DONE 

;    ALIAS,  KNOWN  ALIASES 

STATES 
TRANS 
TRANS 
TRANS 

CLAL 
lOPSCO, 
8KSALL, 
SLAMDA, 

CLAL, 

CLAL 

DONE 

;  CLEAR 

CIRCUIT 

STATES 
TRANS 
TRANS 

CLCI 
8KSALL, 
SLAMDA, 

DONE 
DONE 

;  CLEAR 

LINE 

STATES 
TRANS 
TRANS 

CLLI 
&KSALL, 
SLAMDA, 

DONE 
DONE 

Action 
Routine 


Mask  (BIS) 
Value 


FLag  to 
Mask 


ixMiss, 


LX.ALI, 

RQBST 

LX.ALI, 

RQBST 

LX.ALI, 

RQBST 

LX.CIR, 

RQBST 

LX.CIR, 

RQBST 

LX.LIN, 

RQBST 

LX.LIN, 

RQBST 

LX.LOG, 

RQBST 

LX.LOG, 

RQiST 

LX.NOD, 

RQBST 

LX.OBJ, 

RQBST 

LX.OBJ, 

RQBST 

LX.PRO, 

RQBST 

LX.CEX, 

RQBST 

VSl 
ENl 


OPSSCO, 


SOPTON 


J  3 

VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.O3b  Saturday  29-Jun-85  02:59  Page  8-1 
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VSTB  -  VNP  COMMAND  PROCESSING  S  MAir.n  vO''.03b  Saturday  29-Jun-85 
ENTITV  IDENTIFICATION  SUBEXPRESSIONS 


02:59 


9^8  000000 

949  000000 

950 

951 

952 

95!  000000 

95A  000000 


STATES 
TRANS 


PROCESS 


STATES 
TRANS 


OBJ  ID 
SDNUMB, 


PROiD 
SRAD50, 


Page  12-3 


SEXIT, 


SEXIT, 


VS 

UT 


SOTYP 


SPNAH 


J  4 
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VS 


I  5 

VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.05b  Saturday  29-Jun-85  02:59  Page  16 
UTIinv  SUBEXPRESSIONS 


158A 
1585 
1586 
1587  000000 


FINISH  OFF  THE  STATE  TABLES 
STATES 


J 
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VSTB 

CREATED  BY 

MACRO     ON  2 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

OPSNLl 

=  000002 

#5-62 

OPSNOD 

=  000020 

#5-62 

OPSOUT 

=  002000 

#5-62 

OPSOWN 

=  000020 

#5-62 

OPSPAR 

=  000010 

#5-62 

OPSPRI 

=  000010 

#5-62 

OPSRET 

=  010000 

#5-62 

OPSRPA 

=  000010 

#5-62 

OPSSCO 

=  000001 

#5-62 

OPSSEG 

=  OOOAOO 

#5-62 

OPSSER 

=  000400 

#5-62 

OPSSIN 

=  000010 

#5-62 

OPSSTA 

=  000004 

#5-62 

OPSTPA 

=  000020 

#5-62 

OPSTRI 

=  000040 

#5-62 

OPSUCS 

=  000020 

#5-62 

OPSUSE 

=  000002 

#5-62 

OPSVEC 

=  000040 

#5-62 

OPSVER 

=  000040 

#5-62 

OPSXAC 

=  000001 

#5-62 

OPSXPR 

=  000002 

#5-62 

0P$X5S 

=  000004 

#5-62 

0P$X9S 

=  000010 

#5-62 

PARTAB 

000000 

RG 

#6-108 

PEMSTA 

000040 

R 

#19-1640 

P$ACT 

=    **♦♦** 

G 

5-71 

PSAID 

-  ****** 

G 

5-71 

PSCLCI 

=  ****** 

G 

5-71 

P$CLE 

^  ****** 

G 

5-71 

PSCLLI 

-  ****** 

G 

5-71 

PSCLLO 

r  ****** 

G 

5-71 

PSCLNO 

=  ****** 

G 

5-72 

PSCLOB 

=  ****** 

G 

5-72 

PSCOP 

=  ****** 

G 

5-72 

PSCOS 

=  ****** 

G 

5-72 

PSCRID 

r  ****** 

G 

5-72 

PSCSR 

=  ****** 

G 

5-72 

P$DEA 

r  ****** 

G 

5-73 

P$DES 

=  ****** 

G 

5-73 

PSDST 

-  ****** 

G 

5-73 

PSDTE 

=  ****** 

G 

5-73 

P$DUP 

r  ****** 

G 

5-73 

P$EVE 

z:  ****** 

G 

5-73 

PSGRP 

=     ****** 

G 

5-73 

P$HOS 

r  ****** 

G 

5-74 

P$HTM 

-  ****** 

G 

5-74 

PSLGID 

r  ****** 

G 

5-74 

PSLIST 

-     ****** 

G 

5-74 

P$LNID 

::  ****** 

G 

5-74 

P$LP^ 

r  ****** 

G 

5-74 

PSLUiT 

-  ****** 

G 

5-75 

P$i  "M 

=  ****** 

G 

5-75 

ON  29-JUN-85   AT   03:03 
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VSYM  -  VNP  SYMBOL  DEFINITIONS 
MACRO  DEFINITIONS 

000001 
000002 
000003 
OOOOOA 
000005 
000006 
000000 


000000 
000001 
000002 
000003 
000004 
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000200 
000100 
000040 
000040 
000020 

000010 
000004 
000002 
000001 


66 

67 

68 

69 

70 

71 

72 

73 

74 

75  000004 

76 

n   000001 

78  000002 

79  000003 

80  000004 

81  000005 

82  000006 

83  000007 

84  000010 

85  000011 

86  000012 

87  000013 

88  000014 

89  000015 

90  000016 

91  000017 

92  000020 
95  000021 


000001 


LN.0PE= 
LN.REF= 
LN.LOO= 
LN.LOA= 
LN.DUM= 
LN.TRI= 


S.FLG: 
S.COST 
S.NMST 
S.OUINR 
S.LEN: 


SF.ACT= 
SF.ENA= 
SF.UNL= 
SF.MFL= 
SF.PAC= 

SF.REA= 
SF.LPB= 
SF.SVC= 
SF.SER= 


SUBSTATE 

=  OPEN, 

UNSPECIFIED 

SUSSTATE 

=  OPEN, 

REFLECTING 

SUBSTATE 

=  OPEN, 

LOOPING 

SUBSTATE 

=  OPEN, 

LOADING 

SUBSTATE 

=  OPEN, 

DUMPING 

SUBSTATE 

=  OPEN, 

TRIGGERING 

=1 

=2 
=3 
=4 
=5 
^6 
.=0 

MULTIPOINT  FLAG  TABLE  OFFSETS  AND  FLAG  BYTE  DEFINITIONS 

.SLKB   1      ;  FLAGS  BYTE 

.BLK8   \  ;  TRIBUTARY  COST  FOR  ROUTING  TASK 

.8LKB   1       ;  NETWORK  MANAGEMENT  TRIBUTARY  STATE/SUBSTATE 
.8LK8   1      ;  TRIBUTARY  OWNER  PROCESS  INDEX 

;  LENGTH  OF  TRIBUTARY  EXTENSION 

FLAG  BYTE  DEFINITIONS 


=000200 
=000100 
=000040 
=000040 
=000020 

=000010 
=000004 
=000002 
=000001 


TRIBUTARY  IS  ACTIVE 

TRIBUTARY  IS  MARKED  FOR  ENABLE  AT  INITIALIZATION  TIME 
TRIBUTARY  IS  MARKED  FOR  UNLOAD 

TRIBUTARY  IS  MARKED  FOR  LOAD  (DATA  LINK  MAPPING  ONLY) 
TRIBUTARY  WAS  PREVIOUSLY  ACTIVE 
;  (BEFORE  RECONFIGURATION) 
TRIBUTARY  IS  REASSIGNABLE 
TRIBUTARY  IS  IN  LOOPBACK 
DlM  CIRCUIT  IS  AN  SVC 
CIRCUIT  HAS  SERVICE  DISABLED 


*** 

LOCAL  SYMBOLS 
*** 

TEMPLATE  PROCESSING  FUNCTION  CODES 

WARNING  -  DON'T  CHANGE  THESE  CODES  WITHOUT  CHANGING  TMPEX2  AND  TMPEX4. 


.ADDRB 

.ADDRW 

.SLKB 

.BLKW 

.BYTE 

.CORE 

.CSR: 

.CTIM 

.DVCHA 

.EOF: 

.FILE 

.INT: 

.LIBR 

.LINKS 

.LFILE 

.LSTHD 

.LTAB: 


.ASECT 

.=1 

:.8LKS 

:.BLKB 

.SLKB 

.BLKB 

.BLKS 

.8LKB 

.BLK8 

.BLKB 

:.8LK6 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

:.BLKB 

:.BLK8 

:.BLKB 

.BLKB 

0=END  OF  FILE 


«NP  SVMfini  DFFINITinNS 
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MACRO  DEFINITIONS 


u 
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5A 
55 
56 
57 
58 
59 
60 
61 
62 


.S8TTL  MACRO  DEFINITIONS 
■  ** 
;  LIBRARY  MACROS 

.MCALL  EMSG$,EMSG$R,NTLER$,PUTAD,SWTCHO,PUTRC 

.MCALL  ERMSG$,ERBLK$,ERRPT$ 

.ENABL  LC 

.ENABL  LC 
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VTMP  -  VNP  TEMPLATE  PROCESSING 
SVFDOM  -  VERIFY  DDM 


527 
528 
529 
550 
531 
532 
533 
53A 
535 
536 

537  001 34A 

538  001344  032767 

539  001352  001005 

540  001554 

541  001562 


MACRO  V05.05b  Saturday  29-Jun-85 
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.SBTTL  SVFDDM  -  VERIFY  DDM 

SVFDDM  -  VERIFY  DDM  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

ERROR  UNLESS  DDM  BEING  LOADED 


OOOOOOG  OOOOOOG 


IVFDDM: 


10$: 


BIT 
BNE 
EMSG$ 
RETURN 


*FL.DDM,$FLAGS  ;  IS  THIS  A  DDM? 

10$  ;  IF  NE,  YES 

21  ;  DDM  OPERATOR  IN  DLC/LLC  TEMPLATE 


J     9 

\/TMP  -  \iKP   TFMPi  iiF   PRnrF<;<;iNr,     macro  V05.05h  Saturday  29-Jun-85  05:08     Paae   16 


J       L 
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MACRO  DEFINTI0N5 


i  10 

03:C 


54 

55 

56 

57 

58 

59 

60 

61  000000 

62 

63 


.SBTTL  MACRO  DEFINTIONS 
■  *** 
•  LIBRARY  MACROS 


•  *** 


MCALL  EMSG$R,fnLFR$,NKRDF$,EMSG$,GETRV,SAVRG,RESRG 

;  DEFINE  NETWORK  KRB  OFFSETS 


.IF  NDF  R$$MPL 

NKRDFS 

.EN&C 


.-CMPOn 
;CMP01] 


J  10 


VIST  -  VNP  TESTING  ROUTINES 


56 

57 

58 

59  000000 

60 

61 

62 

63 

65 
66 
67 
68 
69 
70 
71 
72 
73 
7-!, 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
8o 
87 
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I  11 

03:05 


.MCALL 
.MCALL 


GETRV,GETRC,GErAD,PUTAD,PUTRC,SWTCHO,SVTIC$S 
QI0W$,D1R$,GCL$ 


89 
90 
91 
92 
93 
94 
95 


OOOOK' 
000016' 
000020' 


000040 
000044 
000060 
000053 
000000 
015010 
015012 
031010 
031012 


MSG: 


QIOW$   I0.WLB,2,2 <0,0,40> 

MADDR  =  MSG+Q.IOPL 
MLGTH  =  MSGtQ.I0PLt2 
MCTL  =  MSG+Q.I0PLt4 


CONSTANTS 


LFCft  =  40 
LF  =  44 
DS  =  60 
CR  =  53 
NO  =  0 
OB  =  15010 
D8  =  15012 
OW  =  31010 
DW  =  31012 


LINE  FEED/CARRIAGE  RETURN 

LINE  FEED 

DOUBLE  SPACE 

CARRIAGE  RETURN 

NO  CARRIAGE  CONTROL 

OCTAL  BINARY 

DECIMAL  BINARY 

OCTAL  WORD 

DECIMAL  WORD 


.MACRO 

.NCHR 

.PSECT 

$$$=. 

.ASCII 

.PSECT 

MOV 

MOV 

.IF  NB 

MOV 

.IFF 

MOV 

.ENDC 

DIRS 

.ENDM 


TYPES   TEXT.CTL 

$$$LEN,<TEXT> 

$$$VDT,D 

XTEXTX 

*$$$LEN, MLGTH 
#$$$, MADDR 
CTL 
*CTL,MCTL 

#LFCR,MCTL 

#MSG 
TYPES 


.MACRO  TYPES  ADDR.CTL.LEN 


MOV 
MOV 


.IF   NB   CTL 


ADDR, MADDR 
LEN, MLGTH 


96 

MOV 

97 

.IFF 

98 

MOV 

99 

.ENDC 

100 

DIRS 

101 

.ENDM 

102 

103 

.MACRO 

104 

.IF  NB 

105 

106 

107 

108 

109 

110 

111 

112 

#CTL,MCTL 

*LFCR,MCTL 

#MSG 


TYPEN  NUM. CTL, CON 
CON 
.IF    DIF    <NUM>,<R1> 
.IF    IDN   <CON>,<OB> 
CLR  R1 

BIS8  NUM.RI 

.IFF 

.IF    IDN   <NUM>,<DB> 
CLR  R1 

BIS8  NUM.RI 


GET   NUMBER   TO  CONVERT 


GET   NUMBER   TO   CONVERT 


v/TCT  -  uMD   TF<;TiMr;  BniiTiNF'; 


J   11 
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VTST 

CREATED  BY      MACRO     ON  29- 

■JUN-85   AT 

03:09 

MACRO  CROSS 

REFERENCE 

^ 

MACRO  NAME 

REFERENCES 

CALL 

6-184 

6-188 

6-194 

6-203 

6-27A 

6-275 

6-275 

6-276 

6-28A 

6-289 

6-289 

6-290 

6-298 

6-298 

6-299 

6-306 

6-377 

6-389 

6-389 

6-390 

6-407 

6-414 

6-414 

6-415 

6-432 

6-447 

6-449 

6-451 

DIR$ 

#5-57 

6-210 

6-211 

^-l\l 

6-219 

6-220 

6-221 

6-222 

6-306 

6-307 

6-308 

6-313 

6-345 

6-346 

6-351 

6-353 

6-396 

6-397 

6-398 

6-399 

6-434 

ENTEXT 

#5-157 

6-488 

GCL$ 

#5-57 

6-468 

GETAD 

#5-56 

6-284 

GETNUM 

#5-141 

6-267 

6-268 

6-274 

6-291 

6-297 

6-298 

6-389 

GETRC 

#5-56 

6-276 

GETRV 

#5-56 

6-269 

MOV$ 

#6-257 

6-257 

6-257 

#6-259 

OFF$ 

#5-59 

PUT  AD 

#5-56 

6-292 

PUTRC 

#5-56 

6-299 

6-447 

6-449 

QDPBS 

#5-59 

5-59 

QIOW$ 

#5-57 

;-59 

QREAD 

#5-132 

t-184 

6-267 

6-268 

6-290 

6-291 

6-297 

6-298 

RAND 

#6-269 

6-269 

#6-276 

6-276 

#6-447 

6-447 

#6-449 

6-449 

RETURN 

6-195 

6-260 

6-270 

6-277 

6-400 

6-410 

6-425 

6-435 

SVTKSS 

#5-56 

6-257 

6-259 

SWTCHO    : 

#5-56 

6-446 

6-448 

6-450 

TYPEB 

#5-92 

6-319 

6-321 

6-351 

TYPEN 

#5-103 
6-425 

6-306 

6-313 

6-338 

TYPES 

#5-76 

6-210 

6-211 

6-212 

6-219 

6-220 

6-221 

6-222 

6-340 

6-346 

6-362 

6-368 

6-421 

6-424 

6-434 

I   12 

PAGE   4 

CREF        04.00 

6-267 

6-267 

6-268 

6-268 

6-269 

6-274 

6-281 

6-281 

6-282 

6-282 

6-283 

6-283 

6-290 

6-291 

6-291 

6-292 

6-297 

6-297 

6-313 

6-338 

6-345 

6-367 

6-370 

6-372 

6-397 

6-398 

6-404 

6-404 

6-405 

6-405 

6-422 

6-423 

6-429 

6-429 

6-430 

6-430 

6-453 

6-458 

6-468 

6-483 

' 

6-213 

6-214 

6-215 

6-216 

6-217 

6-218 

6-223 

#6-257 

6-257 

#6-259 

6-259 

6-262 

6-314 

6-319 

6-321 

6-338 

6-339 

6-340 

6-362 

6-367 

6-368 

6-370 

6-382 

6-392 

6-409 

6-417 

6-421 

6-422 

6-423 

6-424 

6-275 

6-281 

6-282 

6-283 

6-289 

6-290 

6-404 

6-405 

6-414 

6-429 

6-430 

6-259 

6-259 

6-451 

6-453 

6-274 

6-275 

6-281 

6--282 

6-283 

6-289 

6-389 

6-404 

6-405 

6-414 

6-429 

6-430 

#6-284 

6-284 

#6-292 

6-292 

#6-299 

6-299 

#6-451 

6-451 

#6-453 

6-453 

6-285 

6-293 

6-300 

6-322 

6-354 

6-385 

6-460 

6-477 

6-486 

6-452 

6-454 

6-353 

6-345 

6-367 

6-370 

6-397 

6-398 

6-422 

6-213 

6-214 

6-215 

6-216 

6-217 

6-218 

6-223 

6-262 

6-307 

6-308 

6-314 

6-339 

6-382 

6-392 

6-396 

6-399 

6-409 

6-417 
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vv 

vv 

uu 

uu 

NN 

NN 

B8BB68BB 

vv 

vv 

uu 

uu 
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NN 

88868888 

\/\/ 

vv 

uu 

uu 

NN 

NN 

BB     68 

v\/ 

vv 

uu 

uu 

NN 

NN 

BB     88 

\/\/ 

vv 

uu 

uu 

NNNN 

NN 

68     88 

vv 

vv 

uu 

uu 
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NN 

68     66 

vv 

vv 

uu 

uu 

NN 

\IN  NN 

88668888 

\l\l 

vv 

uu 

uu 

NN 
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BB688B66 

vv 

vv 

uu 

uu 

NN 
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66     68 

vv 

vv 

uu 

uu 

NN 

NNNN 

88     86 

vv 

vv 

uu 

uu 

NN 

NN 

88     B6 

vv 

vv 

uu 

uu 

NN 

NN 

88      68 

vv 

uuuuuuuuuu 

NN 

NN 

66888868 

vv 

uuuuuuuuuu 

NN 

NN 

88886888 

SSSSSSSS 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

inn 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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VUNL  -  VNP  UNLOAD  ROUTINES 

LOCAL  DATA 

K9 

150 

151 

152 

153  000115 

154 

155 

156 

157 

158  000120 

159  0001^2 

160 

161   00012A 

055251  054374 

162 

163 

164 

165 

166  000130 

OOOOOOG 

167  000132 

OOOOOOG 

168  000134 

OOOOOOG 

169  000136 

OOOOOOG 

170  000140 

OOOOOOG 

171  000142 

OOOOOOG 

172  000144 

OOOOOOG 

173  000146 

OOOOOOG 

174 

175 

176 

177  000150 

178  000174 

179  000176 

180  000200 

181 

182 

000001 

183 

000002 

184 

185 

186 

187 

188  000202 

189 

190  000000 

I  u 
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LOOP  COUNTER 
COUNT:   .8LKU   1 


"CLEAR  LINE"  COUNTERS 


OLCAC: 
DDMAC: 

NTIR: 


.8LKW   1 
.8LKW   1 

.RAD50  /NTINIT/ 


DLC  ACTIVITV  COUNT 
DDM  ACTIVITY  COUNT 

NTINIT  RAD50  VALUE 


NONSENSE  INTERRUPT  TABLE  (RSX11M  ONLV) 


NSITAB: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


.NSO 
.NS1 
.NS2 
.NS3 
.NS4 
.NS5 
.NS6 
.NS7 


PARTITION  LINE  TABLE  OFFSETS 


ICBLK: 
ICBSAV: 
IC8SZ: 
PRLTA: 

PR.LTA=1 
PR.SEC=2 


.8LXW 
.BLKW 
.BLKW 
.8LKW 


10. 
1 
1 
1 


SPACE  FOR  KB 
START  ADDRESS  OF  KB 
SIZE  OF  AN  KB 
FLAG  WORD 

SET  IF  PARTITION  LINE  TABLE  USED 
SET  IF  NOT  FIRST  TIME  THRU  VECSC 


FDV  ADDRESS  FOR  PARTITION  I INE  TABLE  DE-ALLOCATOR 
. .PDV:   .8LKW   1  ;  IF  ZERO,  DISCARD  INSTEAD  OF  DE-ALLOCATE 

.PSECT 


\    r\ATS      Dm  rT  T  MC  c 


MATon    \jr\^    n7K    Mr, 


J  K 

-«■;    m-IO       Pane    7 


VUNL  -  VNP  UNLOAD  R0U11NES 
$CLIN  -  CLEAR  LIN 


I  15 
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687 

688 
689 

690  001662 

;    FIND 

LINE    TABLE 

016503     OOOOOOG 

MOV 

L./<R8A(R5),R3 

691   001666 

001001 

BNE 

3$ 

692  001670 

CRASH 

693  001672 

3$: 

694 

.IF    DF 

R$$MPL 

695 

SWTCHI 

ffKRBMP 

696 

ADD 

*K.PRM,R3 

697 

698 
699 

700  001672 

.ENDC 

GETRV 

R3,*$KRBLN 

701 

702 

.IF    DF 

R$$MPL 

703 

MOV 

#Kfi8MP,R3 

704 

SUB 

#K.PfiM,R3 

705 

CLR 

-(SP) 

706 

BISB 

K.VCT(R3),(SP 

707 

TST 

.MPRO 

708 

BLT 

2$ 

709 

MOV 

K.URM(R3),R3 

710 

MOV 

#-1,-(SP) 

711 

1$: 

INC 

(SP) 

712 

ASR 

R3 

7  '  ' 

BCC 

1$ 

,■  .  4 

CLC 

715 

MOV 

(SP)+,$BFR 

716 

ASL 

$BFR 

717 

ADD 

.K6TAB,$BFR 

718 

SWKHI 

#$CP6IA 

719 

GETRV 

$BFR,#2 

720 

MOV 

$CP8IA,$RBLCK 

721 

BR 

4$ 

722 

2$: 

CLR 

SRBLCK 

723 

4$: 

MOV 

(SP)+,R3 

724 

725 

.IFF 

725  001710 

116703     000001G 

Move 

K.VCT+$BFR,R3 

727 

728 

.ENDC 

729 

730 

.IF    DF 

R$$MPL 

731 

SWTCHI 

732 

733 

.ENDC 

734 

735  001714 

006303 

ASL 

R3 

736  001716 

006303 

ASL 

R3 

737  001720 

CALL 

FNDADD 

758  001724 

116504     OOOOOOG 

MOVB 

L.DDM(R5),R4 

739  001730 

CALL 

FLT16 

740 

741 
742 
743  001734 

•    FIND 

THE    PDV 

BIAS 

CALL 

GETPDV 

GET  KR8  ADDRESS 
IF  OK  -  BRANCH 
IF  ZERO,  NO  KR8 


M+  KRB  BUFFER 

BACKUP  POINTER  TO  ACTUAL  KRB  START 


READ  IN  THE  KRB 


POINT  TO  M+  KRB  OFFSET  ZERO 

CLEAR  A  WORD 

GET  VECTOR  ADDRESS/4 

MULTIPROCESSOR  ? 

IF  NO  -  BRANCH 

GET  UNIBUS  RUN  MASK 

INIT  CPU  NUMBER 

COUNT  ONE  PROCESSOR 

CORRECT  CPU  ? 

IF  NO  -  BRANCH 

CLEAR  C-BIT 

COPY  CPU  NUMBER 

CONVERT  TO  WORD  INDEX 

GET  ADDRESS  OF  CPU  PARTITION 

SET  INPUT  BUFFER 

READ  BIAS 

SET  UP  CPU  BIAS 

CONTINUE 

VECTOR  BIAS  =  0  IF  NON-MULTIPRO 

POP  VECTOR  ADDRESS 


GET  THE  VECTOR  ADDRESS/4 


;CMP01] 


;CMP0n 
;[MP01J 
;CMP013 

;[MP01] 


CMPOn 
[MP01] 
[MP01] 
CMP01] 
[MP01J 
[HP01] 
[MP01] 
[MP01] 
CMPOI] 
[HP01] 
CMPOI] 
[MP01] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 
CMPOI] 

CMPOI] 


;  CMPOI] 

; CMPOI] 
; CMPOI 1 

; CMPOI] 


CONVERT  TO  REAL  VECTOR  ADDRESS 

fInD  THE  INTERRUPT  BLOCK  IN  THE  LINE  TABLE 

GET  THE  DDM  PDV  INDEX 

FIND  LINE  TABLE  IN  UNLOAD  DATA 


CONVERT  TO  PDV  ADDRESS 


unr  n7k  M« 


J  15 

lA-con-H";  n7.7n 


VUNL 


I  16 
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CSRUNL  -  REMOVE  CSR  UNLOAD  ENTRY 


1191 

119? 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

121A 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 


INPUTS: 


.S8TTL  CSRUNL  -  REMOVE  CSR  UNLOAD  ENTRY 

CSRUNL  -  REMOVE  ENTRY  IN  CSR  CHECK  LOAD  BLOCK 

S: 

$SLTA  -  SYSTEM  LINE  TABLE  ADDRESS 


OUTPUT 


ENTRY  IS  REMOVED  FROM  BLOCK,  BUT  IF  BLOCK  IS  ALL  ZEROS 
BLOCK  IS  NOT  REMOVED  FROM  LIST  SINCE  LINE  WILL  PROBABLY 
BE  RELOADED  ANYWAY. 


003440 
005444 
003450 
003454 
003456 
003460 
003464 
003466 

003472 
003476 
003500 
003502 
003504 
003510 
003516 
003520 
003526 


012700 
012701 
011002 
001442 
012702 
160102 
016705 


103431 
011203 
001773 
166703 
126365 
001365 
126365 
001361 


OOOOOOC 
000004 


000002G 
OOOOOOG 


CSRUNL: 


10$: 


OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


1223  003530 

005022 

1224  003532 

005022 

1225  003534 

1226  003542 

1227  003554 

1228  003562 

1229 

1230 

1231 

1232 

1233 

1234  003564 

1235  003600 

1236  003663 

1237 

1238 

90$: 


CALL 

MOV 

MOV 

MOV 

BEG 

MOV 

SUB 

MOV 

CALL 

BCS 

MOV 

BEQ 

SUB 

CMP6 

BNE 

CMPB 

BNE 

CLR 

CLR 

SWTCHO 

PUTAD 

SWTCHO 

RETURN 


$3AVAL         ; 

*$NTLHB+.CXCSR,RO 

#4,R1 

'R0),R2 

101$ 

#$UN8LKt2,R2 

R1,R2         ; 

$SLTA,R5 

$VUNB 

901 

(R2),R3 

10$ 

$CETDF,R3 

L.DDM(R3),L.DDM(R5) 

10$  ;  NO 

L.CTL(R3),L.CTL(R5)  ; 

10$  ;  NO 


ERRORS 


101$: 


ERRPT$ 
ERMSG$ 
ER8LK$ 


SAVE  ALL  REGISTERS 

;  POINT  AT  LISTHEAD 

SIZE  OF  ENTRIES 

LISTHEAD  VALUE 

IMPOSSIBLE 

SET  STARTING  ADDRESS 

GET  THE  SLT  ADDRESS 

POINT  AT  NEXT  ENTRY 

MUST  HAVE  BEEN  DUPLICATE 

GET  SLT  ADDRESS  FROM  THE  CSR  LIST 

DON'T  TRY  ZERO  ENTRIES 

REMOVE  ADDRESSING  OFFSET 

IS  IT  THE  SAME  DEVICE  7 

is  IT  THE  SAME  CONTROLLER  ? 


(R2)  + 
(R2)  + 
#$UN8LK 
,#64. 


ZERO  OUT  ENIRY 

POiNT  AT  UNLOAD  BLOCK 
REWRITE  MODIFIED  BLOCK 
RESET  DEFAULT  BUFFER 


ERR77,$ER0UT, FATAL  ;  LOGIC  ERROR  IN  CSR  BLOCK 

<CSR  entry  missing  from  check  list.  (  Logic  error.  )> 

EfiR77 


J  16 


n  ,  «  ^  '}^ 
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SYMBi         ?OSS  PEFERENCE 
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CREF       OA.OO 


VSE 


SYMFOL 

VALUE 

REFERENCES 

It'.AS 

=   ****** 

20-685 

BITS 

0003'!.6  R 

#7-190 

22-742 

LD.ALI 

=  000030 

#5-63 

LD.CEX 

=  00002^ 

#5-63 

LD.CIR 

=  000035 

#5-63 

LD.LIN 

=  000025 

#5-63 

LD.LOG 

=  000031 

#5-63 

LD.VOD 

=  000037 

#5-63 

LD.NOD 

=  000027 

#5-63 

LD.OBJ 

=  000032 

#5-63 

LD.PRO 

=  000026 

#5-63 

LF.ACT 

=   ******     GX 

24-848 

25-926 

LF.RDY 

=   ******     GX 

22-745 

23-774 

LF.UNL 

=   ******     GX 

25-928 

LLIN 

000746  R 

6-139 

#18-565 

LO.ADD 

000022 

#5-63 

LO.ADR 

000052 

#5-63 

LO.CLS 

000002 

#5-63 

LP. CON 

000006 

#5-63 

LC.COP 

000010 

#5-63 

LO.^ns 

000020 

#5-63 

'         =f 

000010 

#5-63 

5-63 

L       .           L 

000032 

#5-63 

LO.DES 

000002 

#5-63 

5-63 

LO.DTE 

000047 

#5-63 

LO.EVT 

OOOOOA 

#5-63 

LO.GRO 

000024 

#5-63 

LO.HOS 

000040 

#5-63 

LO.HTM 

000032 

#5-63 

LO.INA 

000062 

#5-63 

LO.INC 

0C0060 

#5-63 

LO.LDT 

000046 

#5-6i 

LO.LID 

000030 

#5-63 

18-568 

LD.LIN 

000004 

#5-63 

LCLTM 

000034 

#5-63 

LO.MAC 

000022 

#5-63 

LO.MDE 

000024 

#5-63 

LO.NAM 

C00044 

#5-63 

*14-441 

LO.NET 

=  000002 

#5-63 

LO.NNM 

000022 

#5-63 

LO.OFL 

000012 

#5-63 

LO.ONM 

000004 

#5-63 

LO.OUT 

000056 

#5-63 

[O.OWN 

000026 

#5-63 

LO.PAR 

000010 

#5-63 

LO.PRI 

000012 

#5-63 

LO.RET 

000064 

#5-63 

LO.RPA 

000030 

#5-63 

LO.SCR 

O0C016 

#5-63 

L0.SE5 

000054 

#5-63 

LO.SIfA 

000014 

#5-63 

LC.SKN 

000014 

#5-63 

24-817 


24-897 


25-922 


VRQB 
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116 
117 
118 


000001 


.END 


K  2 

v^FT  -  VNP  SETUP  CSR  AND  MICROC  MACRO  V05.03b  Saturday  29-Jun-85  02:59  Page  6-1 
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VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.03b  Saturday  29-Jun-85  02:59 
CLEAR  COMMAND 


301 
302 
303 

304  000000 

305  000000 
306 

307  000000 

308  000000 

309  000000 

310  000000 

311  000000 

312  000000 

313  000000 

314  000000 
315 

316 
317 

318  000000 

319  000000 
320 

321 
322 

323  000000 

324  000000 

325  000000 

326  000000 

327  000000 

328  000000 

329  000000 
330 

331 
332 

333  000000 

334  000000 

335  000000 
336 

337 
338 

339  000000 

340  000000 

341  000000 
342 

343 
344 

345  000000 

346  000000 

347  000000 


CLEAR  LOGGING 


STATES  CLLO,£P$CLLO 

TRANS  SLAMDA, 

STATES  CLLOOP 

TRANS  lOPCSNM, 


TRANS 
TRANS 
TRANS 
TRANS 
TRANS 


iOPEVE, 
lOPSIN, 
lOPLIN, 
I OPNOD , 
lOPCIR, 


TRANS  SLAMDA, 
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CLLOOP 


CLLOOP, 
CLLOOP, 
CLLOOP, 
CLLOOP, 
CLLOOP, 
CLLOOP, 
DONE, 


VS' 
EN' 


iCKLOG 


OPSNAM, 

SOPTON 

OPSEVE, 

SOPTON 

OPSSIN, 

SOPTON 

OPSLNE, 

SOPTON 

OPSNOD, 

SOPTON 

OPSCIE, 

SOPTON 

;  CLEAR 

NODE 

STATES 
TRANS 

CLN0,8P$CLN0 
SLAMDA, 

CLNOOP 

;    CLEAR  NODE 

OPTIONS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

CLNOOP 

8KSNAM, 

8KSCIR, 

&KSHOS, 

iKWRPAS, 

IKWTPAS, 

SLAMDA, 

CLNOOP, 
CLNOOP, 
CLNOOP, 
CLNOOP, 
CLNOOP, 
DONE 

;  CLEAR 

OBJECT 

STATES 
TRANS 
TRANS 

CLOB 
&KSALL, 
SLAMDA, 

DONE 
DONE 

;  CLEAR 

PROCESS 

STATES 
TRANS 
TRANS 

CLPR 

SKSALL, 

SLAMDA, 

DONE 
DONE 

•  CLEAR 

SYSTEM 

STATES 
TRANS 
TRANS 

CLSY 

SKSALL, 

SLAMDA, 

DONE 
DONE 

OPSNAM, 

SOPTON 

OPSNLI, 

SOPTON 

OPSHOS, 

SOPTON 

OPSRPA, 

SOPTON 

OPSTPA, 

SOPTON 
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956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 

968  000000 

969  000000 

970  OOOOGO 

971  000000 

972  000000 

973  000000 

974  000000 
975 

976 
977 

978  000000 

979  000000 

980  000000 

981  000000 
982 

983 
984 

985  000000 

986  000000 

987  000000 

988  000000 

989  000000 
990 

991 
992 

993  000000 

994  000000 

995  000000 

996  000000 
997 

998 
999 

1000  000000 

1001  000000 

1002  000000 

1003  000000 
1004 

1005 
1006 
1007 
1008 

1009  000000 

1010  000000 

1011  000000 

1012  000000 


.SBTTL  ENTITY  OPTION  SUBEXPRESSIONS 


Keyword 

Next 

Action 

Mask  (BIS) 

Flag  to 

Type,  or 
Substate 

State 

Routine 

Value 

Mask 

ENTITY  OPTION  SUBEXPRESSIONS 


CONTROLLER  CSR 

STATES 
TRAN.* 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


OPCCSR 

aKSCON, 

SLAMDA 

0PCCS1 

8KSCSR 

.aPSCSR 

SNUMBR , 


CIRCUIT 


STATES 
TRANS 

STATES 
TRANS 


COPIES 


COST 


STATES 
TRANS 

STATES 
TRANS 
TRANS 


STATES 

TRANS 

STATES 


OPCJfi 
8KSCIR 
,8PSCRID 
ICJRID, 


OPCOP 

8KSC0P 

,6PSC0P 

SKSSNG, 

SDNUMB, 


OPCOS 
8KSC0S 
.8PSC0S 


TRANS  imme , 

DESTINATION  FOR  SET  ALIAS 


STATES 
TRANS 

STATES 
TRANS 


OPDES 
8KSDES 

OPDESV.SPSDES 
IDESID, 


0PCCS1 


SEXIT, 


SEXIT 


SEXIT 
SEXIT, 


SEXIT, 


SEXIT 


SCSR, 


LS.OPT, 


RQBST 


SCOP, 


SCOST 


OFSSMC, 


RQB+LO.OFL 


VS 
IN 


;  X25 

-ACCESS  - 

DESTINATION 

or 

NETWORK 

opt 

ions 

.-CTDOOI] 
;[TD001] 
;**-2 

■ 

STATES 

OPADS 

TRANS 

SKSALL, 

0PDST1 

TRANS 

8KSNET, 

OPANT 

;  Check 

tor 

...  NETWORK  ... 

;  [TDOOl] 

TRANS 

8KSKN0, 

0PAD2 

;  Check 

tor 

KNOWN  NETs/DESTs 

; [TDOOl] 
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VSTB  -  VNP  COMMAND  PROCESSING  S  f 

INTERNAL 

(ACTION  MODULES 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

000000 

1596 

000000  052767  000001 

1597 

1598 

000006 

1599 

1600 

1601 

1602 

000010 

1603 

000010  042767  000001 

1604 

1605 

000016 
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OOOOOOG 


OOOOOOG 


.SBTTL 

INTERNAL  ACTION 

MODULES 

;  INTERNAL  ACTION  MODULES 

;  BLANK 

PARSE 

>1ANUALLy 

BL.MAN: 

BIS 
RETURN 

#1,.PFLAG 

•  BLANK 

PARSE 

AUTOMATICALLY 

BL.AUT: 

BIC 
RETURN 

*1,.PFLAG 

.-MAKE  BLANKS  SIGNIFICANT 


.-MAKE  BLANKS  INSIGNIFICANT 
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CREATED  BY  MACRO  ON  29-JUN-85  AT  03:03 


VSTB 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


REFERENCES 


PSMAX 

=   ****** 

r, 

5-75 

=$M01D 

=   ****** 

fi 

5-75 

^$MUL 

=   ****** 

r, 

5-75 

'$MXCO 

=   ****** 

G 

5-75 

nMXLI 

~       ****** 

G 

5-76 

^$NAD 

=   ****** 

r, 

5-76 

nNAM 

~       ****** 

r, 

5-76 

=$NET 

=       ****** 

r, 

5-76 

nNID 

-   ****** 

G 

5-76 

=$NOST 

-   ****** 

G 

5-76 

='$OBNA 

=   ****** 

G 

5-76 

=$OBUS 

-   ****** 

r, 

5-77 

=$DBVE 

:=  ****** 

G 

5-77 

=$OID 

=  ****** 

G 

5-77 

o$OWN 

-  ****** 

G 

5-77 

PSPAR 

=  ****** 

G 

5-77 

P$PEN 

=     ****** 

G 

5-77 

PSPIO 

=  ****** 

G 

5-78 

P$PRI 

=  ****** 

G 

5-78 

PISCO 

~     ****** 

G 

5-78 

PSSEAL 

:=  ****** 

G 

5-78 

PSSECI 

-  ****** 

G 

5-78 

PSSELI 

=  ****** 

G 

5-78 

PSSELO 

=  **  t*** 

G 

5-79 

PSSEMO 

-  ****** 

G 

5-79 

PSSENO 

=  ****** 

G 

5-79 

PISEOB 

=  ****** 

G 

5-79 

PSSEPR 

=  ****** 

G 

5-79 

PSSET 

=     ****** 

G 

5-79 

PSSHO 

-  ****** 

G 

5-79 

PSSIN 

z:  ****** 

G 

5-80 

PSSNAM 

=     ****** 

G 

5-80 

PSTER 

=     ****** 

G 

5-80 

PSTPAS 

:z  ****** 

G 

5-80 

PSTRIB 

n  ****** 

G 

5-80 

PSVEC 

=  ****** 

G 

5-80 

PSVEST 

=     ****** 

G 

5-81 

PSVNP 

~     ****** 

G 

5-81 

P$X5ST 

r:  ****** 

G 

5-81 

QFSACT 

=   000001 

#5-62 

QFSALL 

=   000002 

#5-62 

QFSKNO 

=  000004 

#5-62 

QFSLOO 

=  000010 

#5-62 

REJECT 

000126 

R 

#21-1671 

ROB 

=  ****** 

(i 

5-85 

RQBST 

=  ****** 

G 

5-85 

STMAT1 

000020 

R 

#18-1619 

STMAT5 

000030 

R 

#18-1623 

STR.B 

000134 

R 

#22-1678 

TAB 

=  oooon 

#5-64 

TVSCHA 

=  OOOAOO 

#5-62 

TYIEVE 

=  001000 

#5-62 

J  6 
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VSVM  -  VNP  SYMBOL  DEFINITIONS 
MACRO  DEFINITIONS 

9A  000022 

95  000023 

96  00002-; 

97  000025 

98  000026 

99  000027 

100  000030 

101  000031 

102  000032 

103  000033 
10A  000034 

105  000035 

106  000036 

107  000037 

108  000040 

109  000041 

110  000042 

111  000043 

112  000044 

113  000045 

114  000046 

115  000047 

116  000050 

117  000051 

118  000052 

119  000053 

120  000054 

121  000055 

122  000056 

123  000057 

124  000060 

125  000061 

126  000062 

127  000063 

128  000064 

129  000065 

130  000000 
131 
132 
133 
134 
135 
136 

137  000066 

138  000000 

139  000000 

140  000002 

141  000004 

142  000006 

143  000010 

144  000016 

145  000024 

146  000026 

147  000050 

148  000044 

149  000060 

150  000062 
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MPTAR 

::.BLKB   1 

MXTAE 

::.BLKB   1 

NODF: 

:  .BLKB   1 

PRI:: 

.BLKB   1 

PRTOV 

::.BLKB   1 

SrOM: 

:  .BLKB   1 

SECSF 

::.BLKB   1 

SLNB: 

:  .BLKB   1 

SINW: 

:  .BLKB   1 

STNR: 

:  .BLKB   1 

STNW: 

:  .BLKB   1 

UNB:: 

.BLKB   1 

IINU:: 

.BLKB   1 

WORD: 

:  .BLKB   1 

APR:: 

.BLKB   1 

PPRR: 

:  .BLKB   1 

DPRW: 

:  .BLKB   1 

TIMF: 

:  .BLKB   1 

MXPIf 

::.BLK8   1 

PFCHA 

::.BLKB   1 

x^roi 

::.BLKB   1 

xiro2 

::.BLKB   1 

x^roi 

::.BLKB   1 

X3r04 

::.BLKB   1 

x<ro5 

::.BLKB    1 

xiro6 

::.BLKB   1 

x^ro/ 

::.BLKB   1 

x^roc 

::.BLKB    1 

x3ro? 

::.BLKB   1 

X«l( 

::.BLKB   1 

xirr 

::.BLKB   1 

X2CH' 

::.BLKB   1 

X2CH2 

::.BLKB   1 

X2CH3 

::.BLKB   1 

X2CH4 

::.BLKB   1 

X2rH'- 

::.BLKB   1 

.PSECT 

DATA  SLOCK  OFFSETS  (POINTED  TO  BY  SNTLPT  -  NTPOOL  SPACE) 

WARNING  -  DON'T  CHANGE  THESE  OFFSETS  WITHOUT  RE-BUILDING  VNP  AND  NTINIT. 


NTPOOL  PCB  ADDRESS  (SETUP  BY  NTINIT) 
NTPOOL  UMR  BLOCK  (SETUP  BY  NTINIT) 
VNP  CSR->SYSTEM  LINE  LIST 
COMM  EXEC  PCB  ADDRESS 
PROCESS  VERIFICATION  SYMBOLS 
VECTORED  PROCESS  VERIFICATION  SYMBOLS 
FIRST  UNLOAD  BLOCK  ADDRESS 
FIRST  KMC  CSR  BLOCK  ADDRESS 
TWO  LIBRARY  REFERENCES 

FIRST  EXTRA  LIBRARY  BLOCK  ADDRESS 
CETAB  ALLOCATION  ADDRESS 


.ASECT 

.=0 

.BLKW 

1 

.BLKW 

1 

CXCSR 

:.8LKW 

1 

cxpce 

:.BLKW 

1 

CXSYM 

:.8LKW 

3 

CXVSM 

:.BLKW 

', 

CXUNL 

:.6LKW 

1 

CXVEC 

:.BLKW 

1 

CXL81 

r.BLKW 

6 

CXL82 

:.BLKW 

6 

CXL8R 

:.BLKW 

1 

CXALL 

:.8LKW 

1 
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VTMP  -  VNP  TEMPLATE  PROCESSING 

LOCAL  DATA 

6A 

65 

66 

67 

68 

69 

)00000 

70 

71 

72 

73 

7A 
75 
76 

000000 

000001 

77 

000002 

78 

000004 

79 

000010 

80 

000020 

81 

000040 

82 

000100 

83 

000200 

84 

000400 

85 

001000 

86 

002000 

87 

004000 

88 

010000 

89 

100000 

90 

91 

92 

93 

94 

95 

000002 

96 

97 

000001 

98 

000002 

99 

000004 

100 

000010 

101 

000020 

102 

0000<,0 

103 

104 

105 

106 

107 

000004 

108 

000006 

109 

000010 

110 

111 

112 

113 

114 

000012 

115 

000014 

116 

000016 

117 

000020 

118 

000022 

119 

000024 

120 

000026 
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.SBTTL      LOCAL   DATA 
•  ** 
;    LOCAL   DATA 

;*• 

.PSECT      DATA,D 

;  TEMPLATE  FILE  FLAGS 

iFLAGl::.BLKU   1 

F1.BB0==1 

Fl.INT==2 

F1.IN1==4 

F1.IN2==10 

F1.IN3==20 

F1.LFI==40 

F1.LFL==100 

F1.MPL==200 

F1.MPT==400 

F1.MXT==1000 

F1.STE==2000 

F1.UMR==4000 

F1.VSE==10000 

F1.ERR==100000 


;  TEMPLATE  FILE 

LINE  FLAGS 

$FLAG2::.BLKW 

1 

F2.BYT==1 

F2.END^=2 

F2.FIL==4 

F2.LBR==10 

F2.NEG==20 

F2.SUB==40 

;  BINARY  BUFFER 

INFORMATION 

$BIN::   .BLKW 
$PTR::   .BLKW 
SLEFT::  .BLKW 

1              ; 

1 
1 

;  LINE  TABLE  INFORMATION 

isiZE: 
SSADDR 
STADDR 
SADDR: 
SMXADD 
SMXSIZ 
SLINK: 

.BLKW 
:.BLKW 
;.8LKU 

.BLKW 
:.BLKW 
:.BLKW 

.BLKW 

1 
1 
1 
1 
1 
1 
1 

BINARY  BUFFER  OVERFLOWED 

".INT"  OPERATOR  SEEN 

".INT1"  OPERATOR  SEEN 

".INT2"  OPERATOR  SEEN 

".INT3"  OPERATOR  SEEN 

".LFILE"  OPERATOR  SEEN 

".LFLHD"  OPERATOR  SEEN 

".HPLHD"  OPERATOR  SEEN 

".MPTA8"  OPERATOR  SEEN 

".MXTA8"  OPERATOR  SEEN 

SYMBOL  TABLE  ERROR  HAS  OCCURRED 

ALLOCATE  FROM  UMR  MAPPED  AREA  OF  NTPOOL 

VECTOR  SETUP  ERROR  OCCURRED 

SOME   ERROR  OCCURRED 

***  Fl.ERR  MUST  BE  THE  SIGN  BIT  ♦♦* 


BYTE  MODE 

".END"  OPERATOR  SEEN 

VALID  FILE  NAME  SEEN 

LIBRARY  REFERENCE  ALREADY  EXISTS 

NEGATIVE  EXPRESSION 

NEGATIVE  MODIFICATION 


STARTING  ADDRESS 
CURRENT  POINTER 
BYTES  REMAINING 


NUMBER  OF   BYTES  NEEDED 

SAVED  REAL  MEMORY  ADDRESS 

DYNAMIC  POINTER  TO  SCOM 

ADDRESS  OF   BUFFER   IN  VRES 

ADDRESS  OF  MUX  TABLES 

SIZE   OF   ALL   MUX   TABLES    (.MXPTB  OPERATOR) 

LINK  VALUE 


TCiuini    ATC     nnnrrcciMr        MAron     \if\^     n7k     Ca^lll"Ha\/     90- 
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tVFDLC  -  VERIFY  DLC 


.SBITL  SVFDLC  -  VERIFY  DLC 
SVFDLC  -  VERIFY  DLC  ACTION  ROUTINE 


5A5 
544 
545 
546 
547 
548 
549 
550 
551 
552 

553  !- 

554  001364  tVFDLC:: 

555  001364  032767  OOOOOOG  OOOOOOG        BIT     #FL.DLC ,$FLAGS 

556  001372  001003  BNE     10$ 

557  001374  EMSGS   79 

558  001402  10$:    RETURN 


INPUTS: 

NONE 

OUTPUTS: 

ERROR  UNLESS  DLC  BEING  LOADED 


IS  THIS  A  DLC? 

IF  NE,  YES 

DLC  OPERATOR  IN  DDM/LLC  TEMPLATE 


K  9 

-)0_  I.  .^-Qi;  n?  .  AO 
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VTMPIN  - 
MACRO  DE 

65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
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FINTIONS 


000000 


000000 


104 


101 


.S8TTL  LOCAL  DATA 
■  *  ** 
•  LOCAL  DATA 

» *** 

.PSECT  OATA.D 
.NLIST  BEX 

;  TEMPLATE  EXTENSION 
124   TMPEXT:  .ASCIZ  "DAT" 


K   10 
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VIST   -  VNP    TESTING   ROUTINES 


115 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO 

Ul 

1'.2 

U3 

H4 

U5 

K6 

U7 

U8 

K9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167  000030  000000 

168  000032  000000 

169  000034  001020' 
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B: 


.IFF 

MOV     NUM.Rl 

.ENDC 

.ENDC 

.ENDC 

MOV 

#C0N,R2 

.IFF 

.IF  DIF  <NUM>,<R1> 

MOV     NUM,R1 

.ENDC 

MOV 

#0U,R2 

.ENDC 

CALL 

CV8T0 

MOV 

R1 ,MADDR 

MOV 

RO.MLGTH 

MOV 

#CTL,MCTL 

DIRS 

*MSG 

.ENDM 

.MACRO 

QREAD  PRMPT,?A 

.PSECT 

$$$VDT,D 

$$$=. 

.ASCIZ 

<15><12>XPRMPT>X 

.PSECT 

MOV 

*$$$,R0 

CALL 

PROMPT 

.ENDM 

QREAD 

.MACRO 

GETNUM  PROMPT, RETURN, A, ?6 

.ENABL 

LS8 

QREAD 

<PROMPT> 

BCS 

A 

CALL 

SCOTS 

TST 

R2 

BNE 

B 

.IF  DIF 

<RETURN>,<R1> 

MOV 

Rl, RETURN 

.ENDC 

.DSABL 

LS6 

.ENDM 

GETNUM 

TO  FORCE  PSECT  'TEXT'  TO  END  ON  A 

.MACRO 

ENTEXT 

.PSECT 

SS$VDT,D 

.EVEN 

.PSECT 

.ENDM 

ENTEXT 

;  GET  NUMBER  TO  CONVERT 

GET  CONVERSION  FLAG 

;  GET  NUMBER  TO  CONVERT 

ELSE,  CONVERT  TO  OCTAL  WORD 

CONVERT  NUMBER 

GET  ADDRESS  OF  CONVERTED  NUMBER 


GET  ADDRESS  OF  PROMPT  STRING 
PROMPT  USER  FOR  INPUT 


CONVERT  OCTAL  TO  BINARY 
AT  END  OF  BUFFER  ? 
IF  NE,  NO  TRY  AGAIN 


SSi  TABLE  IS  USED  IN  CASE  THERE  IS  A  VIST  MODULE  AND  NO  ODT,  I.E. 
SO  ONE  MAY  REQUEST  "OD"  (WITH  NO  ODT)  AND  NOT  CRASH. 

SSTT8L:  .WORD  0 
.WORD  0 
.WORD   BPT 
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••FILE'MD>n'UMR 


vv 

vv 

uu 

uu 

MM 

MM 

RRRRRRRR 

vv 

vv 

uu 

uu 

MM 

MM 

RRRRRRRR 

vv 

vv 

uu 

uu 

MMM^ 

MMMM 

RR 

RR 

vv 

vv 

uu 

uu 

MMM^ 

MMMM 

RR 

RR 

vv 

vv 

uu 

uu 

MM 

m     MM 

RR 

RR 

vv 

vv 

uu 

uu 

MM 

^M  MM 

RH 

RR 

vv 

vv 

uu 

uu 

MM 

MM 

RRRRRRRR 

\A/ 

vv 

uu 

uu 

MM 

MM 

RRRRRRRR 

vv 

vv 

uu 

uu 

MM 

MM 

RR 

RR 

vv 

vv 

uu 

uu 

MM 

MM 

RR 

RR 

vv 

vv 

uu 

uu 

MM 

MM 

RR 

RR 

vv 

vv 

uu 

uu 

MM 

MM 

RR 

RR 

vv 

uuuuuuuuuu 

MM 

MM 

RR 

RR 

vv 

uuuuuuuuuu 

MM 

MM 

RR 

RR 

LL 

SS5SSSSS 

TTTTTl 

TTTT 

LL 

ssssssss 

TTTTTl 

IMI 

-L 

ss 

LL 

ss 

-L 

ss 

.L 

ss 

LL 

ssssss 

LL 

ssssss 

_L 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 

1 
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1 
2 
3 
^ 

6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AG 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  VUNB  -  VNP  UNLOAD  BLOCK  SCANNING  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  NTPOOL  SCANNING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V^.O 
OECnet-Micro/RSX  ,  1.0 


ITS 
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VUNL   -   VNP  'JNLOAD   ROUTINES 
LOCAL   DATA 


192 

193 

19A 

195 

196 

197 

198 

199 

200 

201 
202 
203  000000 

012^01 

OOCOOOC 

204  OOOOOA 

011100 

205  000006 

001450 

206 

207  000010 

208  000020 

209 

210  000036 

032767 

000001 

211  000044 

001006 

212 

213  000046 

010446 

214  000050 

066716 

OOOOOOG 

215  000054 

026726 

000004G 

216  000060 

001405 

217 

218  000062 

010001 

219  000064 

016700 

0000006 

220  000070 

001347 

221 

222  000072 

223 

224  000074 

022701 

OOOOOOC 

225  000100 

001003 

226  000102 

016711 

OOOOOOG 

227  000106 

000404 

?28 

229  000110 

010146 

230  000112 

010046 

231  000114 

232 

233  000120 

012701 

000012 

234  000124 

235 

236  000130 

237 
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.SBTTL 

DEVEC  -  DEALLOCATE  VECTOR  BLOCK 

DEVEC 

-  DEALLOCATE  VECTOR  BLOCK 

INPUTS: 

R4  -  PDV  ADDRESS 

OUTPUTS: 

VECTOR 

BLOCK  DEALLOCATED  IF  PRESENT 

DEVEC: 

MOV 

#$NTLHB+.CXVEC,R1  ;  GET  VECTOR  BLOCK  ADDRESS 

MOV 

(R1),R0        ;  GET  FIRST  BLOCK 

BEQ 

20$           ;  IF  NONE  -  BRANCH 

5$: 

CEACC$ 

R0,R2         ;  MAP  TO  BLOCK 

GETAD 

R2,#V.LEN      ;  READ  BLOCK 

000002G 

BIT 

#VF.LIB,$BFRtV.FLG  ;  LIBRARY  VECTOR  BLOCK  ? 

BNE 

7$            ;  IF  YES  -  BRANCH 

MOV 

R4,-(SP)        ;  COPY  INTERNAL  PDV  ADDRESS 

ADD 

$CETDF,(SP)     ;  CALCULATE  ACTUAL  PDV  ADDRESS 

CMP 

$BFR+V.PDV,(SP)+  ;  IS  IT  OUR  VECTOR  BLOCK  ? 

BEQ 

10$           ;  IF  YES  -  BRANCH 

7$: 

MOV 

R0,R1         ;  CURRENT  BLOCK  BECOMES  PREVIOUS  BLOCK 

MOV 

$BFR,RO        ;  GET  NEXT  BLOCK 

BNE 

5$            ;  CONTINUE 

RETURN 

10$: 

CMP 

#$NTLHSt.CXVEC,R1    IS  PREVIOUS  BLOCK  THE  LISTHEAD  ? 

BNE 

15$           ;  F  NOT  -  BRANCH 

MOV 

$8FR,(R1)       ;   F  YES  -  UPDATE  LISTHEAD 

BR 

18$           ;  CONTINUE 

15$: 

MOV 

R1,-(SP)        ;  COPY  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

MOV 

RO,-(SP)        ;  COPY  UNMAPPED  ADDRESS  Of  CURRENT  BLOCK 

CALL 

$XLINK         ;  UNLINK  VECTOR  BLOCK 

18$: 

MOV 

#V.LEN,R1       ;  DEALLOCATE  VECTOR  BLOCK 

CALL 

$DEPOL         ;  ... 

20$: 

RETURN 

K  K 

rs-f  .  7n 


VUNl.  -  VNP  UNLOAD  ROUTINES 
$CLIN  -  CLEAR  LIN 
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7^^ 

001740 

010467 

000202' 

MOV 

R4,..PDV 

• 

SAVE  THE  PDV  ADDRESS 

745 
746 
747 

001744 

016467 

OOOOOOG 

OOOOOOG 

MOV 

Z.DSP(R4), 

$BIAS  !■ 

GET  THE  PDV  BIAS 

001752 

CALL 

VECT 

RELEASE  VECTOR(S) 

748 

001756 

016500 

OOOOOOG 

MOV 

L.KR8A(R5) 

,R0   !■ 

GET  THE  KRB  ADDRESS 

749 

750 
751 

001762 

CALL 

XKRB 

." 

DEALLOCATE  THE  KRB 

001766 

CALL 

XLT 

DE-ALLOCATE  LINE  TABLE 

752 

001772 

CALL 

ZDDS 

; 

ZERO  L.DDS  IN  SLT(S) 

753 

001776 

016704 

000202' 

MOV 

..PDV,R4 

■ 

DDM  PDV  ADDRESS 

754 

002002 

016467 

OOOOOOG 

OOOOOOG 

MOV 

Z.NAM(R4) 

$NAME  ; 

SETUP  DDM  DEVICE  NAME 

755 

002010 

005767 

000122' 

5$: 

TST 

DDMAC 

; 

ANV  OTHER  DDM  ACTIVITV7 

756 

002014 

001006 

BNE 

10$ 

■ 

'f  NE,  YES              ^  ^,^ 

757 

002016 

132764 

OOOOOOG 

OOOOOOG 

BITB 

#7F.MFL,Z 

FLG(R4) 

;  IS  DDM  PROCESS  MARKED  FOR  LOAD 

758 

002024 

001002 

BNE 

10$ 

; 

IF  NE,  VES  -  DON'T  REMOVE 

759 

002026 

CALL 

XPRO 

• 

REMOVE  PROCESS  FROM  CORE 

760 

002032 

126565 

OOOOOOG 

OOOOOOG 

10$: 

CMPB 

L.DDM(R5) 

L.DLC(ft5)  ;  COMBINATION  DDM/DLC? 

761 

002040 

001434 

BEQ 

30$ 

• 

IF  EQ,  YES  -  ALL  DONE 

762 

002042 

016503 

OOOOOOG 

20$: 

MOV 

L.DLS(R5) 

R3 

CFT  DLC  LINE  TABLE  ADDPESS 

763 

002046 

001437 

BEQ 

111$ 

' 

IF  ZERO,  VERY  BAD 

764 

002050 

116504 

OOOOOOG 

MOVB 

L.DLC(R5) 

R4 

GET  DLC  PDV  INDEX 

765 

002054 

CALL 

GETPDV 

^ 

CONVERT  TO  PDV  ADDRESS 

766 
767 
768 

002060 

010467 

000202" 

MOV 

R4,..PDV 

> 

AND  SAVE 

002064 

116504 

OOOOOOG 

MOVB 

L.DLC(R5) 

RA 

GET  DLC  PDV  INDEX 

769 

002070 

CALL 

XLT16 

^ 

DE-ALLOCATE  DLC  LINE  TABLE 

770 

002074 

005065 

OOOOOOG 

CLR 

L.DLS(R5) 

, 

ZERO  LINE  TABLE  ADDRESS 

771 

002100 

005065 

OOOOOOG 

CLR 

L.DLM(R5) 

, 

AND  LINE  TABLE  BIAS 

772 

002104 

005767 

000120' 

TST 

DLCAC 

, 

ANY  OTHER  DLC  ACTIVITY? 

773 

002110 

001010 

BNE 

30$ 

, 

IF  NE,  YES 

774 

002112 

016704 

000202' 

MOV 

..PDV,R4 

DLC  PDV  ADDRESS 

775 

002116 

132764 

OOOOOOG 

OOOOOOG 

BITB 

#Zf .MFL,Z 

rLG(R4 

;  IS  DLC  PROCESS  MARKED  FOR  LOAD 

776 

002124 

001002 

BNE 

30$ 

IF  NE,  YES  -  DON'T  REMOVE 

m 

002126 

CALL 

XDLC 

REMOVE  DLC  FROM  CORE 

778 

002132 

042765 

OOOOOOG 

OOOOOOG 

30$: 

BIC 

#LF.UNL,L 

FLG(R5) 

;  CLEAR  MARKED  FOR  UNLOAD  FLAG 

779 
780 
781 

002140 

000241 

CLC 

RETURN  C-8IT  CLEAR 

002142 

RETURN 

782 

783 

784 
785 
786 

;  ERROR 

CONDITIONS 

002144 

ioi$: 

CRASH 

KRB  ADDRESS  IS  ZERO  1 

787 
788 
789 
790 
791 
792 
793 

002146 

111$: 

CRASH 

DLC  LINE  TABLE  ADDRESS  IS  ZERO  ! 

•  CONVERT  PDV 

INDEX  TO  PDV  ADDRESS 

002150 

066704 

OOOOOOC 

GETPDV 

ADD 

$PDVTAtAB 

,R4 

ADD  PDV  TABLE  ADDRESS 

794 

002154 

016404 

OOOOOOG 

MOV 

AB(R4),R4 

GET  TABLE  ENTRY 

795 

002160 

10$: 

RETURN 

796 

797 

798 

799 

;  DE-ALLOfATE 

KR8 

800 

K  15 
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VUNL  -  VNP  UNLOAD  ROUTINES 
$rCEX  -  CLEAR  SYS 


1240 

1?A1 

1242 

12A3 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253  003666 

1254 

1255  003666 

1256  003666 

1257  003674 

1258  003676 

1259  003700 
1260 

1261  003702 

1262  003706 

1263  003712 

1264  003716 

1265  003734 

1266  003740 

1267  003742 

1268  003746 

1269  003750 

1270  003754 

1271  003760 
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.SSTTL  $CCtX  -  CLEAR  SYS 

'$CCEX  -  CLEAR  SYSTEM 

THIS  ROUTINE  IS  CALLED  TO  REMOVE  ALL  COMM  EXEC  RELATED  PIECES  FROM  CORE. 

INPUTS: 

NONE 

OUTPUTS: 

EVERYTHING  IS  REMOVED  FROM  CORE 


SCCEX: 


032767     OOOOOOG  OOOOOOG 

001002 

000241 


012700 

016705 

016700 
00U24 
005067 
010504 
062704 
010467 


000124' 

OOOOOOG 

000012G 

00001 2G 

000012 
000014G 


1272  003776 

012701 

OOOOOOG 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281  004002 

1282 

1283 

1284  004006 

1285  004012 

1286  004012 

016704 

OOOOOOG 

1287  004016 

016746 

OOOOOOG 

1288  004022 

001415 

1289  004024 

012405 

1290  004026 

032765 

OOOOOOG  OOOOOOG 

1291  004034 

001406 

1292  004036 

010567 

OOOOOOG 

1293  00404? 

010446 

1294  004044 

1295  004050 

012604 

1296  004052 

005316 

.MCALL 

VNPBPT 

VNPBPT 

CCEX 

BIT 

*FE.CEX,$FMASK   ; 

BNE 

1$ 

CLC 

RETURN 

1$: 

MOV 

#NTIR,RO 

CALL 

TSKSCH 

MOV 

$RADDR,R5       ; 

GETRV 

R5,.TLGTH 

MOV 

T.RCVL+$BFR,RO  ; 

BEQ 

5$ 

CLR 

T.RCVL*$BFR     ; 

MOV 

R5,R4 

ADD 

*T.RCVL,R4 

MOV 

R4,T.RCVL*2t$BFR 

PUTRC 

R5,.TLGTH 

MOV 

#DSI2E,R1 

.IF  DF 

R$$MPL 

BIT 

*DF.POL,$DFLAG  ; 

BEQ 

2$ 

CALL 

.DESPK 

BR 

4$ 

.IFTF 

2$: 

CALL 
.ENDC 

$DEA16 

4$: 

CALL 

CLQREM 

S$: 

MOV 

$SLTMA,R4 

MOV 

$SLTNM,-(SP) 

BEQ 

30$ 

lOf.- 

MOV 

(R4)+,R5       , 

BIT 

#LF.RDy,L.FLG(R5) 

BEQ 

20$ 

MOV 

R5,$SLTA 

MOV 

R4,-(SP) 

CALL 

XLIN 

MOV 

(SP)+,R4 

20$: 

DEC 

(SP) 

IS   COMM  EXEC   LOADED    ? 

IF    YES   -  BRANCH 

IF  NO  -  RETURN  SUCCESS 


STORE  NTINIT'S  RAD50  TCB  NAME 
GET  TCB  ADDRESS 

READ  NTINIT  TCB 
GET  PACKET  ADDRESS 
IF  NONE  -  BRANCH 
REMOVE  ENTRY  FROM  RECIEVE  QUEUE 
COPY  TCB  ADDRESS 
POINT  TO  RECIEVE  QUEUE 
;  POINT  QUEUE  TO  ITSELF 
WRITE  TCB  TO  IMAGE 
STORE  SEND  DATA  PCKT  LENGTH 


SECONDARY  POOL  SUPPORTED 
IF  NO  -  BRANCH 
DEALLOCATE  PACKET 
CONTINUE 


DEALLOCATE  PACKET 


;[MP01] 
;CMP01] 
;CMP01] 
.-CMPOn 
;CMP01] 

; [MP01 ] 

; CMPOI ] 


;  REMOVE  NTI  AND  TIMER  ENTRIES  FROM  CLOCK  QUEUE 

GET  SLT  MAPPING  TABLE  ADDRESS 

AND  COUNT  OF  SLT'S 

IF  ZERO,  NO  WORK  HERE 

GET  NEXT  SLT 

;  IS  THE  LINE  READY? 

IF  EQ,  NO 

SAVE  SLT  ADDRESS 

SAVE  POINTER  INTO  SLT  MAPPING  TABLE 

UNLOAD  THE  LINE 

RESTORE  MAPPING  INTO  SLT  TABLE 

LOOP  <$SLTNM>  TIMES 
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CREF   OA.OO 


SYMeOL 

VALUE 

REFERENCES 

LO.SNM 

000035 

#5-63 

LO.TPA 

000020 

#5-63 

lO.TRB 

00003A 

#5-63 

LO.TRI 

000030 

#5-63 

LO.UNT 

000033 

#5-63 

LO.VCT 

OOOOU 

#5-63 

LO.VER 

0OO0A2 

#5-63 

LR.ACC 

000020 

#5-63 

LR.ACO 

000052 

#5-63 

LR.ADD 

000012 

#5-63 

LR.ALI 

000002 

#5-63 

LR.BLK 

000010 

#5-63 

LR.CTL 

000004 

#5-63 

lr.de: 

000010 

#5-63 

LR.HLP 

000002 

#5-63 

LR.LIN 

000002 

#5-63 

5-63 

LR.NAM 

000012 

#5-63 

lr.pas 

0000A1 

#5-63 

LR.PRO 

000002 

#5-63 

LR.STS 

000000 

#5-63 

26-972 

LR.TRI 

000006 

#5-63 

LR.TYP 

000002 

#5-63 

LR.UCB 

000016 

#5-63 

LR.UK 

000020 

#5-63 

LR.UNT 

000005 

#5-63 

LS.ALI 

=  000016 

#5-63 

LS.CEX 

=  000001 

#5-63 

LS.CIR 

=  000033 

#5-63 

L-^.CXO 

=  010000 

#5-63 

26-972 

LS.CX5 

=  000400 

#5-63 

LS.ECH 

=  001000 

#5-63 

7-192 

LS.FDX 

=  001000 

#5-63 

7-190 

LS.HDX 

=  010000 

#5-63 

7-191 

LS.MLP 

-  000012 

#5-63 

LS.LIN 

=  000003 

#5-63 

LS.lMC 

=  000007 

#5-63 

L3.L0G 

=  000020 

#5-63 

LS.MOD 

-  000036 

#5-63 

LS.NOD 

=  000014 

#5-63 

Li.NTI 

=  000013 

#5-63 

LS.OBJ 

=  000022 

#5-63 

LS.OPT 

=  000400 

#5-63 

16-503 

LS.PRO 

=  000002 

#5-63 

IS. TOP 

-  002000 

#5-63 

7-193 

LS.rST 

=  000010 

#5-63 

LS.UNF 

=  020000 

#5-63 

LS.XIT 

=  000011 

#5-63 

LX.AlI 

=  C00017 

#5-63 

1  X.CEX 

=  000004 

#5-63 

LX.CIR 

^  000034 

#5-63 

LX.LIN 

=  000006 

#5-63 

LX.LOG 

=  000021 

»5-63 

5-63 


5-63 


5-63 


5-63 


5-63 


20-669 


vRQB 


CREATED  Bv  MACRO  ON  30-JUL-85  AT  10:55 


PAGE  4 


L  1 


L 


K  2 

VSET  -  VNP  bETUP  CSR  AND  MICROC  MACRO  V05.03b  Saturday  29-Jun-85  02:59 
Symbol  table 


Page  6-1 


VS' 
SE' 


A$$CHK- 

000000 

F.NRBD= 

****** 

GX 

L$$ASG= 

000000 

N$$MLL= 

000001 

r$$KMG= 

000000 

A$$CPS= 

000000 

F.RSIZ= 

****** 

GX 

L$$DRV= 

000000 

N$$M0V= 

000010 

T$$MIN= 

000000 

A$$PR1= 

000000 

F.URBD= 

****** 

GX 

L$$P11= 

000001 

N$$NCT= 

000001 

V$$CTR= 

001000 

A$$TRP= 

000000 

G$$TPP= 

000000 

L$$11R= 

000000 

N$$PEM= 

000001 

X$$DBT= 

000000 

Ct$CKP= 

000000 

G$$TSS= 

000000 

M$$CR8= 

000124 

P$$P45= 

000000 

$BFR  = 

******  GX 

C$$ORE= 

OOOAOO 

G$$TTK= 

000000 

f1$$CRX  = 

000000 

P$$WRD= 

000000 

$CETDF= 

******  GX 

C$$RSH= 

177564 

G$$URD= 

000000 

M$$FCS= 

000000 

Q$$OPT= 

000010 

SCSRLD 

OOOOOORG 

D$$BUG= 

1775H 

I$$RAR= 

000000 

M$$MGE= 

000000 

R$$DER= 

000000 

$NTLHB= 

******  GX 

D$SISK= 

000000 

I$$RDN= 

000000 

M$$NET= 

000000 

R$$K11= 

000001 

$PUTAD= 

******  GX 

D$$Ln  = 

000001 

K$$CNT= 

177546 

H$$OVR^ 

000000 

R$$SND= 

000000 

$SLTA  = 

******  GX 

D$$YNC= 

000000 

KS$CSR= 

177546 

N$$ACC= 

000001 

R$$11M= 

000000 

$UNBLK= 

******  GX 

DS$YNM= 

000000 

K$$LDC= 

000000 

N$$BUF= 

000001 

SYSFDB= 

******  GX 

SVUNB  ^ 

******  GX 

E$$XPR= 

000000 

K$$TPS= 

000074 

N$$LDV= 

000001 

S$$WRG= 

000000 

$$CSR  = 

******  GX 

F$$LVL= 

000001 

LDSLP  = 

000000 

N$$MCP= 

000001 

S$$YSZ= 

007600 

.CXCSR= 

******  GX 

.  ABS. 

000000    000   (RW,I,GBL,A8S,0VR) 

000152    001   (RU,I,LCL,REL, 

ON) 

Errors 

detected:  0 

♦**   Assembler   statistics 


Work      file     reads:  0 

Work      file  writes:  0 

Size  of   work   file:  9350  Words      (   37  Pages) 

Size  of   core  pool:  14440  Words      (   55  Page^) 

Operating     system:  RSX-11M/PLUS 
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SET  COMMAND 


3^9 

350 

351 

352 

353 

35A 

355 

356 

35^ 

351  000000 

359  000000 

360 

361  000000 

362  000000 

363  000000 
36A  000000 
365 

366  000000 

367  000000 

368  000000 

369  000000 

370  000000 

371  000000 

372  000000 
373 

374 
375 

376  000000 

377  000000 

378  000000 
379 

380  000000 

381  000000 


.SBTTL      SET   COMMAND 

Keyword 
Type,  or 
Substate 


382 
383 

000000 

384 

000000 

385 

000000 

386 

387 

388 

389 

390 

000000 

391 

000000 

392 

000000 

393 

000000 

394 

000000 

395 

000000 

396 

000000 

397 

000000 

398 

000000 

399 

000000 

400 

0000"0 

401 

coo  : 

402 

403 

404 

405 

SET   COMMAND 

STATES 
TRANS 

TRANS 
TRANS 
TRANS 
TRANS 

TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

SET  ALIAS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

SET  CIRCUIT 


STATES 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 


SET  LINE 


SET,8PSSET 
IIDALI, 

liDClR, 
IIDKNCI, 
IIDLIN, 
IIDKNLI, 

IIDLOG, 

IIDKNLO, 

IJDMOD, 

IIDNOD, 

IIDOBJ, 

ilDPRO, 

IIDSYS, 


SEAL.SPSSEAL 

lOPSCO, 

lOPDES, 

SEALI.SPSSEAL 
lOPDES, 

SEAL2 

lOPSCO, 

SLAMDA, 


SECJ.&PSSEC! 

SLAMDA, 
SECIOP 
lOPCOS, 
lOPHTM, 
lOPLTM, 
lOPMACT, 
lOPOUN, 
lOPLNST, 
lOPTRl, 
.'OPSER, 
SLAMDA, 
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Next 
State 


SEAL, 

SECI, 
SECI, 
SELI, 
SELI, 

SELO, 
SELO, 
SEMO, 
SENO, 
SEOB, 
SEPR, 
SESY, 


SEAL1, 
SEAL2 


DONE 


DONE, 
DONE 


SECIOP 

SECIOP, 
SECIOP, 
SECIOP, 
SECIOP, 
SECIOP, 
SECIOP, 
SECIOP, 
SECIOP, 
DONE 


Action 
Routine 


ixMiss, 


Mask  (BIS) 
Value 


LS.ALI, 


OPSSCO, 


OPSSCO, 


FLag  to 
Mask 


RQBST 


LS.CIR, 

RQBST 

LS.CIR, 

RQBST 

LS.LIN, 

RQBST 

LS.LIN, 

RQBST 

LS.LOG, 

RQBST 

LS.LOG, 

RQBST 

LS.MOD, 

RQBST 

LS.NOD, 

RQBCT 

LS.OBJ, 

RQBST 

LS.PRO, 

RQBST 

LS.NTI, 

RQBST 

SOPTON 


SOPTON 


OPSCOS, 

SOPTON 

OPSHTM, 

SOPTON 

OPSLTM, 

SOPTON 

OPSMAC, 

SOPTON 

OPSOWN, 

SOPTON 

OPSSTA, 

SOPTON 

OPSTRI, 

SOPTON 

OPSSER, 

SOPTON 

u<;TR  -  WNP  rOMMANLi  PRnrFSSlNG  S  MACRO  V05.03b  Saturdo- 
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ENTITY  OPTION  SUBEXPRESSIONS 


1013  000000 
lOU 

1015  000000 

1016  000000 

1017  000000 
1018 

1019  000000 

1020  000000 
1021 

1022 
1023 
102A 
1025 

1026  000000 

1027  000000 

1028  000000 

1029  000000 

1030  000000 

1031  000000 

1032  000000 
1033 

1034 
1035 

1036  000000 

1037  000000 

1038  000000 

1039  000000 
10A0  000000 
10A1  000000 
10'.2  000000 
10A3 

104-!, 
1045 
1046 

1047  000000 

1048  000000 

1049  000000 

1050  000000 

1051  000000 
1052 

1053 
1054 

1055  000000 

1056  000000 

1057  000000 

1058  000000 

1059  000000 

1060  000000 

1061  000000 
1062 

1063 
1064 

1065  000000 

1066  000000 

1067  000000 

1068  000000 

1069  000000 


TRANS   SLAMDA, 
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OPDST 


VS 
ST 


STATES 

0PAD2 

TRANS 

gKSNETS, 

SEXIT 

TRANS 

SLAMDA, 

OPDST 

STATES  OPANT.SPSNET 
TRANS   SRAD50, 


SEXIT, 


Must  be  DESTINATION 


OPSKNT,        SOPTON 

;  Must  be  KNOWN  DESTINATIONS 

;  Parse  network  name 
SANT,       OPSNET,        SOPTON 


DESTINATION  for  SHO  X2n-SERVER 


DTE 


DUPLEX 


EVENT 


GROUP 


STATES 

OPDST 

TRANS 

KKSKNO, 

TRANS 

8KSDES 

STATES 

,8P$DST 

TRANS 

SRAD50, 

STATES 

0PDST1 

TRANS 

8KSDESS 

STATES 

OPPDT 

TRANS 

&K$KNO, 

TRANS 

8KSDTE 

STATES 

,8PSDTE 

TRANS 

SSTRNG, 

STATES 

OPPDT 1 

TRANS 

aKSDTES 

STATES 

OPDUP 

TRANS 

8KSDUP 

STATES 

,8P$DUP 

TRANS 

8KSFUL, 

TRANS 

8KSHAL, 

STATES 

OPEVE 

TRANS 

8XSKN0, 

TRANS 

8KSEVE 

STATES 

,8PSEVE 

TRANS 

lEVEID, 

STATES 

0PEVE1 

TRANS 

8KSEVE, 

STATES 

OPGRO 

TRANS 

8KSKN0, 

TRANS 

8KSGRP 

STATES 

,8PSGRP 

TRANS 

SRAD50, 

0PDST1 

SEXIT, 
SEXIT, 


OPPDT 1 

SEXIT, 
SEXIT, 


SEXIT, 
SEXIT, 


0PEVE1 

SEXIT 
SEXIT, 


0PGRO1 
SEXIT, 


SADS, 


SPDT, 


OPSDST, 
OPSKDS, 


OPSDTE, 
OPSKDT, 


LS.FDX, 
LS.HDX, 


SOPTON 
SOPTON 


SOPTON 
SOPTON 


ROBST 
RQBST 


[TD001] 
CTD001J 
CTDOOn 
CTD'^'ll] 
[TD001] 
[TD001] 
CTD001] 
[TDOOn 
CTD001] 
CTDOOID 
[TD001] 
CTD001] 
**-3 


[TD001D 
CT0001] 
♦  *-2 


$GRO, 


OPSKEV, 


OPSGRP, 


SOPTON 


SOPTON 
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STMAT?,  STMAT5  -  SET  MINIMUM  CHARACTER  MATCH 


1607 
1608 
1609 
1610 
1611 
1612 
1613 
161A 
1615 
1616 
1617 
1618 

1619  000020  STMAT1: 

1620  000020     112767     000001      000001G  MOVB         *1,.PFLAGt1 

1621  000026  RETURN 
1622 

1623  000030  STHAT3: 

162A   000030     112767     000003     000001G  MOVB         #3,.PFLAGH 

1625  000036  RETURN 

1626 


SBTTL  STMAT3,  STMAT5  -  SET  MINIMUM  CHARACTER  MATCH 


*»♦  STMAT5,  STMAT5  -  SET  MINIMUM  NUMBER  OF  CHARACTERS  TO  MATCH  FOR 
KEYWORD 

INPUTS:   NONE 

OUTPUTS: 

.PFLAG  -  HIGH  BYTE  =  MINIMUM  NUMBER  OF  CHARACTERS  TO  MATCH 


;SET  1  CHARACTER  MINIMUM 
.•SET  3  CHARACTER  MINIMUM 


L  5 

■miin    □□nrcccmi^    c    MArDA    wn";    njh    Ca)-.,rHiu    PQ-lun-R';    nP-IQ       Pane    1  <5 


VSTB 


CREATED  BY  MACRO  ON  29-JUN-85  AT  03:03 


SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 

TYSSTA  =  002000 

TYSSUM  =  000000 

vF.ADD  =  *«***«  G 

VF.ECH  =  «»♦♦♦*  G 

VF .FIX  =  *»•♦*«  G 

VF .ON  =  ******  G 

VF.PEM  =  ♦***»♦  G 

VF.PSI  =  ***♦♦*  G 

VF .SED  =  ******  G 

WC.CNT  =  000^00 

UC.EVE  =  OOAOOO 

WC.TRI  =  002000 

WC.UNT  =  001000 

$ADS  =  ******  G 

SALPHA  =  000022 

$ANT  =  ♦♦*•»♦  G 

$ANY  =  000020 

SARADl  =  ******  G 

$ARAD2  =  *♦♦♦**  G 

SBLANK  =  000006 

$C<LOG  =  ******  G 

SCMAND  =  ******  G 

SCOP  =  ******  G 

SCOST  =  ******  G 

$CSR  =  ******  G 

SCTL  =  ******  G 

$DACC  =  ******  G 

$01  GIT  =  00002A 

SDNUMB  =  OOOOK 

SDPAS  =  ******  G 

SDUSE  =  ******  G 

$EOS  =  000012 

SEXIT  =  000000 

SEXNOD  =  ******  G 

$FAIL  -  177777 

SFLAGS  =  «♦*♦**  G 

$GOFF  =  000001 

$GPRM  =  000001 

$GRO  =  ******  G 

SHLPAC  =  ******  G 

$HTM  =  ******  G 

SIFALI  =  ******  G 

SIFLOG  =  ******  G 

SIFNNA  =  ******  G 

SIFXAC  =  ******  G 

SIFXPR  =  ♦»****  G 

$IFX5S  =  ******  G 

$IFX9S  =  ******  G 

$INA  =  ******  G 

$INC  -  ******  G 

SLAMDA  =  000000 

SLNAME  =  ******  G 
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CREF   04.00 


REFERENCES 

#5-62 
#5-62 

5-86 

5-86 

5-86 

5-86 

5-86 

5-87 

5-87 
#5-62 
#5-62 
#5-62 
#5-62 

5-90 
#6-108 

5-90 
#6-108 

5-100 

5-100 
#6-108 

5-90 

5-84 

5-90 

5-90 

5-90 

5-90 

5-91 
#6-108 
#6-108 

5-91 

5-91 
#6-108 
#6-108 

5-91 
#6-108 

5-84 
#5-66 
#5-65 

5-91 

5-91 

5-92 

5-92 

5-92 

5-92 

5-92 

5-92 

5-93 

5-93 

5-100 

5-100 
#6-108 

5-93 


19-1642 


19-1643 


6-108 
6-108 


rDciTPn   nv      Msron      nw   ?Q- IIIKI-RS    AT    0^:03 
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VSYM  -  VNP  SYMBOL  DEFINITIONS 
MACRO  DEFINITIONS 

151  00006A 

152  000066 

153  000000 
154 
155 
156 
157 

158  000000 

159 
160 
161 
162 

163  000070 

164  000000 

165  000000 

166  000006 

167  000010 

168  000012 

169  000013 

170  000000 
171 
172        000001 
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.CXLEN: 
.SBPCB: 

:.BLKW 
:.BLKW 
.PSECT 

1 
1 

;  COMM 

EXEC  ADDRESS 

NG  BIAS 

AB==0 

;  LIBRARY  BLOCK 

OFFSETS 

L8.ADR: 
L8.S1Z: 
LB. USE: 
LB.APR= 

.ASECT 

.=0 

.BLKW 
:.8LKW 
:.8LKW 
:.BLKW 
=L8.USE+ 

.PSECT 

3 
1 
1 
1 

1 

CETAB  ALLOCATION  LENGTH 

SERVER  BASE  BUFFER  POOL  PCS  ADDRESS 


LIBRARY  NAME  IN  RAD50 

ADDRESS/BIAS 

SIZE 

USE  COUNT 

STARTING  APR  (MAPPED  ONLY) 


.END 


LiMn    cwMDni      r\c:r  t  M  t  T  I  nMC 


NIHrDn     V/n";     n'?h     Caf.rrHj^u     ?Q-liin-RS 


ri'^-n 
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VTMP  -  VNP  TEMPLATE  PROCESSING 
LOCAL  DATA 

121  0000?0 

122  000032 

123  000034 
12';  000035 

125  000036 

126  OOOO'iO 

127  000054 

128  000056 

129  000060 
130 
131 
132 
133 

134  000062 
155  000162 
136 
137 
138 
139 
KO  000262 

141  000264 

142  000266 

143  000270 

144  000272 

145  000274 
146 
147 
148 
149 

150  000276 

151  000300 

152  000302 

153  000314 

154  000316 

155  000320 

156  000322 

157  000324 

158  000326 

159  000332 

160  000334 

161  000336 

162  000340 

163  000346 

164  000350 
165 
166 
167 
168 

169  000352 

170  000556 
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$OFF:: 
SMXLEN 
SNALL : 
$NL18: 
SSZPTR 

SUBIAS: 

$UDA:: 

$LDA:: 


.BLKW 

i.BLKW 

.BLKB 

.BLKB 

;.BLKU 

.BLKW 

:.BLKW 

.BLKW 

.BLKW 


NETLDR  ACCOUNTING  BLOCK  IMAGE 


iNTLUB:: 
SNTLLB:: 


.BLKW 
.BLKW 


32. 
32. 


DDM  VECTOR  INFORMATION 


iVECTI 
$VECT2 
$VECT3 
SNVECT 
SICBAD 
SICBSZ 


.BLKW 
.BLKW 
:.BLKW 
:.BLKW 
:.BLKW 
i.BLKW 


OFFSET  VALUE 

MUX  TABLE  LENGTH  (STORED  AS  NEGATIVE  VALUE) 

NUMBER  OF  ALLOCATIONS 

NUMBER  OF  LIBRARY  REFERENCES 

POINTER  INTO  SIZE  TABLE 

SSIZE  SAVED  EACH  TIME  A  NEW  LEVEL  IS  ENTERED 

UNLOAD  BLOCK  BIAS 

UNLOAD  DATA  VIRTUAL  ADDRESS 

LIBRARY  DATA  VIRTUAL  ADDRESS 


IMAGE  OF  CURRENT  UNLOAD  DATA  BLOCK 
IMAGE  OF  CURRENT  LIBRARY  DATA  BLOCK 


DISPLACEMENT  OF  ".INT1"  FIELD 

DITTO  ".INT2" 

DITTO  ".INT3" 

NUMBER  OF  VECTORS 

ADDRESS  OF  KB 

AND  ITS  LENGTH 


TPARS  ACTION  ROUTINES  INFORMATION 


iVALUE 

$DIFF: 

SFILEN 

$CVAL 

$CAPR 

SMPLD 

SLFLD 

SBFALL 

SBFLBN 

SBFPTR 

SBFXFR 

SBFBAS 

$FNR50 

SLBADR 

SLBIAS 


:.BLKW 

.BLKW 

:.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

:.8LKW 

:.BLKW 

:.BLKW 

:.BLKW 

:.BLKW 

:.8LKW 

:.8LKW 

:.BLKW 


EXPRESSION  VALUE 
MODIFICATION  VALUE 
ASCIZ  FILE  NAME 
■'.CORE"  OPERAND  1  VALUE 

'.CORE"  OPERAND  2  APR  NUMBER 

'.MPLHD"  DISPLACEMENT 

'.LFLHD"  DISPLACEMENT 

•.BIN"  ALLOCATION  SIZE  IN  32.  WORD  BLOCKS 

'.BIN"  LOGICAL  BLOCK  NUMBER 

'.BIN"  BINARY  BUFFER  POINTER 

'.BIN"  TRANSFER  SIZE  IN  BYTES 
BINARY/LIBRARY  FILE  TKB  BASE  ADDRESS 
FILE  NAME  IN  RAD50 
".LIBR"  DESCRIPTOR  BLOCK  ADDRESS 
".LIBR"  DESCRIPTOR  BLOCK  BIAS 


TEMPLATE  BUFFER  AND  BUFFER  SIZE 


TMP8F : 
TMPSZ: 


.BLKB   132. 
.BLKW   1 
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VTMP  -  VNP  TEMPLATE  PROC 
SVFSPC  -  VERI^v  SPECIAL 

560 
561 
562 
563 
56^ 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 

576  00U04 

577  00UO4  050067 

578  00K10  001007 

579  00K12  050067 

580  001416 

581  00U16  026727 

582  001424  001004 

583  001426 
584 
585 
586 
587 

588  001430 

589  001436 
590 
591 
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OPERATOR 


.SBTTL 
.S8TTL 


SVFSPC  -  VERIFY  SPECIAL  OPERATOR 
$VFLV1  -  VERIFY  LEVEL  1 


SVFSPC  -  VERIFY  SPECIAL  OPERATOR 

SVFLVI  -  VERIFY  PRIMARY  TEMPLATE  (LEVEL  1) 

INPUTS: 

R0=$FLAG1  BIT  CODE  FOR  THE  OPERATOR  (SVFSPC  ONLY) 

OUTPUTS: 

OPERATOR  BIT  SET  IN  SFLAG1 

ERROR  IF  OPERATOR  HAS  ALREADY  BEEN  SEEN  OR  IF  NOT  AT  LEVEL  1 


.ENABL  LS8 


000000' 
000000" 
000036'  000040' 


SVFSPC: 


SVFLVI: 


BIT 
BNE 
BIS 

'cMP 
BNE 
RETURN 


HO.SFLAGl 

101$ 

RO.SFLAGI 

SSZPTR,#SSZPTR+2 
1 1 1 S 


ERROR  CONDITIONS 


101S: 
111$: 


EMSGSR  82 
EMSGSR  83 

.DSABL  LS8 


IT  THIS  THE  FIRST  TIME  FOR  THIS  GUY? 

IF  NE,  NO 

INDICATE  OPERATOR  SEEN 

;  IS  THIS  THE  TOP  LEVEL? 
IF  NE,  NO 
(C-BIT  CLEAR) 


DUPLICATE  OPERATOR 
PRIMARY  TEMPLATE  OPERATOR 
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VTMPIN  - 
ERROR  ME 

80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
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SSAGES 

.SBTTL  ERROR  MESSAGES 

ERROR  MESSAGES 

.ENABL  LC 


000004 
000042 


000072 
000073 


000000 


000 
052 


040 


FM10: 
124   FMT3: 


NTLERS  ,8,3,$TWE,$PRV.N,$FN0UT,<0pen  Failure  (-**♦.)> 
NTLERS  ,WZ,,$TWARN,RTSPC,,<MUX  update  only> 

.DSA8L  LC 


ERROR  MESSAGE  FORMAT  STRING 


.ENA8L  LC 

.NLJST  BEX 

.Ascn  "" 

.ASCIZ  "•  Template  File 
.EVEN 

.DSABL  LC 

.LIST  BEX 

.PSECT 
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1 
2 
5 
^ 
S 
6 

7 

8 
9 
10 
11 
12 
15 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   VUMR  -  VNP  DYNAMIC  UMR  ALLOC/DEALLOC  ROUTINES 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  DYNAMIC  UMR  ALLOCATION/DE-ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 


SVUNB   -  SCAN  NTPOOL  CHAIN  Of  BLOCKS 


ADDRESS  OF  LINK  WORD 

NUMBER  OF  WORDS/SEGMENT 

ADDRESS  OF  SEGMENT  WITHIN  BLOCK  BUFFER 


POINTER  TO  SUNBLK  (  MUST  BE  PRESERVED  ACROSS  CALLS 

UNCHANGED 

ADDRESS  OF  SEGMENT  IN  BUFFER  (  SUNBLK  ) 


INPUTS: 
RO 
R1 
R2 

OUTPUTS: 
RO 
R1 
R2 

NOTES: 

RO  MUST  BE  INPUT  AS  A  LISTHEAD  ADDRESS  IN  THE  HOME  BLOCK  (  SNTLHB  ). 
ONCE  THE  ROUTINE  (  $VUNB  )  HAS  BEEN  CALLED,  RO  WILL  BE  CHANGED 
TO  POINT  AT  SUNBLK.  THIS  ADDRESS  MUST  BE  PRESERVED  ACROSS  CALLS 
TO  SVUNB. 

IF  WHEN  CALLED  R2  IS  NON-ZERO  IS  IS  ASSUMED  TO  BE  THE  SEGMENT  ADDRESS 

RETURNED  TO  THE  CALLER  BV  A  PREVIOUS  CALL  TO  THIS  ROUTINE,  AND  THE 
ALGORITHIM  WILL  RETURN  THE  ADDRESS  OF  THE  NEXT  SEGMENT  IN  R2 
EVEN  IF  THAT  SEGMENT  IS  WITHIN  THE  NEXT  BLOCK  IN  THE  CHAIN.  IF 
NO  NEXT  BLOCK  EXISTS,  THE  "^  WILL  BE  RETURNED  AS  ZERO  AND  THE 
C-BIT  WILL  BE  RETURNED  SET.  ALL  OTHER  ERRORS  ARE  FATAL.  IF  WHEN 
CALLED  R2  IS  ALREADY  ZERO  AND  THE  LINK  WORD  IS  ZERO  (  I.E.,  (RO) 
=  0  ),  THEN  A  NEW  BLOCK  WILL  BE  ALLOCATED,  ZEROED,  REWRITTEN  TO 
THE  DISK  FILE,  AND  LINKED  TO  THE  CHAIN.  THEN  R2  WILL  BE  RETURNED 
POINTING  TO  THE  SECOND  WORD  OF  THIS  NEW  BLOCK.  A  SPECIAL  CASE  IS 
ENCOUNTERED  WHEN  RO  IS  THE  ADDRESS  OF  THE  LISTHEAD  IN  THE  HOME 
BLOCK  ;  THIS  CASE  IS  HANDLED  TRANSPARENTLY. 

THE  SWTCHI  AND  SWTCHO  MACROS  ARE  INVOKED  SO  THAT  UPON  EXIT  THE 

DEFAULT  BUFFER  IS  $BFR  REGARDLESS  OF  THE  DEFAULT  BUFFER  ON 
INPUT.  IF  THE  CALLER  WANTS  TO  REWRITE  A  MODIFIED  BLOCK 
THEN  THE  SWTCHI/0  MACROS  MUST  BE  USED  TO  POINT  AT  THE 
BLOCK  (SUNBLK)  IN  ORDER  TO  REWRITE  TO  THE  SYSTEM  IMAGE 
FILE.  THE  ADDRESS  AND  SIZE  FIELDS  ARE  SET  UP  PROPERLY 
ASSUMING  THE  USER  HAS  NOT  ISSUED  ANY  OTHER  GETXX/PUTXX 
MACROS  SINCE  CALLING  THIS  SUBROUTINE. 

SEGMENTS  ARE  SCANNED  BY  STARTING  WITH  THE  SECOND  WORD  OF  EACH 
BLOCK  AND  INCREMENTING  R1  WORDS  TO  THE  BEGINNING  OF  THE 
NEXT  SEGEMENT.  SEGEMNETS  CANNOT  CROSS  BLOCK  BOUNDARIES. 

THIS  ROUTINE  ASSUMES  THAT  A  ROOT  SEGMENT  BLOCK  BUFFER  AND  DESCRIPTOR 
ALL  DEDICATED  TO  IT'S  USE: 

SUN8AD   -  UNLOAD  BLOCK  VIRTUAL  ADDRESS 

SUNBLK   -  32.  WORD  BLOCK  BUFFER 

SUNENO   -  FIRST  WORD  NOT  IN  BLOCK  BUFFER 
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VUNL  -  VNP  UNLOAD  ROUTINES 
DEVEC  -  DEALLOCATE  VECTOR  BLOCK 

239 

2A0 

2M 

2A2 

243 

IhU 

2^.5 

2A6 

2A7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260  000132 

261 

262 

263 

264 

265 

266 

267 

268  000152 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 
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.SBTTL  $XPRO  -  UNSUCCESSFUL  SET  PROCESS  CLEANUP 

'$XPRO  -  CLEANUP  AFTER  AN  UNSUCCESSFUL  "SET  PROCESS"  (RSX11M  ONLY) 

THIS  ROUTINE  IS  CALLED  If  A  "SET  PROCESS"  FAILS  EITHER  IN  SETTING  UP  THE 
LLC  LINE  TABLE  OR  IN  SETTING  UP  THE  RSX11M  DCB  DATA  STRUCTURES.  THE  PROCESS 
WILL  BE  RELEASED  FROM  ITS  PARTITION  AND,  IF  IT  IS  AN  LLC,  ITS  LINE  TABLE  WILL 
BE  DE-ALLOCATED. 

INPUTS: 

$PDVA=PDV  ADDRESS 

FL.PX1  OF  $FLAGS  SET  IF  PROCESS  WAS  TRANSFERRED  INTO  CORE 

OUTPUTS: 

C-BIT=SET 


$XPRO:: 


000152 

000132  016704  OOOOOOG 

000136  032767  OOOOOOG  OOOOOOG 

000144  001002 

000146 


.ENABL  LS6 


.MCALL  VNP8PT 
VNPBPT  XPRO 


MOV 
BIT 
BNE 
CALLR 


$PDVA,R4 

#FL.PX1,$FLAGS 

XPRO 

10$ 


GET  PDV  ADDRESS 

WAS  PROCESS  TRANSFERRED? 

IF  YES  -  BRANCH 

CONTINUE 


XPRO: 


.IF  DF  R$$MPL 


CALL 
BITS 
BEQ 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 


DEVEC  ; 

#ZF.DDM,Z.FLG(R4) 
5$ 

$NAME,CTBSYM+2 

#$DfUIC,RO 

*CETNAM,R1 

#ST8EXT,R2 

$A7FS 

#CT8LK,R0 

$SYM8L 


SWTCHI 

SWTCHO 

MOV     $NTLH8t.CXALL,R1 

ADD     CTVAL,R1 

MOV     R1,$CTBAD 

SEE  IF  CIS  ALREADY  IN  LIST 


271: 


MOV 
MOV 
BEO 


$CILST,$BFR 

$BFR,RO 

5$ 


DEALLOCATE  VECTOR  BLOCK 

;  DDM  ? 

IF  NO  -  BRANCH 

FORM  SYMBOL  NAME  TO  LOOK  FOR  "SCTXXX" 

GET  THE  COHM  EXEC  UK 

FORM  ASCIZ  FILE  SPEC  "CXX,5X]CETAB.STB' 


GET  SYMBOL  BLOCK  TO  LOOK  FOR 
LOOK  FOR  IT 

SET  DEFAULT  BUFFERS 

;  GEfSTART  OF  CETAB 
CALCULATE  FIRST  CTB  ADDRESS 

SAVE  CTB  ADDRESS 


GET  START  OF  CTB  LIST 
STORE  NEXT  CTB  ADDRESS 
IF  END  OF  LIST  -  BRANCH 


; [MP01 ] 

;rMP01] 
;[MP01] 


L  H 


VUNL    -   VNP  UNLOAD  ROUTINES 
irUN  -   CLEAR   LIN 

801  00216? 

802  002162  012701  OOOOOOG 
80S 
80A 
805 
806 
807 

808  002166 

809  002172 
810 


K  15 
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XKR8: 


MOV 


#SKfi8LN,R1 


.IF  DF   R$$MPL 
ADD     #K.PRM,R0 
.ENDC 

CALL    $DEA16 
RETURN 


GET  LENGTH  OF  KRB  ALLOCATION 

GET  FIRST  ADDRESS  ALLOCATED  TO  KRB 

DE-ALLOCATE  THE  KRB  ALLOCATION 


,-[MP01] 

[MPOi: 

;[MPOn 


L  15 


VUNL    -   VNP  UNLOAD   ROUTINES 
tCCEX    -   CLEAR    SYS 


K   16 
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1297  004054 

001563 

BNE 

10$ 

1298 
1299 

1300  004056 

1301  004062 

016705 

OOOOOOG 

50$: 

MOV 

$PDVTA,R5 

016716 

OOOOOOG 

MOV 

$PDVNM,(SP) 

1302  004066 

001415 

BEQ 

52$ 

1303  004070 

012504 

40$: 

MOV 

(R5)+,R4 

1304  004072 

001411 

BEQ 

50$ 

1305  004074 

005764 

OOOOOOG 

TST 

2.PCB(R4) 

1306  004100 

001406 

BEQ 

50$ 

1307  004102 

010467 

OOOOOOG 

MOV 

R4,$PDVA 

1308  004106 

CALL 

XDC8 

1309  004112 

CALL 

XPRO 

1310  004116 

005516 

50$: 

DEC 

(SP) 

1311   004120 

001565 

BNE 

40$ 

1312  004122 

012767 

000002     OOOOOOG 

52$: 

MOV 

#2,$RSIZE 

1313  004130 

016701 

OOOOOOG 

MOV 

$CCBSZ,R1 

1314 

1315 

.ir 

DF,R$$MPL 

1316 

TST 

.MPRO 

1317 

BLE 

53$ 

1318 

ADD 

*2,R1 

1319 
1320 
1321    004134 

.ENDC 

016700 

OOOOOOG 

53$: 

MOV 

$CC8LH,R0 

1322  004140 

001412 

BEQ 

56$ 

1323  004142 

GETRV 

RO 

1324  004152 

016767 

OOOOOOG  OOOOOOG 

MOV 

$BFR,$CCBLH 

1325 

1326 

.]F 

Df  ,R$$MPL 

132'' 

TST 

.MPRO                         ; 

1328 

BLE 

54$ 

1329 

SUB 

*2,R0 

1330 
1331 
1332  004160 

54$: 

.ENDC 

CALL 

$DEA16 

1333  004164 

000763 

BR 

53$ 

1334  004166 

005067 

OOOOOOG 

56$: 

CLR 

$RD8LH 

1335  004172 

005067 

000002G 

CLR 

$RD8LHt2 

1336  004176 

005067 

OOOOOOG 

CLR 

$SD8LH 

1337  004202 

005067 

000002G 

CLR 

$SD8LH+2 

1338  004206 

005726 

TST 

(SP)  + 

1339 

1340  004210 

1341 

1342  004214 

CALL 

X08JTB 

005767 

0000006 

TST 

$DECPT 

1343  C04220 

001404 

BEQ 

562$ 

1344 

134  5  004222 

CALL 

XALITB 

1346  004226 

1347 

1548  004232 

1349 

1350  004236 

CALL 

XREMTB 

562$: 

CALL 

XFLTTB 

005727 

OOOOOOG 

TST 

*$XPS] 

1351   004242 

001402 

BEQ 

565$ 

1352  004244 

CALL 

$XPSI 

1353  004250 

005727 

OOOOOOG 

565$: 

TST 

#$XSNA 

GET  PDV  lABLE  ADDRESS 

AND  COUNT  OF  PDV'S 

IF  ZERO,  NO  WORK  HERE 

GET  PDV  ADDRESS 

ALLOW  EMPTY  SLOTS 

IS  PROCESS  CORE-RESIDENT? 

IF  EQ,  NO 

MAKE  SURE  THAT  $PDVA  HAS  THE  PDV  ADDRESS 

POSSIBLE  UNLOAD  OF  RSX11M  DEVICE  DRIVER 

RELEASE  PROCESS  FROM  MEMORY 

LOOP  <$PDVNM>  TIMES 

SET  TRANSFER  SIZE 
GET  CCB  SIZE 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

CCB  IS  2  BYTES  LONGER 


GET  FREE  CCB  ADDRESS 
IF  ZERO,  NO  MORE  CCB'S 
READ  IN  CCB  LINK  WORD 
SET  NEW  FIRST  IN  LIST 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

CCB  HAS  TWO  EXTRA  BYTES  IN  FRONT 


DE-ALLOCATE  A  CCB 

KEEP  LOOPING 

CLEAR  OUT  LISTHEADS 

FOR  BUFFER  ALLOCATIONS 


PURGE  STACK 

DEALLOCATE  OBJECT  TABLES 

PSI  ONLY  SYSTEM  ? 
IF  YES  -  BRANCH 

DEALLOCATE  ALIAS  TABLES 
DEALLOCATE  REMOTE  TABLES 

DEALLOCATE  FILTER  BLOCK  TABLES 

IS  PSI  SUPPORT  INCLUDED? 

BR  IF  NO 

ELSE  UNLOAD  PS! 

Is  SNA  support  included? 
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CREF   OA.OO 


SYMBOL   VALUE 


LX.NOD 
LX.OBj 
lX.PRC 
L.CTL 
L.DDM 
DDS 
L.DLC 
L.FLG 
L.NSTA 
L.UNT 
MS. ALL 
MS.CSR 
MS. EXT 
MS. INC 
MS. LLC 
MS.PRl 
MS  iEC 
MS..CT 
NOP 
NTINIT 
NULL 
OPSINS 
OFSLOG 
OFSOFF 
OF  SON 

ofssm: 

OPtADLi 
OPt-LL 
OPSCCS 
OPtCIE 
OPtCON 
OPSCOP 
OPSCOS 
OPSDST 
OPSDTf 
OPSDUP 


000015 
000023 
000005 


=      ♦  ♦♦♦** 


=  «•♦*♦♦ 

~  *»♦»** 

-  ♦♦♦*♦* 

-  ****** 

000120 
002646  R 
000234  R 

=  000001 

■=  000100 

=  000002 

=  000000 

=  000200 

=  000200 

=  000200 

--  J00004 

=  004000 

=  000400 

=  000001 

=  000100 

=  300200 

=  000040 

=  000002 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-63 
#5-63 
#5-63 

29-1095 

24-891 

22-754 

19-625 

22-745 

14-424 

29-1097 

20-668 

20-678 

16-502 

16-502 

17-538 

20-684 

20-701 

20-693 

6-133 

26-953 
#7-168 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 


54-1270 
29-1093 

24-888 
23-774 
14-430 
29-1103 


16-514 
16-508 

22-756 


#10-301 

#26-980 

16-505 


22-757 


34-1258 

24-891 
24-817 
19-623 
34-1280 


24-r'6 


24-896 


25-921 


vs 

SY! 

SYI 

F. 
F. 
F. 
SY 
SB 
SC 
'X 
SN 
SP 
SS 
SU 

sv 
$s 
.c 


20-671 


OPtEiT 

=  000100 

#5-63 

14-396 

OPSEVE 

-  oil 'lOO 

#5-63 

OPSFR 

=  OOotOO 

#5-63 

QOSGRP 

=  000100 

#5-63 

OPShOS 

=  00000- 

#5-63 

OPSnTM 

=  000002 

#5-63 

0PS!N^ 

=  004000 

#5-63 

OPS  INC 

=  001000 

#5-63 

OPSICDS 

=  002000 

#5-63 

OPSKD" 

--  000400 

#5-63 

OPS>Ev 

=  001000 

#5-63 

CPSKGR 

=  001000 

#5-63 

OPS^Nf 

=  010000 

#5-63 

OPSicSK 

=  002000 

#5-63 

OP$L  C  T 

=  00020C 

#5-63 

OPJLNF 

=  000040 

#5-63 

18-565 

-OFaTcn  BY     MArfin     dm  3n-iin-8S  AT   10:55 
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SYMBOL    CROSS   REFERENCE 


»5-112 


SYMBOL 

VALUE 

REFERENCES 

F.NRBD 

- 

****** 

GX 

•5-102 

•5-112 

F.RSIZ 

- 

GX 

•5-103 

F.URBD 

r 

****** 

GX 

•5-113 

SYSFDB 

r 

****** 

GX 

•5-102 

•5-103 

$BFR 

= 

****** 

GX 

5-112 

5-113 

SCETDF 

= 

****** 

GX 

5-98 

SCSRLD 

000000 

RG 

#5-7A 

SNTLHB 

- 

****** 

GX 

5-76, 

SPUTAD 

r 

****** 

GX 

5-103 

SSLTA 

- 

****** 

GX 

5-89 

5-97 

$UNBL< 

r 

****** 

GX 

5-80 

5-102 

SVUNB 

= 

****** 

GX 

5-83 

$$CSR 

r 

****** 

GX 

5-99 

.CXCSR 

= 

****** 

GX 

5-76 

L     2 
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CREF       OA.OO 


•5-113 


VS 
SE 


rSFiTPn  Bv     Mirun     nM  ?9-iiin-R5   at   n?:59 
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VSTB  -  VNP  COMMAND  PROCESSING 

S  1* 

SET  COMMAND 

406 

407  000000 

408  000000 

409  000000 

410 

411 

412 

413  000000 

414  000000 

415  000000 

416  000000 

417  000000 

418  000000 

419  000000 

420  000000 

421  000000 

422 

423 

424 

425 

426  000000 

427  000000 

428 

429 

430 

431  000000 

432  000000 

433  000000 

434  000000 

435  000000 

436  000000 

437  000000 

438  000000 

439  000000 

440 

441 

442 

443  000000 

444  000000 

445 

446 

447 

448  000000 

449  000000 

450  000000 

451  000000 

MACRO  V05.03b  Saturdiy 


L  3 

29-Jun-85  02:59 


STATES  SELI,8P$SELI 
TRANS  gKSALL, 
TRANS  SLAMDA, 

•    SET  LINE  OPTIONS 


STATES 

SELIOP 

TRANS 

lOPCCSR 

TRANS 

lOPDUP, 

TRANS 

lOPLOC, 

TRANS 

lOPMDEA 

TRANS 

lOPPRI, 

TRANS 

lOPUCSR 

TRANS 

lOPVEC, 

TRANS 

SLAMDA, 

T  LOGGING 

STATES  SELO,&PSSELO 
TRANS  SLAMDA, 

SET  LOGGING  OPTIONS 


Page  9-1 


DONE, 
SELIOP 


SELIOP, 
SELIOP, 
SELIOP, 
SELIOP, 
SELIOP, 
SELIOP, 
SELIOP, 
DONE 


SELOOP 


OPSALL, 


452  000000 

453  000000 

454  000000 

455  000000 

456  000000 

457  000000 

458  000000 

459  000000 

460  000000 

461  000000 

462  000000 


SOPTON 


OPSCCS, 

SOPTON 

OPSDUP, 

SOPTON 

OPSLOC, 

SOPTON 

OPSMDE, 

SOPTON 

OPSPRi, 

SOPTON 

OPSUCS, 

SOPTON 

OPSVEC, 

SOPTON 

STATES 

SELOOP 

TRANS 

lOPLGST, 

SELOOP, 

OPSLST, 

SOPTON 

TRANS 

lOPSNAM, 

SELOOP, 

OPSNAM, 

SOPTON 

TRANS 

lOPEVE, 

SELOOP, 

OPSEVE, 

SOPTON 

TRANS 

.'OPSIN, 

SELOOP, 

OPSSIN, 

SOPTON 

TRANS 

lOPLIN, 

SELOOP, 

OPSLNE, 

SOPTON 

TRANS 

lOPNOD, 

SELOOP, 

OPSNOD, 

SOPTON 

TRANS 

lOPCIR, 

SELOOP,     , 

OPSCIE, 

SOPTON 

TRANS 

SLAMDA, 

DONE,       SCKLOG 

;  SET  NODE 

STATES 

SENO,SP$SENO 

TRANS 

SLAMDA, 

SENOOP 

;    SET  NODE  OPTIONS 

STATES 

SENOOP 

TRANS 

lOPADD, 

SENOOP,     SIfNNA, 

OPSADD, 

SOPTON 

TRANS 

lOPCIR, 

SENOOP,     SIFNNA, 

OPSNLI, 

SOPTON 

TRANS 

.'OPHOS, 

SENOOP, 

OPSHOS, 

SOPTON 

TRANS 

lOPNAM, 

SENOOP, 

OPSNAM, 

SOPTON 

TRANS 

lOPRPAS, 

SENOOP, 

OPSRPA, 

SOPTON 

TRANS 

lOPNOST, 

SENOOP, 

OPSEST, 

SOPTON 

TRANS 

lOPTPAS, 

SENOOP, 

OPSTPA, 

SOPTON 

TRANS 

lOPVER, 

SENOOP, 

OPSVER, 

SOPTON 

TRANS 

.'OPSEG, 

SENOOP, 

OPSSEG, 

SOPTON 

TRANS 

.'OPINC, 

SENOOP, 

OPSINC, 

SOPTON 

TRANS 

lOPOUT, 

SENOOP, 

OPSOUT, 

SOPTON 

TRANS 

lOPINA, 

SENOOP, 

OPSINA, 

SOPTON 

TRANS 

lOPRET, 

SENOOP, 

OPSRET, 

SOPTON 

TRANS 

SLAMDA, 

DONE 

w^TR  -  wliiP  rnMMAMD  PRnCFSSING   S  MACRO  V05.03b  Saturday   29-Jun-85   02:59     Page  9-2 
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STATES 

0PGR01 

TRANS 

gKSGRPS 

HELLO  TIMER 

STATES 

OPHTM 

TRANS 

IHELTIM 

STATES 

,SP$HTM 

TRANS 

SDNUMB, 

HOST 

STATES 

OPHOS 

TRANS 

&KSHOS 

STATES 

,8P$H0S 

TRANS 

SDNUMB, 

STATES 

TRANS 

<'  .>, 

TRANS 

SLAMDA, 

STATES 

OPHA 

TRANS 

SDNUMB, 

STATES 

TRANS 

SLAMDA, 

L  4 

VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.03b  Saturday  29-Jun-85  02:59 
ENTITV  OPTION  SUBEXPRESSIONS 

1070  000000 

1071  000000 
1072 
1073 
107A 

1075  000000 

1076  000000 

1077  000000 

1078  000000 
1079 
1080 
1081 

1082  000000 

1083  000000 

1084  000000 

1085  000000 

1086  000000 

1087  000000 

1088  000000 

1089  000000 

1090  000000 

1091  000000 

1092  000000 
1093 
1094 
1095 

1096  ;  LINE 

1097 

1098  000000 

1099  000000 

1100  000000 

1101  000000 
1102 
1103 
1104 

1105  000000 

1106  000000 

1107  000000 

1108  000000 

1109  000000 
1110 
1111 
1112 

1113  000000 

1114  000000 

1115  000000 

1116  000000 
1117 
1118 
1119 

1120  000000 

1121  000000 

1122  000000 

1123  000000 

1124  000000 

1125  000000 

1126  000000 
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SEXIT, 


SEXIT, 


VS 
PE 


OPSKGR, 


SOPTON 


OPHA 
SEXIT, 


SEXIT, 


SHTM 


SARADl 

SSTHOS 
SARAD2 
SSTHOS 


STATES 
TRANS 

STATES 
TRANS 

OPLIN 
RKSLIN 
,8PSLNID 
ILINID, 

SEXIT 

LINE  STATE 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

OPLNST 

SKSSTAE 

.&PSLIST 

8KS0FF, 

8KS0N, 

SEXIT 
SEXIT, 

LISTEN  TIMER 

STATES 
TRANS 

STATES 
TRANS 

OPLTM 

ILISTIM 
,8PSLTM 

SDNUMB, 

SEXIT, 

LOCATION 

STATES 
TRANS 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

OPLOC 

8KSL0C, 

SKSfIR, 

8KST0P, 

0PL0C1,&PSL0C 

SKSFIR, 

8KST0P. 

OPLOCl 

SEXIT 

SEXIT, 

SEXIT 
SEXIT, 

VF.ON, 


SVFLAG 


SLTM 


LS.TOP, 
LS.TOP, 


RQBST 
RQBST 


ut;TR  -  vMP  rnMi.uwn  PRnrF';<;iNr, 
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VSTB  -  VNP  COMMAND  PROCESSING  5  MACRO  VO5.03b  Saturday  29-Jun-85 
PEMSTA  -  ACTION  ROUTINE  FOR  THE  PROTOCOL  EMULATOR  STATE 


^2:'- 
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1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 


.SBTTL  PEMSTA  -  ACTION  ROUTINE  FOR  THE  PROTOCOL  EMULATOR  STATE 

•*-PEMSTA-PROTOCOL  EMULATOR  STATE  ACTION  ROUTINE 

INPUTS: 

NONE. 

OUTPUTS: 

NONE. 


000040  PEMSTA: 

000040  052767  000014  OOOOOOG        BIS     #LS.NOD,RQBST 

000046  052767  OOOOOOG  OOOOOOG        BIS     #VF .PEM,$VFLAG 
0OO0S4  CALL    SEXNOD 

000060  RETURN 


FAKE  THIS  AS  A  NODE  FUNCTION 

..BUT  INDICATE  IT  AS  A  PROTOCOL  EMUL. 

FAKE  EXECUTOR  NODE 


M     5 
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CRFF        0^.00 


SYMBOL 

VALUE 

REFERENCES 

SLTM 

:: 

****** 

G 

5-2? 

tMACT 

r 

****** 

G 

5-93 

tMDEA 

= 

****** 

G 

5-93 

tlw'XCO 

= 

G 

5-94 

SMXLI 

= 

****** 

G 

5-94 

SNADD 

= 

****** 

G 

5-94 

SNNAM 

= 

****** 

G 

5-94 

SNUMBR 

r 

000002 

#6-108 

$ONAM 

= 

****** 

G 

5-94 

SOPTON 

~ 

****** 

G 

5-84 

SOTYP 

= 

****** 

G 

5-94 

$OUT 

= 

****** 

G 

5-100 

SOVER 

- 

****** 

G 

5-95 

SOWN 

= 

****** 

G 

5-95 

SPCIR 

=: 

****** 

G 

5-95 

$PDT 

r 

****** 

G 

5-95 

SPNAM 

= 

****** 

G 

5-95 

SPRGCL 

- 

****** 

G 

5-95 

$PRI 

r 

****** 

G 

5-95 

SQUAL 

= 

****** 

G 

5-84 

$RAD50 

= 

000016 

#6-108 

$RET 

r 

****** 

G 

5-100 

SRONLY 

~ 

000001 

#5-67 

6-108 

SSCOND 

= 

****** 

G 

5-96 

SSCOPI 

- 

****** 

G 

5-96 

$SC0P2 

= 

****** 

G 

5-96 

$SC0P3 

= 

****** 

G 

5-96 

SSCSR 

= 

****** 

G 

5-96 

$SEG 

- 

****** 

G 

5-100 

SSTADO 

=: 

****** 

G 

5-96 

SSTALl 

=L 

****** 

G 

5-97 

tSTDES 

- 

****** 

G 

5-97 

SSTEND 

= 

****** 

G 

5-97 

SSTHOS 

- 

****** 

G 

5-97 

SSTLND 

= 

****** 

G 

5-97 

SSTLSH 

= 

****** 

G 

5-96 

SSTLSN 

= 

****** 

G 

5-97 

SSTNAD 

~ 

****** 

G 

5-98 

SSTNAM 

~ 

****** 

G 

5-98 

SSTPAR 

- 

****** 

G 

5-98 

SSTRNG 

- 

00000^ 

#6-108 

SSTRPA 

~ 

****** 

G 

5-98 

SSTSNM 

- 

****** 

G 

5-98 

SSTTPA 

= 

****** 

G 

5-98 

SSUBXP 

~ 

000010 

#6-108 

$TRI 

= 

****** 

G 

5-99 

STRIBA 

■- 

****** 

G 

5-99 

STVPE 

r 

****** 

G 

5-84 

SUNT 

- 

****** 

G 

5-99 

$VEC 

- 

G 

5-99 

$VFLAG 

r 

****** 

G 

5-84 

'■19-1642 

SXMISS 

= 

****** 

G 

5-99 

6-108 


6-108 


6-108 


r\k.i       in 


.    O  C      AT      n7 .  A7 


n   6 


VSYM  -  VNP  SYMBOL  DEFINITIONS 
Symbol  table 
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AB 

A$$CHl!:  = 

A$$CPS= 

A$$PRI= 

AS$TRP= 

BUFUMP= 

CMODE  = 

c$$ck;p= 

C$tORE= 

C$$RSH= 

D$$BUG= 

0$$1SIC= 

D$tLn  = 

D$$YNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

KISAR0= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LB. ADR 

LB.APR= 

LB.SIZ 

LB. USE 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.SWT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 


000000 
000000 
000000 
000000 
000000 
17235A 
UOOOO 
000000 
000400 
177564 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
0000 
000000 
000000 
000000 
000000 
172340 
172354 
177546 
177546 
000000 
000074 
000006 
00C013 
000010 
000012 
000000 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 


.  ABS.   177776 
000000 
Errors  detected: 


000 
001 
0 


LF.X2P= 

L"J.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPAR  = 

MPCSR  = 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 


000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
172100 
177746 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 


(RW,1,GSL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


»*•  Assembler  statistics 


Work   fUe  reads:  0 


N$$MOV= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO   = 

PR1 

PR2   = 

PR3   = 

PR4 

PR5 

PR6 

PR7   = 

PS 

P$$P45= 

P$$WRD= 

Q$$0PT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SEfi= 

SF.SVC= 

SF.UNL= 

SWR 

S$$URG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

TPS   = 

T$$KMG= 

T$$MIN= 

UBMPR  = 

UISARO= 

UISAR1= 

V$$CTR= 

X$$D8T= 

ZF.COU= 


000010 
000001 
000001 
177772 
030000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
177570 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
177564 
000000 
000000 
170200 
17?640 
177642 
001000 
000000 
001000 


^3:07 
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ZF.DDM=  000001 

G 

.CXVEC 

000026  G 

ZF.DIA=  004000 

G 

.CXVSM 

000016  G 

ZF.DLC=  000002 

G 

.DPRB 

000041  G 

ZF.DVP=  100000 

G 

.DPRW 

000042  G 

ZF.INI=  040000 

G 

.DVCHA 

000011  G 

ZF.KMX=  000020 

G 

.EOF 

000012  G 

ZF.LLC=  000004 

G 

.FILE 

000013  G 

ZF.LMC=  000100 

G 

.INT 

000014  G 

ZF.HAN^  020000 

G 

.LFILE 

000017  G 

ZF.MFL=  000010 

G 

.LIBR 

000015  G 

ZF.MTM=  000400 

G 

.LINKS 

000016  G 

ZF.MUX=  000040 

G 

.LSTHD 

000020  G 

ZF.PSE=  002000 

G 

.LTAB 

000021  G 

ZF.SL]=  010000 

G 

.MPTAB 

000022  G 

ZF.TIM=  000200 

G 

.MXPTB 

000044  G 

ZF.X3P=  000000 

G 

.MX TAB 

000023  G 

ZS.ASN=  100000 

G 

.NODE 

000024  G 

ZS.BSY=  140000 

G 

.PECHA 

000045  G 

Z.AVL   000014 

G 

.PRI 

000025  G 

Z.DAT   000016 

G 

.PRTOV 

000026  G 

Z.DSP   000000 

G 

.SBPCB 

000066  G 

Z.fLG   000010 

G 

.SCOM 

000027  G 

Z.LEN  =  000016 

G 

.SECSR 

000030  G 

Z.LLN   000006 

G 

.SLNB 

000031  G 

Z.MAP   000020 

G 

.SLNW 

000032  G 

Z.NAM   000004 

G 

.STNB 

000033  G 

Z.PC8   000012 

G 

.STNW 

000034  G 

Z.SCH   000007 

G 

.TIME 

000043  G 

.ADDRB  000001 

G 

.UN8 

000035  G 

.ADDRW  000002 

G 

.UNU 

000036  G 

.APR    000040 

G 

.WORD 

000037  G 

.BASEB=  140000 

G 

.X2CH1 

000061  G 

.8LKB   000003 

G 

.X2CH2 

000062  G 

.BLKU   000004 

G 

.X2CH3 

000063  G 

.BYTE   000005 

G 

.X2CH4 

000064  G 

.CORE   000006 

G 

.X2CH5 

000065  G 

.CSR    000007 

G 

.X3C01 

000046  G 

.CTIM   000010 

G 

.X3C02 

000047  G 

.CXALL  000062 

G 

.X3C03 

000050  G 

.CXCSR  000004 

G 

.X3C04 

000051  G 

.CXLBR  000060 

G 

.X3C05 

000052  G 

.CXLB1  000030 

G 

.X3C06 

000053  G 

.CXLB2  000044 

G 

.X3C07 

000054  G 

.CXLEN  000064 

G 

.X3C08 

000055  G 

.CXPCB  000006 

G 

.X3C09 

000056  G 

.CXSYM  000010 

G 

.X3C10 

000057  G 

.CXUNL  000024 

G 

.X3C11 

000060  G 

M  7 

OC   n7  . A7 


VTMP  -  VNP  TEMPLATE 
ERROR  MESSAGES 

172 
173 
17A 
175 
176 
177 
178 

179  000560 

180  000561 

181  000565 
182 
183 
18A 
185 

186  000676 

187  000713 
188 
189 
190 
191 
192 
195 
19A  000720 

195  000766 

196  001 OU 

197  0010A2 

198  001110 
199 
200 
201 

202  001 15A 
203 
204 
205  000000 


L  8 
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.SBTTL  ERROR  MESSAGES 
.NLIST  BEX 


015 
126 


055 
055 


116 


055 
055 


120 


ERROR  MESSAGE  BUFFER 

ERRMSG:  .BYTE  15 

.ASCII  "VNP  " 

ERRBUF:  .BLK8  73. 


ERROR  MESSAGE  PREFIXES 


040     UPFX: 
040      EPFX: 


.ASCII 
.ASCIZ 

.EVEN 


"—  ♦WARNING* 


ERROR  MESSAGES 

NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


,13,2,STERR,SREP.C,$ELINE,<End  of  task  buffer  overflow. > 
,21,2,STERR,SREP.C,SELINE,<DDM  opera tor> 
,79,2,STERR,$REP.C,SELINE,<DLC  operator> 
,82,2,STERR,$REP.C,$ELINE,<0perator  may  not  occur  twice. > 
,83,2,STERR,SREP.C,$ELINE,<Primary  template  operator. > 


052 


OAO 


ERROR  MESSAGE  FORMAT  STRINGS 


124   FMT2: 


.ASCIZ  "*  Template 
.EVEN 

.PSECT 


,AC  n7u 


H  8 

«_Qt;  07. no 
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$TERR  -  PRINT  ERROR  MESSAGE 


595 
59^ 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 

609  0OU44 

610  C0U44 

611  00T450 

612  0OU54 

613  00U56 
61A  00K60 

615  00U60 

616  00U66 

617  001470 

618  001470 

619  001476 

620  001502 

621  001506 

622  001510 

623  001514 

624  001516 

625  001520 

626  001522 

627  001524 

628  001526 

629  001530 

630  001532 

631  001534 

632  001536 

633  001540 

634  001542 

635  001544 

636  001546 

637  001550 

638  001554 

639  001556 

640  001560 

641  001564 

642  001566 

643  001570 

644  001572 

645  001574 


646 

647 
648 
649 


.SBTTL 
.SBTTL 


$TERR  - 
STWARN 


PRINT  ERROR  MESSAGE 
-  PRINT  WARNING 


$TERR  -  PRINT  ERROR  MESSAGE 
STWARN  -  PRINT  WARNING  MESSAGE 

INPUTS: 

R0=ERR0R  MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-8IT=SET 
RO,Rl=DESTROyED 


012701 
005767 
100412 
000445 

032767 
001366 

052767 
012701 

010005 
012704 
112124 
001376 
005304 
012503 

105713 
001403 
112324 
001376 
005304 
012503 
112524 
001376 
005304 
012700 
010401 
160001 

005703 
001401 

000261 


000001 


000676' 
OOOOOOG 


STWARN: 


0000006  OOOOOOG 


$TWE: 


100000 
000713' 


000000' 


STERR: 


000565' 


10S: 


20S: 


30S: 


40S: 
50$: 


000560' 


60$: 


.ENABL  LSB 


MOV 
TST 
BMI 
BR 

BIT 
BNE 


*WPFX,R1 
$FLAGS 
10$ 
60$ 

#FL.LLC,SFLAGS 
STWARN 


BIS 

*F1.ERR,$FLAG1   ; 

MOV 

#EPFX,R1 

CALL 

SSAVAL 

MOV 

R0,R5         ; 

MOV 

#ERR8UF,R4 

MOVB 

(R1)+,(R4)+ 

BNE 

20$ 

DEC 

R4 

MOV 

(R5)+,R3 

CALL 

a(R5)+ 

TST8 

(R3) 

BED 

40$ 

MOVB 

(R3)+,(R4)+ 

BNE 

30$          ; 

DEC 

R4           ; 

MOV 

(R5)i-,R3 

MOVB 

(R5;+,(R4)+ 

BNE 

50$ 

DEC 

R4 

MOV 

*ERRMSG,RO 

MOV 

R4,R1 

SUB 

RO.Rl 

CALL 

STIOUT 

TST 

R3 

BEQ 

60$ 

CALL 

(R3) 

se: 

RETURN 

.DSABL 

LSB 

.END 

SET  PRlFIX  ADDRESS 

ARE  WARNING  MESSAGES  ENABLED? 

IF  MI,  YES 

ELSE  JUST  EXIT  WITH  C-8IT  SET 

WARNING  IF  LLC 
FATAL  IF  DDM  OR  DLC 

INDICATE  ERROR  HAS  OCCURRED 

SET  PREFIX  ADDRESS 

SAVE  ALL  REGISTERS 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

COPY  THE  PREFIX 

SKIP  the'zero  byte 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  the'zero  byte 

GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RETURN  C-8IT  SET 


M  9 

,  .«_Qc:  n7  .  no 


n 


L  10 
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STM.IN  -  INITIALIZE  TEMPLATE  DATA 


105 
106 
107 
108 
109 
110 
111 
112 
113 
IK 
115 
116 

117  000000 

118  000000 

119  000006 

120  OOOOU 

121  000022 

122  000026 

123  000032 
12A  000036 

125  0000A2 

126  0000A6 

127  00005A 

128  000060 

129  00006A 

130  000072 

131  000076 

132  000102 

133  000106 

134  0001 U 

135  000116 

136  000124 

137  000126 

138  000132 

139  000140 

140  000142 

141  000150 
142 

143 

144 

145 

146 

147  000154 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158  000200 

159  000202 
160 


016767 
016767 
016767 
005067 
005067 
005067 
005067 
005067 
012767 
005067 
005067 
012767 
016700 

016701 
032761 
001051 
032767 
001445 
016700 
016067 
001437 
052767 
016000 


.S8TTL  STM.IN  -  INITIALIZE  TEMPLATE  DATA 

'STM.IN  -  INITIALIZE  TEMPLATE  DATA,  OPEN  PRIMARY  TEMPLATE 

INPUTS; 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

$ADDR=LINE  TABLE  ADDRESS  IF  MUX  UPDATE 

R0,R1,R2=DESTROYED 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

0000006  OOOOOOG 
OOOOOOG 


STM.IN: 


000172  026757  OOOOOOG  000002G 


001405 


.ENABL  LSB 


MOV 

MOV 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

MOV 

CLR 

CLR 

MOV 

MOV 

CALL 

MOV 

BIT 

BNE 

BIT 

BEQ 

MOV 

MOV 

BEQ 

BIS 

MOV 

.IF  DF 

ADD 

GETRV 

.IFF 

GETRV 

.ENDC 

.IF  DF 
CMP 
.IFF 
CMP 

.ENDC 

BEQ 
EMSGS 


$X8UF2,$BIN 

$XBUF2,$PTR 

$XLEN2,$LEFT 

SADDR 

SMXADD 

SMXSIZ 

$OFF 

SSIZE 

#F1.UMR,$FLAG1 

SNVECT 

SNALL 

#$SZPTR,$SZPTR 

$NAME,RO 

$DFN 

$PDVA,R1        , 

#ZF.PSE,Z.FLG(R1) 

10$ 

#FL.DDM,$FLAGS 

10$ 

SSLTA.RO 

L.DDS(RO),$ADDR 

10$ 

#FL.CHA,$FLAGS 

L.KRSA(RO),RO 


COPY  END  OF  TASK  BUFFER  ADDRESS 

TWICE 

COPY  BUFFER  SIZE 

CLEAR  LINE  TABLE  ADDRESS 

CLEAR  MUX  LINE  TABLE  ADDRESS 

CLEAR  MUX  TABLE  SIZE 

CLEAR  LINE  TABLE  OFFSET 

CLEAR  LINE  TABLE  SIZE 

INITIALIZE  LINE  TABLE  FLAGS 

CLEAR  NUMBER  OF  VECTORS 

CLEAR  NUMBER  OF  ALLOCATIONS 

INITIALIZE  SIZE  TABLE  POINTER 

GET  THREE  CHARACTER  PDV  NAME 

SETUP  DEFAULT  FILE  NAME 

GET  PDV  ADDRESS 

;  IS  THIS  A  PSEUDO  DDM? 

BR  IF    YES 

IS  THIS  A  DDM  LINE  TABLE  ? 

NO  .. 

GET  THE  SLT  ADDRESS 

HAS  THE  LINE  TABLE  ALREADY  BEEN  BUILT 

NO  .. 

YES  ..  IT'S  CHARACTERISTICS  UPDATE 

GET  THE  KRB  ADDRESS 


R$$MPL 

#K.PRM,RO 

RO,#$KRBLN 

R0,*K.CSR+2 


;  POINT  TO  START  OF  KRB 
;  READ  KRB 

;  READ  IN  KRB 


RSSMPL 
$$CSR,K.CSR-K.PRM+$BFR 


$$CSR,K.CSRt$8FR 


4$ 
WZ 


SAME  CSR  ADDRESS  ? 
IS  THIS  THE  SAME  CSR  ADDRESS 


IF  EQ,  YES  ..  OKAY 
WARNING  -  MUX  UPDATE  ONLY 


M  10 

-DC  m  .AG   n-.^«  0_. 


"1 


VIST  -  VNP  TESTING  ROUTINES 
SVTST  -  VNP  TESTING  ROUTINES 


D3:0£ 


172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182  000036 

185 

18A  000036 

185  0O0OA6 

103407 

186  000050 

032767 

OOOOOOG  OOOOOOG 

187  000056 

001016 

188  000060 

189  00006A 

000413 

190  000066 

042767 

OOOOOOG  OOOOOOG 

191  00007A 

032767 

OOOOOOG  OOOOOOG 

192  000102 

001403 

193  000104 

005002 

194  000106 

195  000112 

196 

197  0001K 

012700 

000674' 

198  000120 

016705 

OOOOOOG 

199  000121 

122025 

200  000126 

001005 

201  000130 

122025 

202  000132 

001004 

203  0001 34 

204  OOOUO 

000736 

205  000142 

105721 

206  000144 

005  ?  2' > 

207  000146 

001 jC' 

208 

209 

210  000150 

211  000200 

212  000230 

213  000260 

214  000310 

215  000340 

216  000370 

217  000420 

218  000450 

219  000500 

220  000530 

221  000560 

222  000610 

223  000640 

224  000670 

225 

226  000674 

000167 

177142 

107 

126 

227  000676 

001052' 

228  000700 

107 

122 
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.SBTTL  SVTST  -  VNP  TESTING  ROUTINES 

INPUTS: 

NONE. 

OUTPUTS: 

COMMANDS  PERFORMED  AS  REQUESTED. 


SVTST:: 
TST: 


EXIT: 


1$: 

5$: 
lOS: 


19S: 
20$: 


.ENA8L  LSB 


QREAD 

8CS 

BJT 

BNE 

CALL 

BR 

BIC 

BIT 

BEQ 

CLR 

CALL 

RETURN 

MOV 

MOV 

CMPB 

BNE 

CMPB 

BNE 

CALL 

BR 

TSTB 

TST 

BNE 

.DSABL 

TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
TYPES 
JMP 


VECTOR:  .ASCII 
.WORD 
.ASCII 


<VDT> 

EXIT 

*VF.VDT,$VFLAG 

5S 

BUFOU 

5S 

#VF.VD 

*fE.CE 

1$ 

R2 

SVIMI 


T,SVFLAG 
X.SFMASK 


IF  CS,  EOF 

SHOULD  BUFFERS  BE  OUTPUT? 

NO  IF  NE 

YES,  SO  OUTPUT  BUFFERS 

CLEAR  BIT  SO  WILL  OUTPUT  NEXT  TIME 

DO  WE  NEED  TO  READ  THE  IMAGE  BACK  IN 

IF  EQ,  NO 

NO  RELOCATION  BIAS 

ELSE,  READ  IN  IMAGE 


*VECTOR,RO 

SCLBUF,R5 

(R0)+,(R5)+ 


19$ 

(R0)+, 

20$ 

a(R0) 

TST 

(RO)t 

(R0)  + 

10$ 

LS8 

<CHO0S 
<GV  - 
<Gfi  - 
<GA  - 
<PR  - 
<PA  - 
<A6  - 
<A2  - 
<D6  - 
<D2  - 
<D8  - 
<DW  - 
<M0  - 
<0D  - 
TST 

/GV/ 

GETRV 

/GR/ 


(R5)  + 


E  ONE  OF  THE  FOLLOWING  FUNCTIONS :>,DS 

GETRV  (GET  16BIT  ADDRESS)>,DS 

GETRC  (GET  1681T  VIRTUAL  ADDRESS)> 

GETAD  (GET  22BIT  ADDRESS)> 

PUTRC  (PUT  16BIT  VIRTUAL  ADORESS)> 

PUTAD  (PUT  22BIT  ADDRESS)> 

ALL16  (ALLOCATE  DSR)> 

ALL22  (ALLOCATE  NTPOOL  STORAGE)> 

DEA16  (DEALLOCATE  168IT  ADDRESS)> 

DEA22  (DEALLOCATE  22BIT  ADDRESS)> 

DUMP  BYTES> 

DUMP  WORDS> 

MODIFY> 

ODT> 


M  11 


n-.-.«   i_1 


L 
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k  12 

05:09 


55 

56 

57 

58 

59 

60 

61 

62 

63  000000 

6A 

65 

66 

67 

68 

69  000000 

70 

71 

72 

73 

74  000000 

75  OOOOU 
76 

77 
78 
79 
80 
81 
82  000000 


170200 


LIBRARY  MACROS 

.MCALL  GETRV,PUTRC,SC8DF$,SWTCHI,SWTCH0,PUTAD,GETAD 


**  * 

LIBRARY  SYMBOLS 
*  ** 

SC8DF$ 

•  *** 

;  LOCAL  DATA 

•  **  * 


UMR  BLOCK  OFFSETS 


.PSECT  DATA.D 
LOCAL  COPIES  Of  PREVIOUS  AND  NEXT  UMR  BLOCKS 


PREV: 
NEXT: 


.BLKW   M.LGTH/2 
.BLKW   M.LGTH/2 


^IRST  UNIBUS  MAPPING  REGISTER  ADDRESS 
U8MPR=1 70200 
.PSECT 
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105 
106 
107 
108 
109  000000 

.HCALL 

SWTCHI, SWTCHO 

.ENABL 

LCLSB 

$VUN8: 

110  000000 

004567 

OOOOOOG 

JSR 

R5,$SAVRG 

111  OOOOOA 

005077 

OOOOOOG 

CLR 

a$ADRZ 

112  000010 

010205 

MOV 

R2,R5 
52i 

113  000012 

001427 

BEQ 

IK  OOOOK 

0110^^7 

OOOOOOG 

MOV 

(RO),a$ADRX 

115  000020 

027767 

OOOOOOG  OOOOOOG 

CMP 

S$ADRX,$UNBAD 

116  000026 

117 

118  000030 

001024 

BNE 

53$ 

020227 

177702G 

50$: 

CMP 

R2,#$UNBLK-62 

loh 

119  00003'!. 

103545 

BLO 

120  000036 

060102 

ADD 

R1,R2 

121  OOOOAO 

010203 

MOV 

R2,R3 

122  0000'i2 

060103 

ADD 

R1,R3 

123  0OO0A4 

022703 

OOOOOOG 

CMP 

#$UNEND,R3 

124  000050 

103037 

BHIS 

60$ 

125  000052 

012700 

OOOOOOG 

MOV 

#$UNBAD,RO 

126  000056 

016777 

OOOOOOG  OOOOOOG 

MOV 

$UNBLK,a$ADRX 

127  000064 

001005 

BNE 

53$ 

128  000066 

005705 

TST 

R5 

129  000070 

001025 

BNE 

55$ 

130  000072 

52$: 

CALL 

LINK 

131  000076 

000416 

BR 

54$ 

132  000100 

53$: 

SUTCHI 

#$UNBLK 

133  000106 

SWTCHO 

#$UN8LK 

13A  0001 K 

017767 

OOOOOOG  OOOOOOG 

MOV 

a$ADRX,$UNBAD 

135  000122 

GETAD 

,*64. 

136  000134 

012702 

000002G 

54$: 

MOV 

#$UNBLK+2,R2 

137  000140 

160102 

SUB 

R1,R2 
50i 

138  000142 

000732 

BR 

139  000144 

005002 

55$: 

CLR 

R2 

140  000146 

000261 

SEC 

141 

142  000150 

60$: 

SWTCHI 

143  000156 

SWTCHO 

144 

145  000164 

RETURN 

SWTCHI, SWTCHO, GE TAD, PUTAD,ERMSG$,ERBLK$,ERRPT$ 


SAVE  R3,R4,R5 

ZERO  THIS  HALF 

SAVE  ADDRESS  FLAG 

IF  ZERO,  GO  ALLOCATE  NEW  BLOCK 

DESIRED  ADDRESS 

IS  CURRE^'T  BLOCK  THE  DESIRED  ONE  ? 

NO 

IS  ADDRESS  LEGAL  ? 
NO 

increment  to  next  segment  address 
copy  tentative  segment  address 
does  segment  extend  past  e08  ? 

no' 

point  at  desired  block  address 

link  to  next  block 

no  next  block 

is  a  new  block  to  be  appended  ? 

NO 

CREATE  NEW  LINK 

SET  UP  BUFFER  POINTERS 

STORE  ADRRESS  FOR  REFERENCE 

READ  IN  BLOCK  IMAGE 

SET  STARTING  ADDRESS 

MINUS  SEGMENT  SIZE 

AND  RESTART 

SIGNAL  NO  NEXT  SEGMENT 


REASSIGN 
DEFAULT  BUFFERS 


r 
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296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3H  000152 

315  000160 

316  000162 

317  000170 

318  000172 

319  000200 

320  000202 

321  000206 

322  000210 

323  000226 
32A  000234 

325  000236 

326  000244 

327  000246 
328 

329  000252 

330  000256 

331  000260 

332  000264 
333 

334  000266 

335  000304 

336  000312 

337  0003U 

338  000322 

339  000324 
340 

'41  000326 

342  000334 

343  000336 

344  000344 

345  000346 
346 

347  000550 

348  C00352 

349  000354 
350 

351  000360 

352  000364 


032767 
001477 
032764 
001473 
016767 
005001 
016700 
001460 

022767 
001034 
022767 
001030 
016700 

016701 
001003 
010067 
000746 


26$: 


25$: 


OOOOOOG  OOOOOOG  5$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG        1$: 

026226  000004G 

000000  000006G 

0000006 

OOOOIOG        4$: 

OOOOOOG 


026767 
001357 
022767 
001353 
000411 

022767 
001322 
022767 
001316 
000404 

010100 
001402 


6$: 

OOOOOOG  000004G 

050l70  000006G 

055260  000004G  2$: 
060044  000006G 

3$: 


016400  OOOOOOG 
001454 


XDLC: 


GETRV 

CMP 

BEQ 

MOV 

BR 

CMP 
BNE 
MOV 
BR 

SWTCH] 
SWTCHO 
CLC 
PUTRC 

.ENDC 

BIT 

BEQ 

BIT 

BEQ 

MOV 

CLR 

MOV 

BEQ 

GETRV 

CMP 

BNE 

CMP 

BNE 

MOV 

MOV 
BNE 
MOV 
BR 

GETRV 

CMP 

BNE 

CMP 

BNE 

BR 

CMP 
BNE 
CMP 
BNE 
BR 

MOV 
BEQ 
CALL 

MOV 
BEQ 


R0,#2 

RO.Rl 

2bi 

R0,R2 

27t 

$CTLST,RO 
25$ 

$BFR,$CT1ST 
5$ 


R2,#2 


READ  CTB 

IS  THIS  OUR  CTB  ? 

IF  YES  -  BRANCH 

IF  NO  -  copy  PREVIOUS  ADDRESS 

CONTINUE 

UPDATE  LISTHEAD  ? 
IF  NO  BRANCH 
UPDATE  LISTHEAD 
CONTINUE 


;  DELETE  OUT  CTB  FROM  LIST 


;[MP01] 


#VF.SS,$VFLAG   ;  IIS  SYSTEM  ? 

XDLC  ;  IF  NO  -  BRANCH 

#ZF.LMC,Z.FLG(R45  ;  RELEASE  MICROCODE  PARTITION  ? 

XDLC  ;  IF  NO  -  BRANCH 

$PARHD,$BFR     ;  CHECK  IF  SERVER  BASE 

R1  ;  INIT  PCe  ADDRESS 

$BFR,RO        ;  GET  NEXT  PCB  ADDRESS 

3$  ;  IF  END  OF  LIST  -  NOT  SERVER  BASE 

RO,.PLGTH       ;  READ  PCB 

#*RGEN,P.NAMt$BFR  ;  CHECK  FOR  MAIN  PARTITION 

2$  ;  ... 

#*R   ,P.NAM+2t$BFR  ;  . . . 

2$  ;  IF  NO  MATCH  -  BRANCH 

$BFR,RO        ;  SAVE  NEXT  PCB  ADDRESS 

P.SU8t$BFR,Rl  ;  GET  NEXT  SU6-PAr<  r  ITION  ADDRESS 

6$  ;  IF  NOT  END  OF  LIS'  -  BRANCH 

R0,$8FR  ;  RESTORE  NEXT  MAIN  PCB  ADDRESS 

1$  ;  CONTINUE 

R1,.PLGTH       ;  READ  PCB 

$NAME,P.NAMt$8FR  ;  MATCH  ? 

4$  ;  IF  NO  -  BRANCH 

#*RMC,P.NAMt2+$BFR  ;  MATCH  ? 

4$  ;  IF  NO  -  BRANCH 

3$ 

#''RNTP,P.NAM+$BFR  ;  MATCH  ? 

1$  ;  IF  NO  -  BRANCH 

#''R00L,P.NAMt2  +  $BFR  ;  MATCH 


1$ 
XDLC 

Rl.RO 

XDLC 

$XPAR 

7.PC6(R4),R0 
101$ 


IF  NO  -  BRANCH 

IF  YES  -  SERVER  BASE  SYSTEM 

DEALLOCATE  MICROCODE  PARTITION 
THIS  BRANCH  SHOULD  NEVER  OCCUR 


GET  PCB  ADDRESS 

IF  NO  PCB,  LOGIC  ERROR 


M  U 
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812 

813 

81A 

815 

816 

817 

818 

819 

820 

821 

822 

825 

82A 

825  0021 7A 

826 

827  002200 

828 

829 

830 

831 

832 

835  002216 

83A 

835 

856  002222 
857 

838 

859 

8A0 

8'<1 

8A2 

8A5 

8AA 

8A5  002256 

8A6  0022AA 

847  0022A6 

8A8  00225A 

8A9  002256 

850  002262 

851 

852  00226A 

855 

85A 

855 

856 

857  002266 

858  002270 

859  002272 

860  C02276 

861  002502 

862  002506 
865  002510 

864  002516 

865  002520 

866  002326 
86?  002550 

863  C02332 


.S8TIL  FNDADD  -  FIND  LINE  TABLE  ADDRESS 

FNDADD  -  FIND  LINE  TABLE  ADDRESS 

INPUTS; 

R5  =  VECTOR  ADDRESS 

OUTPUTS: 

R3  =  LINE  TABLE  ADDRESS 
RO  =  DESTROYED 


016700  OOOOOOG 


016705  OOOOOOG 


FNDADD 


022760 
001A06 
022760 
001005 
016005 


005000 
005001 
005067 
016702 
01670A 
012.-05 
052765 
001A20 
126565 
001001 
005200 
126365 


5$: 


004537 
000157 
177776G 


177774G 
177774G 


10$; 
101$: 


SCAN: 


000004' 
OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


10$: 


OOOOOOG  OOOOOOG  20$: 


MOV  $IC8LN,R0 

.IF  NDF  R$$MPL 

GETRV  R3,*4 

.IFF 

GETAD  R5,#4 


.ENDC 
MOV 


$BFft,R3 


.JF  NDF  R$$MPL 
GETRV   R5,R0 


■  IFF 

BIT 

BNE 

MOV 

GETAD 

.ENDC 

CMP 
BEQ 
CMP 
BNE 
MOV 
RETURN 

CRASH 


#DF.DAS,$DFLAG 

5$ 

#IC81,R0 

R5,R0 


GET  uENGTH  OF  AN  KB 
GET  VECTOR  LOCATION 
GET  VECTOR  LOCATION 

;  ASSUME  THIS  IS  THE  LINE  TABLE 

;  READ  IN  KB  OR  LINE  TABLE 

;  0-SPACE  SYSTEM  ? 

;  IF  YES  -  BRANCH 

;  SET  UP  I-SPACE  KB  SIZE 

;  READ  IN  KB 


;[MP01] 

;[MP01] 
;CHP013 


;[MP01] 

.-CMPOI] 
.-CMPOl] 
; CMPOI] 
.-CMPOI] 
; CMPOI] 

.•CMPOI] 


#4537,$BFR-4(R0) 

10$ 

#157,$BFR-4(R0) 

101$ 

$BFR-2(R0),R5 


;  IF  "JSR  R5,X",  THEN  THIS  IS  LINE  TABLE 
..ADDRESS 

IF  "JMP  LINE-TABLE"  THEN  LINE  TABLE  ADDRESS 
..IS  NEXT  WORD,  ELSE  ERROR 
RETURN  REAL  LINE  TABLE  ADDRESS 


WHAT  IS  R2  POINTING  AT  ?? 


SCAN  SLT  FOR  ACTIVITY 


CLR  RO 

CLR  Rl 

CLR  UNITS 

MOV  $SLTMA,R2 

MOV  $SLTNM,R4 

MOV  (R2)*,R3       , 

BIT  #LF.RDY,L.FLG(R5) 

BEQ  50$ 

CMP8  L.DLC(R5),L 

BNE  20$ 

INC  RO  ,  .o...  ., 

CMPB  L.DDM(R5),L.DDM(R5)  ;  SAME  DDM  AS  OURS? 


OTHER  READY  LINES  USING  THIS  DLC 
OTHER  READY  LINES  USING  THIS  DDM 
OTHER  READr  LINES  ON  THIS  CONTROLLER 
GET  SLT  MAPPING  TABLE  ADDRESS 
GET  NUMBER  OF  SLT'S 
GET  NEXT  SLT 
;  IS  THIS  LINE  READY? 
,  IF  EO,  NO 
DLC(ft5)  ;  SAME  DLC  AS  OURS? 
;  IF  NE,  NO 
TALLY  IT 
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135^  00'.254 

1355  OOA256 

1356 

135^  00A262 

1358 

1359  004266 

1360  00A272 

1361  004276 
1362 

1363  004302 

1364  004306 
1565 

1366  004512 
1567  004516 

1368  004522 

1369  004524 
1570 

1571  004530 
1372  004354 
1575  004556 

1574  004542 

1575  004544 
1376  004550 
1577 

1378 

1379  004550 

1580  004554 

1581 

1382 

1585 

1584 

1585 

1586  004  560 

1587  004566 

1588  004572 

1389  004574 

1390  004400 
1591 

1592 

1395  004404 

1394  004410 

1595 

1596 

1597 

1598 

1599 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 


001402 


005067  OOOOOOG 


57$: 


016700 
016701 


016702 
016705 

016700 

105002 


016700 
001405 

105002 


OOOOOOC 
OOOOOOC 


000002G 
000004G 

OOOOOOG 


OOOOOOC 


58$: 


465$: 


59$: 


016700  OOOOOOC 


BEQ 

CALL 

CLR 

MOV 
MOV 
CALL 

MOV 
MOV 

MOV 
CALL 
BCC 
CALLR 

MOV 

BEQ 

CALL 

BCC 

CALLR 


.JF 
MOV 
CALL 
.ENDC 


57$ 
$XSNA 

$CXOPT 


$NTLHBt.CXALL,RO 
$NTLHB+.CXLEN,R1 
$DEA16 

$NTLH8t2,R2 
$NTLHB»4,R5 

$NrLHB,RO 

$XPAR 

465$ 

101$  ; 

$NTLHB+.SBPC8,R0 

59$ 

$XPAR 

59$ 

101$ 


NDf ,fi$$MPL 

.CXPCBt$NTLHB,RO 

$XPAR 


;  Br  if  no 

;  Else  unload  SNA 

;  NO  COMM  EXEC  OPTIONS  SET  NOW 

;  GET  CETAB  ALLOCATION 
;  AND  LENGTH 
DEALLOCATE  THE  CETAB  ALLOCATION 


042767 
016700 
001404 
012701 


OOOOOOG 
OOOOOOG 

000104 


OOOOOOG 


DEALLOCATE  DECNET  HOME  BLOCK 


005067  OOOOOOG 


61$: 


60$: 


BIC 
MOV 
BEQ 
MOV 
CALL 


CLR 
PUTfiC 

.IF 

MOV 

BLE 

MOV 

MOV 

DEC 

ASL 

ADD 

SWTCHI 

GETRV 

SWTCHI 

MOV 

MOV 

GETAD 

SWTCHI 


*FE.CEX,$FMASK 

$DECPT,RO 

61$ 

*D$END,R1 

$DEA16 


$8FR 
.NETPF,#2 

DF,R$$MPL 

.MPRO.RO 

65$ 

R0,R2 

RO,-(SP) 

R2 

R2 

.K6TAB,R2 

#$CP8IA 

R2,#2 

#UMRPTR 

$CP8IA,$RBLCK 

.UMRPT,R2 

R2,#2 


NTPOOL  UMR  BLOCK 
$DEUMR  ADDRESS  IN  R3 

NTPOOL  PCB  ADDRESS 
RELEASE  NTPOOL  PARTITION 
IF  CC  -  OK 
GO  CRASH 

;  GET  SERVER  BASE  POOL  PCS 
IF  NONE  BRANCH 
DEALLOCATE  PCB 
IF  FAILURE  -  BRANCH 
GO  CRASH 


GET  CEX  PCB  ADDRESS 
RELEASE  CEX  FROM  ITS  PARTITION 


COMM  EXEC  NOT  IN  MEMORY 

GET  HO^E  BLOCK  ADDRESS 

IF  NONE  -  BRANCH 

GET  SIZE 

DEALLOCATE  BLOCK  FROM  DSR 


CLEAR  ADDRESS  OF  POWERFAIL  ROUTINE 


GET  NUMBER  OF  PROCESSORS 

BR  IF  SINGLE  PROCESSOR  SYSTEM 

COPY  PROCESSOR  NUMBER 

SAVE  PROCESSOR  NUMBER 

MAKE  PROCESSOR  NUMBER  A  ZERO  OFFSET 

MAKE  IT  INTO  A  WORD  INDEX 

POINT  INTO  CPU  AREA  TABLE 

SET  TO  READ  INTO  CPU  AREA  BIAS  ARGUMENT 

GET  BIAS  OF  CPU'S  AREA 

SET  TO  READ  INTO  THE  UMR  POINTER 

RESET  THE  APR5  BIAS 

GET  THE  UMR  BLOCK  POINTER  OFFSET 

GET  THE  UMR  BLOCK  POINTER  FOR  THE  CPU 

RESET  TO  STANDARD  INPUT  BUFFER 
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S»MBCL 

OPSLOC 

OPtLST 

OPtLTW 

OPSLVL 

OP$MAC 

QPtMCO 

OPtMCE 

OP$ML I 

OPSMGN 

OPtWS' 

OPtNAM 

OP$NE  T 

OPtNL I 

OPSNOD 

OPtOL'T 

C  SOWN 

OPtPAR 

OPSI-RI 

OPSRET 

OPtRPA 

r  nsCO 

OPtSEG 

OPtSEB 

OPSSIN 

OPSSTA 

OPSTPA 

OPSTRi 

OP$UCS 

OPSUSE 

OPSVEC 

OPIVER 

OPSXAr 

OPtXOR 

0P$X55 

0P$X9S 

PBT'S 

PD'.'A 

SDvX 

PSILD 

QFtACT 

OFSALL 

QFttCNO 

QFtLOG 

REf^ 


REP^A 
REP '6 
RN'I 
ROB 

r»$e;s 


VALUE 

=  000001 
=  000002 
=  000001 
=  000010 
=  000010 
=  000002 
=  OOOAOO 
=  OOOOOi 
=  0001C0 
=  000020 
=  OOOOOA 
=  OOAOOO 
=  000002 
=  000020 
=  CC2000 
=  000020 

-  000010 
=  000010 

-  010000 
=  000010 
=  000001 
=  OOOAOO 
^  000400 
r  000010 
=  OOOOOA 

-  000020 
=  OOOOAC 
=  000020 
=  000002 

-  OOOOAO 
=  OOOOAO 
=  00000' 
=  000002 
=  000004 
r  00001 0 

000356 

0004 7A 

000246 

000216 

=  OCOOCl 

=  000002 

'--   0000G4 

=  0000 10 

005344 


003346  s 
0034  56  R 
000 '62  6 

n     ......        G» 


REFERENCES 

#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#7-192 

6-118 
#7-178 

6-141 
#5-63 
#5-63 
#5-63 
#5-63 

8-209 

8-218 

8-230 

32-1193 

8-223 

8-225 

6-161 
•14-44' 

20-685 


#5-63 


#5-63 
14-396 


14-396 


14-396 


14-396 


17-554 
6-128 
14-410 
6-147 


8-210 

8-219 

8-231 

33-1226 
#32-1192 
#34-1250 
#11-337 

18-568 


VS 

MA 


CA 
PU 
RA 
RE 
SW 
SW 


#5-63 
14-404 


#15-467 
»19-597 
#13-372 


8-211 
8-220 
8-232 

34-1251 


24-901 


8-212 
8-221 
8-253 


•28-1062    29-1093 


8-213 
8-222 
8-254 


8-214 
8-226 
8-235 


8-215 
8-227 
8-236 


8-216 
8-228 
8-237 


8-217 

8-229 

#31-1176 


PRFATCn   P.¥      MACSn      ON   30-Jill-85   AT    10:55 


PAGE   6 
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r 


L 
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M     2 

PAGE   2 

CREF       O'l.OO 


vs 

SE 


n<\CRT  NAME 

CALL 

PUT  AD 

RAND 

RETURN 

SWTCHI 

SWTCHO 


REFERENCES 

5-83 
»5-72 
#5-105 

5-1K 
#5-72 
#5-72 


5-103 
5-103 
5-103 

5-113 
5-102 


5-112 


L 
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L 
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VSTB  -  VNP  COMMAN 

SET  COMMAND 

A65 

464 

465 

466 

000000 

467 

000000 

468 

469 

470 

471 

000000 

472 

000000 

473 

000000 

474 

475 

476 

477 

000000 

478 

000000 

479 

480 

000000 

481 

000000 

482 

000000 

483 

484 

485 

486 

000000 

487 

000000 

488 

000000 

489 

000000 

490 

000000 

491 

492 

493 

494 

000000 

495 

000000 

496 

000000 

497 

498 

000000 

499 

000000 

500 

000000 

501 

502 

503 

504 

000000 

505 

000000 

506 

000000 

507 

000000 

508 

000000 

509 

510 

511 

512 

000000 

515 

000000 

514 

000000 

515 

000000 
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VS 
EN 


;  SET  MODULE 

STATES 
TRANS 

SEMO.SPSSEMO 
SLAMDA, 

SEM0X5 

;   SET  MODULE 

X25-SERVER  OPTIONS 

STATES 
TRANS 
TRANS 

SEM0X5 
I0PX5ST, 
SLAMDA, 

SEM0X5 
DONE 

;  SET  OBJECT 

STATES 
TRANS 

SEOB.SPSSEOB 
ISEOBOP 

STATES 
TRANS 
TRANS 

SE0B1 
SEOS, 
iSEOBOP, 

DONE 
SE0B1 

;•    SET  OBJECT 

OPTIONS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 

SEOBOP 
lOPOBNA, 
lOPCOP, 
iOPUSE, 
1 0P08VE , 

SEXIT, 
SEXIT, 
SEXIT, 
SEXIT, 

'•  SET  PROCESS 

STATES 
TRANS 
TRANS 

SEPR,8PSSEPR 
8K$ALL,  DONE 
ISEPRuP 

STATES 
TRANS 
TRANS 

SEPR1 
SEOS, 
ISEPROP, 

DONE 
SEPR1 

;    SET  PROCESS  OPTIONS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 

SEPROP 

.'OPLOC, 

lOPMXCO, 

iOPMXLI, 

lOPPAR, 

SEXIT, 
SEXIT, 
SEXIT, 
SEXIT, 

;  SET  SYSTEM 

STATES 
TRANS 
TRANS 
TRANS 

SEsy 

&KSALL, 
8KSECH, 
SLAMDA, 

SESY 

SESY, 

DONE 

$IFX5S 


OPSMST, 


SOPTON 


OPSNAM, 

SOPTON 

OPSCOP, 

SOPTON 

OPSUSE, 

SOPTON 

OPSLVL, 

SOPTON 

OPSLOC, 

SOPTON 

OPSMCO, 

SOPTON 

OPSMLI, 

SOPTON 

OPSPAR, 

SOPTON 

VF.ECH, 


SVfLAG 


i/cTB  -  uwp  rnrnMAwri  PRnrF<;';iNn   <; 
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ENTITY   OPTION   SUBEXPRESSIONS 


PE 


1127 

1128 

1129 

1150 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1U0 

1U1 

1U2 

1U3 

1U4 

1U5 

1U6 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 


000000 
OOOOfO 

oooon 

000000 
000000 


000000 
000000 

cooooo 

000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 


LOGGING  STATE 

STATES  OPLGST 

TRANS  8KSSTAE 

STATES  .KPSLOST 

TRANS  &KSOFF, 

TRANS  &K$ON, 

MODULE  X25-SERVER  STATE 

STATES  0PX5ST 

TRANS  6KSSTAE 

STATES  ,£PSX5ST 

TRANS  inoff, 

TRANS  &KSON, 

MULTIPOINT  ACTIVE 

STATES  OPMACT 

TRANS  SKSMUL 

STATES  .BPSMUL 

TRANS  SKSACT 

STATES  .SPSACT 

TRANS  SDNUMB , 

MAXIMUM  CONTROLLERS 

STATES  OPMXCO 

TRANS  8KSMAX 

STATES  .SPSMAX 

TRANS  &KSCONS 

STATES  ,6PSMXC0 

TRANS  SDNUMB, 

MAXIMUM  LINES 

STATES  OPMXLI 

TRANS  &KSMAX 

STATES  ,&PSMAX 

TRANS  SKSLINS 

STATES  .SPSMXLI 

TRANS  SDNUMB, 

MULTIPOINT  DEAD 

STATES  OPMDEA 

TRANS  &KSMUL 

STATES  ,&PSMUL 

TRANS  SKSDEA 

STATES  ,8PSDEA 

TRANS  SDNUMB, 

NODP  ADDRESS 

STATES  OPADD 
'RANS    KKSADD 


SEXIT 
SEXIT, 


SEXIT 
SEXIT, 


VF.ON, 


VF.ON. 


SVFLAG 


SVFLAG 


SEXIT, 


SMACT 


SEXIT, 


SMXCO, 


LS.OPT, 


RQBST 


SEXIT, 


SMXLI, 


LS.OPT, 


RQBST 


SEXIT, 


SMDEA 


/cTO  -.  i/WD  rnMMikin  DDnrpc;<;  IMr,  <:  MirBn  uOS  n3h  i^at-iirHav  29- 
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PEMSTA  -  ACTION  ROUTINE  FOR  THE  PROTOCOL  EMULATOR  STATE 


Page  20 


16^6 
16^7 
16A8 
16^9 
1650 
1651 
1652 
1655 
165A 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
166A 
1665 
1666 


CHECK  AHEAD  IN  INPUT  LINE  FOR  SLASH,  UNDERSCORE  OR  DOUBLE  COLON  TO  END 
DESTINATION  STRING 


000062 

000062 
000064 
000066 
000072 
000074 
000100 
000102 
000106 
000110 
000116 
000120 
000120 
000124 

000124 


DSTR.E: 


005703 
003415 
121427 
001414 
121427 
001411 
121427 
001004 
126427 
001402 


062716  000002 


IF  INPUT  LENGTH  <=  0  OR  NEXT  INPUT  CHARACTER  <>  /  OR 


OR 


000057 
000137 
000072 
000001  000072 


10$:; 
20$:; 


TST 

R3 

BLE 

10$ 

CMPB 

(R4),#^'/> 

BEQ 

20$ 

CMP8 

{R4),#<'  > 

BEQ 

20$ 

CMPB 

(R4),*<':> 

BNE 

10$ 

CMP8 

1(R4),#<':> 

BEQ 

20$ 

THEN 

ADD 

#2,(SP) 

ENDIF 

/ 


CHECK  INPUT  LENGTH 

TRUE  IF  INPUT  LENGTH  <=  0 

COMPARE  NEXT  CHARACTER  TO  ASCII 

FALSE  If  CHARACTER  =  ASCII  / 

COMPARE  NEXT  CHARACTER  TO  ASCII  . 

FALSE  IF  CHARACTER  =  ASCII 

COMPARE  NEXT  CHARACTER  TO  ASCII  : 

TRUE  IF  CHARACTER  <>  ASCII  : 

COMPARE  AFTER  NEXT  CHARACTER  TO  ASCII 

FALSE  IF  TWO  NEXT  CHARACTERS  =  ASCII  : 

;REJECT  TRANSITION 


RETURN 


i/AC   A7U 
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SYMBOL  CROSS  REFERENCE  CREF   04.00 

SYMBOL  VALUE  REFERENCES 

$XTRI   =  *..♦»*  G  5-99 

$XUNT   =  .*»**«  G  5-101 

$$$FLG     =   177777  #6-108 

*PFLAG     =  ♦*•••♦     G  *5-85^           »17-1596       *17-1603       *^&-^b?0       «18-  624 
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Symbol  table 

Work      f 1 le  wri tes;  0 

Size  of   work   file:  12727  Words      (    50  Pages) 

Size  of   core  pool;  U^AO  Words      (   55  Pages) 

Operating     system:  RSX-11M/PLUS 
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VTMP  -  VNP  TEMPLATE  PROCESSING 
$TMP  -  TEMPLATE  FILE  PROCESSOR 


207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223  000000 

22A  000000 

225  00000^ 

226  000010 

227  000012 

228  000016 
229 

230  000022 
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.SBTTL  SIMP  -  TEMPLATE  FILE  PROCESSOR 

STMP  -  TEMPLATE  FILE  PROCESSOR 

THIS  ROUTINE  IS  CALLED  TO  PROCESS  THE  TEMPLATE  FILE  AND  TO  LOAD  THE 
DATA  BASE  INTO  CORE. 


INPUTS: 

$BIAS=PROCESS  RELOCATION 
$$CrR=CSR  ADDRESS 
$$PRI=]NTERRUPT  PRIORITY 
$$VECT=INTERRUPT  VECTOR 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 


BIAS 


005067     000014' 
103420 


ItMP:: 


231  000026 

232  000032 
233 

234  000036 
235 

236  000042 

237  000046 

238  000052 

239  000056 

240  000064 
241 

242 
243 
244 

245  000066 

246  000072 

247  000076 

248  000104 

249  000112 

250  000116 

251  000122 

252  000126 

253  000130 

254  000136 

255  000140 

256  000144 

257  000146 

258  000152 

259  000156 

260  000162 

261  000164 

262  000170 

263  000(76 


006167  000000' 


10$: 


CLR 

CALL 

BCS 

CALL 

CALL 

CALL 
CALL 
CALL 

CALL 

CALL 

CALL 

ROL 

SUTCHO 

RETURN 


SSADDR 

STM.IN 

10$ 

$TPARS 

$TMFIL 

$TMCHK 
$TMALT 
$VEXP 

$TMVCT 

STMLTA 
IMGRES 
$FLAG1 


PROCESS  TEMPLATE  FILE 


016746 
062767 
016777 
005067 
005067 

103426 
032767 
001402 

005001 
012702 
012705 

103002 

032767 
001745 


iTMFIL: 
000002' 

000002  000036' 
000012'  000036' 
000002'        10$: 
000276' 


OOOOOOG  OOOOOOG 


0000006 
OOOOOOG 


15$: 


000002  0000C2'  20$: 


CALL 

MOV 

ADD 

MOV 

CLR 

CLR 

CALL 

BCS 

BIT 

BEQ 

CALL 

CLR 

MOV 

MOV 

CALL 

BCC 

CALL 

BIT 

BEQ 


$SAVAL 

$FLAG2,-(SP) 

#2,$SZPTR 

$SIZE,a$SZPTR 

$FLAG2 

$VALUE 

TM.RD 

30$ 

#FL.ECH,$FLAGS 

15$ 

$ELINE 

Rl 

#$TMPKU,R2 

#$TMPST,R5 

.TPARS 

20$ 

ERR$9 

#F2.END.$FLAG2 

10$ 


NO  LINE  TABLE  YET 

INITIALIZE  COUNTERS,  OPEN  PRIMARY  TEMPLATE 

IF  CS,  OPEN  FAILURE  OR  NOTHING  TO  DO 

LOAD  TPARS  TABLES 

PROCESS  TEMPLATE  FILE 

CHECK  FOR  DDM  INTERRUPT  LINKAGE  ERROR 

ALLOCATE  DATA  BASE  (VALT) 

EXPAND  BINARY  INFORMATION  (TMPEXP. .VEX2) 

SETUP  DDM  VECTOR(S)  (VVCT) 

STORE  LINE  TABLE  ADDRESS  (VVCT) 
WRITE  IMAGES  TO  SYSTEM  IMAGE  FILE 
INTO  THE  C-BIT 
POINT  BACK  AT  DEFAULT  BUFFER 


SAVE  ALL  REGISTERS 

SAVE  $FLAG2 

ADJUST  SIZE  POINTER  FOR  NEW  DEPTH 

SAVE  CURRENT  VALUE  OF  $SIZE 

CLEAR  LINE  FLAGS 

CLEAR  EXPRESSION  VALUE 

READ  1  LINE  FROM  TEMPLATE  FILE 

IF  CS,  END  OF  FILE 

IS  ECHO  ENABLED? 

IF  EQ,  NO 

PRINT  TEMPLATE  LINE 

PARSE  THE  INPUT  LINE 


IF  CC,  NO  PROBLEM 

SYNTAX  ERROR 

".END"  SEEN  YET? 

IF  EQ,  NO  -  GET  NEXT  LINE 


1  ._  oc  m  .  no 
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Symbol  table 
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A$$CHK  = 

A$$CPS= 

A$$PR1= 

A$$TRP= 

BUFCK 

C$SCKP= 

C$$ORE= 

C$tRSH= 

D$$BUG= 

o$$isk;= 

D$$L11= 

D$$YNC= 

D$$YNM= 

EPFX 

ERRBUF 

ERRMSG 

ERR$10= 

ERR$11= 

ERR$12= 

ERR$9  = 

ERRl 

E$$XPR= 

FATAL  = 

FL.DDM= 

FL.DLC= 

FL.ECH= 

FL.LLC= 

FMT2 

FM.2   = 

F$$LVL= 

F.NRBD= 

F.R5IZ= 

F1.BB0= 

F1.ERR= 

F1.INT= 

F1.IN1= 

F1.IN2- 

F1.IN3= 

F1.lFI= 

FI.LFLr 

F1.MPL= 

F1.MPT= 


000000 

000000 

000000 

000000 

000560R 

000000 

OOOAOO 

177561 

1775H 

000000 

000001 

000000 

000000 

00071 3R 

000565R 

000560R 

GX 
GX 
GX 
GX 

001050R 

000000 

»»*♦*♦  GX 
GX 
GX 

»♦*»*«  GX 

»♦*»»»  GX 

001154R 

000000 

000001 

****** 


****** 


****** 
****** 


****** 


000001 
100000 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 


.  ABS.  000000 
001576 
DATA    001171 
Errors  detected: 


F1.MXT= 
F1.STE= 
F1.UMR= 
F1.VSE= 
F2.8YT= 
F2.END= 
F2.FIL= 
F2.LBR= 
F2.NEG= 
F2.SUB= 
G$$TPP= 
G$$TSS= 

g$$ttk;= 

002  G$$WRD= 
002  IE.EOF= 
002  IE.RBG= 
INGRES 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
002  L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV 
N$$Mf 
N$$ML 
N$$MOV= 
N$$NCT= 
N$$PEM= 


001000 
002000 
004000 
010000 
000001 
000002 
000004 
000010 
000020 
000040 
000000 
000000 
000000 
000000 

****** 

****** 

000240R" 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 


GX 
GX 


000 
001 
002 
0 


(RU,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


'*♦  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system; 


0 

0 

10881  Words  (  43  Pages) 

14440  Words  (  '5  Pages) 

RSX-11M/PLUS 


EJaDsed  time:  00:00:22.21 


P$$P45= 

000000 

$ERR21 

000766R 

002 

$RSIZE= 

******  GX 

P$$WRD= 

000000 

$ERR79 

001014R 

002 

SSADDR 

000014RG 

002 

Q$$0PT= 

000010 

$ERR82 

001042R 

002 

SSAVAL= 

******  GX 

R$$DER= 

000000 

$ERR83 

001110R 

002 

SSAVVR= 

******  GX 

R$$K11= 

000001 

SEVEN 

001312RG 

SSIZE 

000012RG 

002 

R$$SND= 

000000 

SFILEN 

000302RG 

002 

SSZPTR 

000036RG 

002 

R$$11M= 

000000 

$FILEX= 

******  GX 

STADDR 

000016RG 

002 

SYSFDB= 

******  GX 

$FLAGS= 

******  GX 

STERR 

001470RG 

S$$WRG= 

000000 

SFLAGI 

OOOOOORG 

002 

STIOUT= 

******  GX 

S$$YSZ= 

007600 

$FLAG2 

000002RG 

002 

STMALT= 

******  GX 

THPBF 

000352R 

002 

$FNR50 

000340RG 

002 

STMCHK= 

******  GX 

TMPSZ 

000556R 

002 

$GCLEP= 

******  GX 

STMFIL 

000066R 

TM.RD 

001056R 

SICBAD 

000272RG 

002 

STMFIX 

000220RG 

T$$KMG= 

000000 

SICBSZ 

000274RG 

002 

STMLrA= 

******  GX 

T$$MIN= 

000000 

SLBADR 

000346RG 

002 

STMP 

OOOOOORG 

V$$CTR= 

001000 

SLBIAS 

000350RG 

002 

$TMPBF= 

******  GX 

WPFX 

000676R 

002 

$LDA 

000060RG 

002 

S  ■MPKW= 

******  GX 

X$$DBT= 

000000 

SLEFT 

00001  ORG 

99? 

$  ••PND= 

******  GX 

SABFI  = 

******  GX 

SLFLD 

000322RG 

002 

I  ,PST= 

******  GX 

SADDR 

000020RG 

002 

SLINK 

000026RG 

002 

$TMVCT= 

******  GX 

$ADRX  = 

******  GX 

SMPLD 

000320RG 

002 

STM.IN= 

******  GX 

SADRZ  = 

******  GX 

SMXADD 

000022RG 

002 

STPARS= 

******  GX 

SBFALL 

000324RG 

002 

SHXLEN 

000032RG 

002 

STWARN 

001444RG 

SBFBAS 

000336RG 

002 

SMXSIZ 

000024RG 

002 

STWE 

001460RG 

SBFLBN 

000326RG 

002 

SNALL 

000034RG 

002 

SUBIAS 

000054RG 

002 

SBFPTR 

000332RG 

002 

SNLIB 

000035RG 

002 

SUDA 

000056RG 

002 

$BFR  = 

»»»***  GX 

SNTLLB 

000162RG 

002 

SVALUE 

000276RG 

002 

SBFXFR 

000334RG 

002 

SNTLUB 

000062RG 

002 

SVECTI 

000262RG 

002 

$BIAS  = 

******  GX 

SNVECT 

000270RG 

002 

SVECT2 

000264RG 

002 

$BIN 

000004RG 

002 

SOFF 

000030RG 

002 

$VECT3 

000266RG 

002 

SBUFCK 

000316RG 

SPTR 

000006RG 

002 

SVEXP  = 

******  GX 

SCAPR 

000316RG 

002 

SPUTAD= 

******  GX 

SVFDDM 

001344RG 

$CLBUr= 

******  GX 

$RADDR= 

******  GX 

SVFDLC 

001364RG 

$CLDEQ= 

******  GX 

i„<BLCK= 

******  GX 

SVFLVl 

001416RG 

$CLI0S= 

******  GX 

SREP.C= 

******  GX 

SVFSPC 

001404RG 

$CLSIZ= 

******  GX 

SR01 

001226RG 

SS 

177777 

$CVAL 

000314RG 

002 

SRQ2 

001220RG 

$$$   = 

000630R 

$DIFF 

000300RG 

002 

SRQ3 

001212RG 

SSSS  = 

001050R 

SELINE 

001154RG 

SRQ4 

001204RG 

.ABFI 

000230RG 

$ER0UT= 

******  GX 

$RQ5 

001176RG 

.BYTE  = 

******  GX 

$ERR13 

000720R 

002 

SRQ7 

001170RG 

.TPARS= 

******  GX 
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STM.IN  -  INITIALIZE  TEMPLATE  DATA 


161 

162 

163 

16^ 

165  000210     116701     000001G 

166 

167 

168  0002V. 

169  000216 

170  000220 

171  000224 

172  000230 

173  000232 

174  000240 

175  000242 

176  000244 

177  000250 

178  000254 
T79  000260 

180  000264 

181  000266 
182 
183 
184 
185 

186  000270 

187  000276 

188  000300 

189  000304 

190  000312 
191 


006301 
006301 

020167  OOOOOOG 
001403 

005000 
005001 
012702  000000' 


105777  OOOOOOG 
100401 


.IF  OF  R$$MPL 

il  ;  GET  VECTOR  ADDRESS 
GET  THE  VECTOR  ADDRESS 

CONVERT  TO  REALL  ADDRESS 

FIND  LINE  TABLE  ADDRESS 

IS  THIS  THE  SAME  VECTOR  ADDRESS 

IF  NE,  NO  ..  WARN  USER 

WARNING  -  MUX  UPDATE  ONLY 

SETUP  ASCIZ  FILE  SPEC 

FOR  [131, 5XDXXX.DAT 


TRY  TO  OPEN  PRIMARY  TEMPLATE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


032767 
001405 
016700 
012760 


OOOOOOG  OOOOOOG  101 

OOOOOOG 

Mini     OOOOOOG 


4$: 

M0V8 
.IFF 

K.VCT-K.PRM+$B 

4$: 

MOVB 
.ENDC 

K.VCTt$BFR,R1 

ASL 

Rl 

ASL 

R1 

CALL 

FNDADD 

CMP 

R1.$$VECT 

8E0 

loi 

EMSG$ 

WZ 

10$: 

CLR 

RO 

CLR 

Rl 

MOV 

*TMPEXT,R2 

CALL 

$AZFS 

CALL 

SCLQUE 

TSTB 

aSCLIOS 

BMI 

101$ 

RTSPC: 

RETURN 

:■  ERROR 

CONDITIONS 

101$: 

BIT 

#FL.LLC,$FLAGS 

BEQ 

102$ 

MOV 

$PDVA,RO 

MOV 

#-1,Z.DAT(R0) 

102$: 

EMSG$R 

8 

.DSA8L 

LS8 

IS  THIS  AN  LLC? 

IF  EQ,  NO 

GET  PDV  ADDRESS 

MARK  DATA  BASE  AS  EMPTY 

OPEN  FAILURE 


N  10 
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VIST  -  VNP  TESTING  ROUTINES 
$VTST  -  VNP  TESTING  ROUTINES 
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229  000702 

001134' 

.WORD 

GETRC 

230  000704 

107 

101 

.ASCII 

/GA/ 

231  000706 

001216' 

.WORD 

GETAD 

232  000710 

120 

122 

.ASCII 

/PR/ 

233  000712 

001436' 

.WORD 

PUTRC 

234  000714 

120 

101 

.ASCII 

/PA/ 

235  000716 

001326' 

.WORD 

PUTAD 

236  000720 

104 

102 

.ASCII 

/DB/ 

237  000722 

001520' 

.WORD 

DUMPS 

238  000724 

104 

127 

.ASCII 

/DW/ 

239  000726 

002054' 

.WORD 

DUMPW 

240  000730 

115 

117 

.ASCJI 

/MO/ 

241  0UO732 

002412' 

.WORD 

MODIFY 

242  000734 

101 

066 

.ASCII 

/A6/ 

243  000736 

002710' 

.WORD 

ALL16 

244  000740 

101 

062 

.ASCII 

/A2/ 

245  000742 

003264' 

.WORD 

ALL22 

246  000744 

104 

066 

.ASCII 

/D6/ 

247  000746 

003154' 

.WORD 

DEA16 

248  000750 

104 

062 

.ASCII 

/D2/^ 

249  000752 

003530' 

.WORD 

DEA22 

250  000754 

117 

104 

.ASCII 

/OD/ 

251  000756 

000764' 

.WORD 

ODT 

252  000760 

000000 

.WORD 

0 

253  000762 

254 

255 

256 

257  000764 

000000 

.WORD 

0 

;  SUBROUTINES 

ODT: 

SVTKSS 

*SSTTBL,*3      ;  3  WORD  SST  TABLE 

258  001002 

000003 

BPT 

;  TRAP 

259  001004 

SVTKSS 

;  DEALLOCATE  TABLE 

260  001016 

261 

262  001020 

RETURN 

BPT: 

T'PES 

<VNP  —  TASK  NOT  BUILT  WITH  ODT> 

263  001050 

264 

265 

000002 

RTI 

;  RETURN  FROM  ODT 

;•  GET 

16eiT  ADDRESS  WITH  EXEC  CHECK 

266 

267  001052 

GETRV 

GETNUM 

<VIRTUAL  ADDRESS>,$RADDR,X101 

268  001100 

GETNUM 

<NUM8ER  OF  BYTES>,$RSIZE,X101 

269  001126 

GETRV 

270  001132 

271 

272 

273 

274  001134 

X101: 

RETURN 

!■  GET 

168IT  VIRTUAL  ADDRESS  -  NO  EXEC  CHECK 

GETRC 

GETNUM 

<VIRTUAL  ADDRESS>,$RADDR,X102 

275  001162 

GETNUM 

<NUM6ER  OF  BYTES>,$RSIZF,X102 

276  001210 

GETRC 

277   001214 

278 

279 

280 

281  001216 

XI 02: 

RETURN 

;  GET 

2281 T  ADDRESS 

GETAD 

GETNUM 

<BIAS>,$RBLCK,X103 

282  001244 

GETNUM 

<VIRTUAL  A0DRESS>,$RADDR,X103 

283  001272 

GETNUM 

<NUM8ER  OF  BYTES>,$RSIZE,X103 

284  001320 

GETAD 

285  001324 

XIOJ: 

RETURN 

N  11 


n 


M  12 

VUMR  -  VNP  DYNAMIC  UMR  ALLOC/t)E  MACRO  V05.05b  Saturday  29-Jun-85  03:09  Page  6 


SASUMR  -  ASSIGN  UNIBUS  MAPPING  REGISTERS 


S^. 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9i, 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104  000000 

105  000004 

106  000010 

000402 

107 

108  000012 

109  000016 

103456 

110  000020 

016704 

000002' 

111  000024 

066704 

000004 • 

112  000030 

012746 

170374 

113  000034 

005703 

114  000036 

001402 

115  000040 

016716 

000016' 

116  000044 

160416 

117  000046 

022661 

OOOOO'; 

118  000052 

103757 

119  000054 

010461 

000002 

120  000060 

010067 

000000' 

121  000064 

062767 

000002  000000' 

122  000072 

010311 

12  0000^4 

001402 

124  0000/6 

062711 

000002 

125  000102 

010405 

126  000104 

142705 

170234 

127  000110 

040504 

128  000112 

006205 

129  000114 

106304 

130  000116 

006304 

131  000120 

006304 

132  000122 

000304 

133  000124 

010461 

000006 

134  000130 

110561 

000010 

135  000134 

136 

137  000142 

138  000152 

000241 

139  000154 

140  000162 

THIS  ROUTINE  IS  CALLED  TO  SCAN  THE  LIST  OF  CURRENTLY  ALLOlATED  UMR'S 
(SUMRHD),  ALLOCATE  CONTIGUOUS  UMR'S  SPECIFIED  BY  THE  CALLER  (M.UMRN), 
AND  LINK  THIS  UMR  BLOCK  TO  THE  OTHERS. 


INPUTS; 


RO-UMR  BLOCK   REAl    MEMORY  ADDRESS 
R1=UMR   BLOCK   ADDRESS    (IN   VNP   TASK   SPACE) 
R2=PR0CESS0R  NUMBER   IF   MULTIPROCESSOR 
.UMRHD=VALUE   OF   SUMRHD   FROM  RSXIIM.STB  FILE 


ON  MULTIPROCESSOR   RSX-11M-PLUS   SYSTEMS, 
THE   BIAS   THE    CPU'S   DATA  AREA. 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 

ALL  REGISTERS  ARE  PRESERVED 


.CPBIA  MUST  BE  SET  TO 


IaSUMR: 

:CALL 

$SAVAL 

CALL 

GFIfiST 

BR 

20$ 

10$: 

CALL 

GNEXT 

20$: 

BCS 

50$ 

MOV 

PREVtM.UMRA,R4  ; 

ADD 

PREV+M.UMRN,R4   ; 

MOV 

#UBMPRt<31.*4>,-( 

TST 

R3 

BEO 

30$ 

MOV 

NEXT+M.UMRA,(SP) 

30$: 

SUB 

R4,(SP) 

CMP 

(SP)+,M.UMRN(R1) 

BLO 

10$ 

MOV 

R4,M.UMRA(R1) 

MOV 

RO.PREV 

ADD 

#2,PREV 

MOV 

R3,CR1)        ; 

BEQ 

40i 

ADD 

#2,(R1) 

40$: 

MOV 

R4,R5 

BICB 

#U8MPR:34,R5    ; 

BIC 

R5,R4         ; 

ASR 

R5 

ASLB 

R4 

ASL 

R4 

ASL 

R4 

SWAB 

R4 

MOV 

R4,M.UMVL(R1) 

MOVB 

R5,M.UMVH(R1)    ; 

SWTCHO 

#PREV 

PUTRC 

R2 

47$: 

CLC 

50$: 

SWTCHI 
SWTCHO 

SAVE  ALL  REGISTERS 
GET  FIRST  UMR  BLOCK(S) 


GET  NEXT  UMR  BLOCK 
IF  CS,  FAILURE 
CALCULATE  FIRST  UMR 
NOT  MAPPED  BY  THIS  BLOCK 
(SP)  ;  POINT  AT  FIRST  NON-EXISUNT  UMR 
IS  THERE  A  NEXT  BLOCK? 
IF  EQ,  NO 

ELSE  USE  FIRST  UMR  FROM  NEXT  BLOCK 
GIVING  FREE  UMR  COUNT 

ENOUGH  FOR  OUR  USE? 
IF  LO,  NO 

STASH  UMR  ADDRESS  IN  USER'S  BLOCK 
LINK  PREVIOUS  BLOCK  TO  OURS 


LINK  OUR  BLOCK  TO  NEXT 


CONVERT  UMR  ADDRESS  TO  22-BIT  ADDRESS 


STUFF  22-BIT  ADDRESS  INTO  USER'S  BLOCK 

CHANGE'dEFAULT  BUFFER 

RE-WRITE  PREVIOUS  BLOCK 
INDICATE  SUCCESS 
RESET  DEFAULT  BUFFERS 
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U7 
K8 
K9 
150 

151  000166 

152  000172 

153  000174 

154  000200 

155  000206 

156  0002U 

157  000220 

158  000222 

159  000230 

160  000236 

161  000244 

162  000246 

163  000252 

164  000254 

165  000260 

166  000272 

167  000276 

168  000302 

169  000304 

170  000306 

171  000310 

172  000314 

173  000322 

174  000326 

175  000332 
176 

177 
178 

179  000334 

180  000350 

181  000364 

182  000444 

183  000450 

184  000523 
185 

186 
187 
188 


LINK  TO  NEXT  BLOCK 


OOOOOOG 
OOOOOOG 


004267 
010004 
016701 


103445 


016777 
010014 
020427 
001007 
010067 

012704 
012703 
005024 
005303 
001375 
010077 
012767 


010067  OOOOOOG 


LINK: 


OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOG 
0OUU40 


5$: 

11$: 


OOOOOOG 

000100  OOOOOOG 


JSR 

MOV 

MOV 

SWTCHI 

SWTCHO 

CALL 

BCS 

SWTCHO 

SUTCHI 

MOV 

MOV 

CMP 

BNE 

MOV 

PUTAD 

MOV 

MOV 

CLR 

DEC 

BNE 

MOV 

MOV 

PUTAD 

MOV 

RETURN 


R2,$SAVVR 

R0,R4 

$UN8SZ,R1 


$ALN18 

101$ 

#$UNBLK 

#$UNBLK 

$UNBAD,a$ADRX 

R0,(R4) 

R4,*$UNBAD 

5$ 

R0,$UNBLK 

,#64. 

#$UN6LK,R4 

#32., R3 

(R4)t 

R3 

11$ 

R0,a$ADRX 

#64.,$RSIZE 

R0,$UNBA0 


SAVE  VOLATILE  REGISTERS 
COPY  POINTER 
GET  $UNLOAD  BLOCK  SIZE 
RESET  DEFAULT  BUFFER 

ALLOCATE  BLOCK 
RESOURCE  ERROR 
SET  DEFAULT  BUFFER  TO  BLOCK  IMAGE 

SET  ADDRESS  OF  CURRENT  BLOCK 

STORE  LINK  VALUE 

IS  THIS  LISTHEAD  ? 

YES,  HOMEBLOCK  REWRITTEN  IN  VXIT 

LOAD  LINK  WORD 

WRITE  PREVIOUS  BLOCK 

ZERO  COPY  OF  NEWLY  ALLOCATED  BLOCK 


SET  UP  VIRTUAL  ADDRESS 

AND  SIZE 
WRITE  ZEROED  BLOCK  TO  SYS  IMAGE 
SAVE  CURRENT  BLOCK'S  VA 


000001 


;  ERROR  MESSAGE 

101$:   ERRPT$  ER1,$ER0UT, FATAL       ;  NTPOOL  TOO  SMALL 

102$:   ERRPT$  ER2,$ER0UT, FATAL       ;  LOGIC  ERROR  IN  BLOCK  MANIPULATION 

ERMSG$  <Network  buffer  aUocation  failure  (  32.  words  ).> 

ERBLK$  ERl 

ERMSG$  <Logic  error  manipulating  accounting  blocks. > 

ERBLK$  ER2 

.DSA8L  LSB 
.END 
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355  000366 

35A  000372 

355 

556 

357 

358 

359 

360  00057A 

361  000400 

362  000404 
363 

364  000410 

365  000416 

366  000420 

367  000424 

368  000426 

369  000432 

370  000434 
371 

372  000440 

373  000446 

374  000450 

375  000454 
376 

377  000456 

378  000464 

379  000466 
380 

381  000472 

382  000474 

383  000500 

384  000504 

385  000506 
386 

387  000512 

388  000514 
389 

390 
391 
39? 

393  000516 

394  000520 
595 


103452 


005064 
005064 
005064 

132^64 
001435 
016403 
001432 
022705 
001425 
005067 

022764 
001003 

000406 

022764 

001002 


010446 


012604 
005064 

000261 


OOOOOOG 
OOOOOOG 
0000C2G 

OOOOOOG  OOOOOOG  10S: 

OOOOOOG 

177777 

000202' 

1142P4  OOOOOOG 


017704  OOOOOOG  15$: 

18$: 

OOOOOOG        19$: 
20$: 


CALL 
BCS 

.IF  DF 

CALL 

.ENDC 

CLR 
CLR 
CLR 

BITS 

BEQ 

MOV 

BEQ 

CMP 

BEQ 

CLR 

CMP 
BNE 
CALL 
BR 

CMP 
BNE 
CALL 

MOV 

CALL 

CALL 

MOV 

CLR 

SEC 
RETURN 


$XPAR 
111$ 

R$$MPL 
DEVEC 


Z.PC8(R4) 
Z.DSP(R4) 
Z.DSP+2(R4) 


;  RELEASE  PROCESS  FROM  PARTITION 
;  If  CS,  VERV  BAD 


DEALLOCATE  VECTOR  BLOCK 


MARK  PROCESS  NON-RESIDENT 
ZERO  DISPATCH  TABLE  ADDRESS 
ZERO  RELOCATION  BIAS 


#ZF.LLC,Z.FLG(R4) 

20$ 

Z.DAT(R4),R5 

20$ 

#-1,R3 

19$ 

..PDV 

#*RXPT,Z.NAM(R4) 

15$ 

DEAXPT 

18$ 

#»RECL,Z.NAH(R4) 

18$ 

OEAECL 

R4,-(SP)  ; 

GETIND  ; 

XLT16  ; 

(SP)*,R4  ; 

Z.DAT(R4)  ; 


ERROR  CONDITIONS 


101$:    CRASH 
111$:    CRASH 
.DSA8L 


LSB 


;  IS  THIS  AN  LLC? 

IF  EQ,  NO 

GET  LINE  TABLE  ADDRESS 

IF  NO  LINE  TABLE,  INIT  FAILURE 

IS  THIS  AN  EMPTV  LLC  LINE  TABLE? 

IF  EQ,  YES 

DISCARD  ANY  PARTITION  LINE  TABLES 

;  Is  this  XPT? 
If  not,  skip 

If  so,  deallocate  XPT  data  structures 
continue 

;  Is  this  ECL? 
If  not,  skip 
If  so,  deallocate  ECL  Node  counters 

SAVE  PDV  ADDRESS 
GET  PDV  INDEX 
DE-ALLOCATE  LINE  TABLE 
RESTORE  PDV  ADDRESS 
ZERO  LINE  TABLE  ADDRESS 

RETURN  WITH  C-BIT  SET 


NETLDR  LOGIC  ERROR 

SOMEBODY  UNLINKED  OUR  SU8-PCE 
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fNDADD  -  HNO   LINE    TABLE    ADDRESS 


869  002340 

001007 

BNE 

30$ 

870  D023A? 

005201 

INC 

R1 

871  0OP34A 

126365 

OOOOOOG  OOOOOOG 

CMP8 

L.CTL(R5) 

872  002352 

001002 

BNE 

50$ 

873  002354 

005267 

000004' 

INC 

UNITS 

874  002360 

005504 

30$; 

DEC 

R4 

8^5  002362 

001551 

BNE 

10$ 

8^6  002364 

010067 

000120' 

MOV 

RO.DLCAC 

877  002370 

010167 

000'22' 

MOV 

R1,DDMAC 

878  002374 

016702 

000004' 

MOV 

UNITS, R2 

87<i  00240C 

RETURN 

880 

;  IF   NE,   NO 

;  TALLY   IT 
.fTL(R5)    ;    SAME    CONTROLLER   AS   OURS? 

;  If   NE,   NO 

;  TALir    IT 

;  LOOP  <SLr   COUNT)   TIMES 

;  SETUP  ACTIVITY   COUNTS 

•  RETURn'oIHER   READY   LINES   ON   'MIS    CONTROLLER 
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VUNL  -  VNP  UNLOAD  ROUTINES 

MACRO  V05.03b 

Monday  16- 

tCCEx  - 

CLEAR  S 

v$ 

U11 

MOV 

H12 

BEQ 

Ki; 

SUTCHO 

KU 

CLR 

U15 

PUTAD 

K16 

SWTCHO 

U17 

MOV 

U18 

CALL 

U19 

MOV 

U20 

CALL 

U21 

62$: 

MOV 

1422 

DEC 

U23 

BGT 

K2A 

BR 

U25 

.ENDC 

K26 

K27 

004430 

010200 

65$: 

MOV 

K2S 

004432 

001406 

BEQ 

U29 

004434 

CALL 

U30 

004440 

012701   000014 

MOV 

K31 

004444 

CALL 

K32 

U33 

004450 

70$: 

K3A 

.IF  DF 

U55 

U36 

SWTCHO 

143? 

CLR 

U38 

PUTRC 

1439 

PUTRC 

14'«0 

PUTRC 

1441 

PUTRC 

1442 

PUTRC 

1443 

PUTRC 

M  16 


1444 
14^5 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
'460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 


004450 
004452 

004454 


004456 
004464 
00'466 


000241 


MOV 

ADD 

PUTRC 

PUTRC 

MOV 

ADD 

PUTRC 

.ENDC 

CLC 

RETURN 


ERROR  CONDITION 
101$:   CRASH 


UMRPTR.RO 

62$ 

#UMRPTR 

UMRPIR 

R2,#2 

R0,R2 

$DEUMR 

#M.LGTH,P1 

$DEA16 

(SP)*,RO 

RO 

60$ 

70$ 


R2,R0 

70i 

$DEUMR 

#M.LGTH,R1 

$DEA16 


R$$MPL 


$SFR 

.NTLPT,*2 

.F1LHD,*2 

.OejHD,*2 

.PSIPT,#2 

.CCBLH,#2 

.SD8LH,#2 

.SDBLH.RI 

*2,R1 

R1,#2 

.RD8LH,#2 

.RDBLH.RI 

*2,R1 

R1,*2 


COPY  UMR  BLOCK  POINTER 

8R  IF  NONE 

SET  TO  WRITE  FROM  HERE 

MAKE  A  ZERO 

CLEAR  OUT  THE  POINTER 

RESET  TO  STANDARD  OUTPUT  BUFFER 

COPY  UMR  BLOCK  ADDRESS  FOR  DELINKING 

DELINK  THE  UMR  BLOCK 

LENGTH  OF  UMR  BLOCK 

DEALLOCATE  THE  BLOCK 

RECOVER  THE  CPU  NUMBER 

COUNT  DOWN 

BR  IF  MORE  CPU'S 

FINISHED 


COPY  UMR  BLOCK  ADDRESS 

IF  ZERO,  NO  UMR'S  TO  WORRY  ABOUT 

DE-ASSIGN  UMR'S 

GET  UMR  BLOCK  LENGTH 

DE-ALLOCATE  UMR  BLOCK 


RESET  BUFFER 

INIT  LOCATION 

INIT  NTL  HOME  BLOCK  POINTER 

INIT  FILTER  BLOCK  POINTER 

INIT  OBJECT  BLOCK  POINTER 

INIT  PSI  HOME  BLOCK 

INIT  CCB  LISTHEAD 

INIT  SDB  LISTHEAD 

COPY  SDB  LISTHEAD 

POINT  TO  SDBLH+2 

INIT  SDBLHt2 

INIT  RDB  LISTHEAD 

COPY  RDB  LISTHEAD 

POINT  TO  RDBLH+2 

INIT  RDBLH+2 


INDICATE  SUCCESS 


;  SOMEBODY  UNLINKED  THE  NTPOOL  PCB! 


016767  OOOOOOG  OOOOOOG  XDC8 
C00241  10$: 

016767  OOOOOOG  OOOOOOG 


UNLOAD  RSX11M  DEVICES  WHICH  ARE  ALSO  NETWORK  PROCESSES 
$DEVHD,$BFR 
$BFR,$RADOR 


MOV 
CLC 
MOV 


GET  RSX11M  DEVICE  POINTER 

CLEAR  C-BIT 

GET  NEXT  DEVICE  IN  LIST 


;[MP01] 

;CMP01] 
.-CMPOn 
;[MP01] 
; CMPOl ] 
;[MP01] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl] 
; CMPOl ] 
; CMPOl] 
; CMPOl] 


•  K.-B  CREATED   BV     MACRO     ON   30-JJL-85   AT    10:55 

S>*IBOu    'ROSS  REFERENCE 


SYMBOL       ;ALUE 


R$$MPL 
R$$11D 
SCEX 

5CIR 
3l1N 
SL'A 
SPRO 
SPSA» 

svsfoe 


000124 
0016A0 
001 54A 
00077A 
00067C 
000250 


R 
R 
R 
R 

R 
R 
GX 


S$$BA5 


TSICSCH 

TYtCHA 

TYtEVE 

TVSSTA 

T'JSUM 

T    '..-.M 

T.-    ;L 

T.KBL 

JCBBUf 

UNIT 

US.MNT 

U.CWl 

U.STS 

VF.ADD 

VF.PEM 

WC.CNT 

WC.EVF 

WC.TRI 

WC.iJNT 

ZF.DDM 

ZF.DLC 

ZF.KMX 

ZF.LMC 

7F.MUX 

Z.DAT 

Z.FLG 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

SBITS 

SCGOr'-G 

SCMANO 


002652 
000400 
301000 
0020C0 
000000 
000006 
000012 
000030 
000252 
000244 
000100 
000010 
000005 

****** 

****** 

000400 
004000 
002000 
001000 


-    ♦♦**♦* 


GX 
GX 


GX 
GX 
GX 
CX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002744  R 


GX 
GX 


REFERENCES 

26-962 

20-685 

6-116 

6-145 

6-125 

6-122 

6-120 
#7-182 
*9-287 
.35-1313 

8-209 

8-213 

8-218 

8-222 

8-227 

8-231 

8-236 

26-954 
#5-63 
#5-63 
#5-63 
#5-63 

26-1004 

26-960 
*26-99d 
#7-186 
#7-173 

24-875 

24-873 

24-875 

14-408 

14-394 
#5-63 
#5-63 
#5-63 
#5-63 

19-594 

19-629 

19-606 

19-598 

19-602 

17-545 

15-473 

24-828 

24-831 

28-1053 

14-401 

9-287 
*35-1306 

17-535 

32-1206 

14-406 


#11-5'7 
#23-771 
#22-742 

6-131 
#17-534 
»9-268 
»9-288 

8-209 
8-214 
8-218 
8-223 
8-227 
8-232 
8-236 
#26-994 


26-1006 
35-1304 
26-1000 
24-869 
*24-867 


34-1275 

19-594 

32-1200 
34-1262 
17-541 
9-288 
*35-1309 
22-745 
34-1274 
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CREF       04.00 


6-143 

29-1122 
♦24-869 

8-210 
8-214 
8-219 
8-223 
8-228 
8-232 
8-237 


»35-1306 

24-871 
*24-879 


19-598 


24-797 
*24-857 

#27-1021 
34-1284 


14-411 


•,:'.-870 

8-210 
8-215 
8-219 
8-224 
8-228 
8-233 
8-237 


18-569         #19-589 
»24-884         »24-885 


*26-969         426-996 


24-880 


19-602 


24-864 
24-859 


8-211 
8-215 
8-220 
8-224 
3-229 
8-233 


8-211 
8-216 
8-220 
8-225 
8-229 
8-234 


8-212 
8-216 
8-221 
8-225 
8-230 
8-234 


8-212 
8-217 
8-221 
8-226 
8-230 
8-235 


»35-1303 

8-213 
8-217 
8-222 
8-226 
8-231 
8-235 


35-1308       *35-1309 


•29-1088    29-1097    29-1099   *29-1102    29-1113 


19-606 


24-884 


19-629 


26-960 


34-1261 


26-972 


26-997 


35-1304 


L 
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•«f ILE««ID'«VSIB 


VS 
SH 


vv 

vv 

SSS5SSSS 

TTTTTTTTTT 

BBBBBBBB 

vv 

vv 

ssssssss 

TFTTTTTTTT 

B6BBPD8B 

vv 

vv 

ss 

BB      BB 

vv 

vv 

ss 

BB     BB 

vv 

vv 

LS 

BB     B8 

vv 

vv 

ss 

BB     BB 

vv 

vv 

ssssss 

f'BBBBBBfl 

\'V 

vv 

ssssss 

I   "IBBBBB 

V  ' 

vv 

ss 

Bfa     BB 

vv 

vv 

ss 

BB     BB 

vv 

vv 

ss 

BB     BB 

vv 

vv 

ss 

BB     B8 

vv 

ssssssss 

BBBBBBBB 

vv 

ssssssss 

BBBBBBBB 

ssssssss 

ITTTTTTITT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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SHOW  COMMAND 
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517 
518 
519 
520 

521  000000 

522  000000 

523  000000 
52A 

525  000000 

526  000000 

527  000000 
528 

529  000000 

530  000000 

531  000000 
532 

533 
534 

535  000000 

536  000000 

537  000000 

538  000000 

539  000000 
5A0  000000 
5A1  000000 

542  000000 

543  OOOOCO 

544  OCOOOO 

545  000000 

546  000000 

547  000000 

548  000000 

549  000000 

550  000000 

551  000000 

552  000000 

553  000000 

554  COOOOC 

555  000000 
5':6  000000 
557  GOCOOO 
558 

559 
560 

561  000000 

562  000000 

563  000000 

564  000000 

565  000000 
566 

567 

568 

569  000000 

57C  000000 

571  000000 

572  000000 

573  OOOOOO 


.SBTTL   SHOW  COMMAND 


;  SHOW  COMMAND 

STATES 

SH0,£PSSH0 

TRANS 

ISHOID, 

SH01 

TRANS 

ISHOTYP, 

SH02 

STATES 

SH01 

TRANS 

ISHOTYP, 

SHOOPT 

TRANS 

SLAMDA, 

SNOOP! 

STATES 

SH02,£PSSH0 

TRANS 

ISHOID, 

SHOOPI 

TRANS 

SLAMDA, 

DONE 

•  SHOW  ENTITY  IDENTIFICATION 

STATES 

SHOID 

TRANS 

IIDALI, 

SEXIT 

LD.ALI, 

RQBST 

TRANS 

IIDALAL, 

SEXIT 

LD.ALI, 

RQBST 

TRANS 

IIDKNAL, 

SEXIT 

LD.ALI, 

RQBST 

TRANS 

IIDCIR, 

SEXIT 

LD.CIR, 

RQBST 

TRANS 

IIDAlCI, 

SEXIT 

LD.CIR, 

RQBST 

TRANS 

IIDKNCI, 

SEXIT 

LD.CIR, 

RQBST 

TRANS 

IIDLIN, 

SEXIT 

iXMISS, 

LD.LIN, 

RQBST 

TRANS 

IIDKNLI, 

SEXIT 

LD.LIN, 

RQBST 

TRANS 

IDACLI, 

SEXIT 

LD.LIN, 

RQBST 

TRANS 

IIDACLO, 

SEXIT 

LD.LCG, 

RQBST 

TRANS 

IIDKNLO, 

SEXIT 

LD.L06, 

RQBST 

TRANS 

IIDLOG, 

SEXIT 

LD.LCG, 

RQBST 

TRANS 

1  IDNOD, 

SEX  T 

LD.NOD, 

RQBST 

TRANS 

IIDKNNO, 

SEXIT 

LD.NOD, 

RQBST 

TRANS 

IIDLONO, 

SEXIT 

LD.NOD, 

RQBST 

TRANS 

IIDKNOB, 

SEX  T 

LD.OBJ, 

RQBST 

TRANS 

IIDPRO, 

SEX  T 

LD.PRO, 

RQBST 

TRANS 

IIDACPR, 

SEXIT 

LD.PRO, 

RQBST 

TRANS 

IIDKNPR, 

SEXIT 

LD.PRO, 

RQBST 

TRANS 

1  IDHOD, 

SEXIT 

LD.MOD, 

RQBST 

TRANS 

IIDOBJ, 

SEXIT 

LD.OBJ, 

RQBST 

TRANS 

IIDSYS, 

SEXIT 

LD.CEX. 

RQBST 

;  SHOW  INFORMATION  TYPE 

STATES 

SHOTYP 

TRANS 

SKSCHA, 

SEXIT 

TYSCHA, 

STYPE 

TRANS 

SKSEVE, 

SEXIT 

^ 

TYSEVE, 

STYPE 

TRANS 

SKSSL'M, 

SEXIT 

TYSSUM, 

STYPE 

TRANS 

8KSSTUS, 

SEXIT 

> 

T^STA, 

STYPE 

•    SHOW  OPTIONS 

STATES 

SHOOPT 

TR'>" 

SlAMDA, 

SHOALI,     SIFALI 

TRANS 

SLAMDA, 

SHOLOG,     SIFLOG 

TRANS 

SLAMDA, 

SHOXA 

SIFXAC 

TRANS 

SLAMDA, 

SHOXPR,     SIFXPR 

L 


N  4 

VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.03b  Saturday  29-Jun-85  02:59 
ENTITY  OPTION  SUBEXPRESSIONS 


1184  000000 

1185  000000 

1186  000000 

1187  000000 

1188  000000 

1189  000000 

1190  000000 

1191  000000 

1192  000000 
1195 

119A 
119'^ 
1196 

1197  000000 

1198  000000 

1199  000000 

1200  000000 
1201 

1202 
1203 

1204  000000 

1205  000000 

1206  000000 

1207  000000 
1208 

1209 
1210 

1211  000000 

1212  000000 

1213  000000 
12U  000000 

1215  000000 

1216  000000 

1217  000000 

1218  000000 

1219  000000 
1220 

1221 
1222 

1223  000000 

1224  000000 

1225  000000 

1226  000000 
1227 

1228 
1229 

1230  000000 

1231  000000 

1232  000000 

1233  000000 
123A 

1235 
1236 

1237  000000 

1238  000000 

1239  000000 

1240  000000 


STATES  ,SP$NAD 
TRANS   SDNUMB, 

STATES 
TRANS  <•.>, 
TRANS  SLAMDA, 

STATES  OPA 
TRANS  SDNUMB, 
STATES 
TRANS  SLAMDA, 


NODE  ID 


STATES 
TRANS 

STATES 
TRANS 

NODE  NA,1E 

STATES 
TRANS 

STATES 
TRANS 

NODE  STATE 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 

OBJECT  NAME 

STATES 
TRANS 

STATES 
TRANS 


OWNER 


STATES 
TRANS 

STATES 
TRANS 


PARTITION 


STATES 
TRANS 

STATES 
TRANS 


OPNOD 
8KSN0D 
,&PSNID 
INODJD, 


OPNAM 
6KSNAM 
,8PSNAM 
$RAD50, 


OPNOST 

8KSSTAE 

.SPSNOST 

8KS0FF, 

8KS0N, 

FIX 

8KSFIX, 

8KSUNF , 

SLAMDA, 


0P08NA 
8KSNAM 
,&PSOBNA 
$RAD50, 


CPOWN 
8K$0I>IN 
,8PS0UN 
SSTRNG, 


OPPAR 
8KSPAR 
,8PSPAR 
SSTRNG, 
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OPA 
SEXIT, 


SEXIT, 


SEXIT, 


SEXIT, 


SEXIT 
FIX, 

SEXIT, 

SEXIT 

SEXIT, 


SEXIT, 


SEXIT, 


SEXIT, 


Pf 


SARADl 

SSTNAD 
SARAD2 
SSTNAD 


SSTLND 


SSTNAM 


VF.ON, 

SVFLAG 

VF.FIX, 

SVFLAG 

VF.FIX, 

SVFLAG 

SONAM 


SOUN 


SSTPAR, 


LS.OPT, 


RQBST 


_J 


N  S 

VSTB  -  VNP  COMMAND  PROCESSING  S  MACRO  V05.03b  Saiuraay  29-Jun-85  02:59 
PEMSTA  -  ACTION  ROUTINE  FOR  THE  PROTOCOL  EMULATOR  STATE 
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1668 
1669 
1670 

1671  000126 

1672  000126  062716 

1673  000132 


000002 


UNCONDITIONALLY  REJECT  THE  TRANSITION 

REJECT: 

ADD     #2,(SP) 
RETURN 


.-REJECT  TRANSITION 


N    6 

VSTB  CREATED  BY     MACRO     ON  29-JUN-85   AT  03:03  PAGE   9 

MACRO   CROSS   REFERENCE  CREf        04.00 

MACRO  NAME  REFERENCES 

DBGTPS  #6-108^^  #7-233  #7-234  #7-235  #7-236  #7-237  #8-255  #8-256  #8-258  #8-259 

^  #8-260  #8-261  #8-263  #8-264  #8-265  #8-266  #8-267  #8-268  #8-269  #8-277 

#8-283  #8-284  #8-291  #8-299  #8-309  #8-310  #8-311  #8-312  *8-313  *8-314 

#8-325  #8-326  #8-327  #8-328  #8-329  #8-335  #8-341  #8-347  #9-361  #9-362 

#9-363  #9-364  #9-366  #9-367  #9-368  #9-369  #9-370  #9-371  #9-372  #9-378 

;9-385  #9-394  #9-395  #9-396  #9-397  #9-398  #9-399  #9-400  #9-401  #9-409 

#9-415  #9-416  #9-417  #9-418  #9-419  #9-420  #9-421  #9-433  #9-434  #9-435 

#9-436  #9-437  #9-438  #9-439  #9-450  #9-451  #9-452  #9-453  #9-454  #9-455 

#9-456  #9-457  #9-458  #9-459  #9-460  #9-461  #9-462  #9-473  #9-482  *?:^§8 

#9-489  #9-490  #9-496  #9-500  #9-506  #9-507  #9-508  #9-514^  *?:5J5  »  0-523 

#10-527  #10-531  #10-537  #10-538  #10-539  #10-540  #10-541  #10-542  #0-543  #0-544 

#0-545  #10-546  #10-547  #10-548  #10-549  #10-550  #10-351  #10-552  #0-553  #0-554 

#0-555  #10-556  #10-557  #10-563  #10-564  #10-565  #10-571  #10-572  #10-573  *  0-574 

#0-575  #0-576  #10-582  #10-583  #10-589  #10-590  #10-596  #10-597  #10-603  #0-604 

#0-605  #0-611  #10-612  #11-671  #11-754  #12-794  #12-806  #12-809  *  HIS  !  Ml? 

#12-816  #12-819  #12-820  #12-831  #12-836  #12-841  #12-846  #12-849  #2-859  #2-862 

#2-865  #2-871  #12-872  #12-878  #12-884  #12-885  #12-889  #12-892  #12-900^  <■  2-?04 

#2-905  #2-918  #12-921  #12-922  #12-936  #12-939  #13-970  #13-989  #13-1011  #13-012 

#3-1013  #3-1017  #13-1028  #13-1038  #13-1051  #13-1057  #13-1067  #13-1088  #13-1109  #3-122 

#5-123  #3-1126  #13-1134  #13-1142  #13-1188  #13-1215  #13-1218  #13-1219  #13-1260  #13-265 

#3-274  #3-1284  #13-1304  #13-1307  #13-1310  #13-1385  #13-1388  #13-1391  #13-1415  #13-427 

#13-1442  #13-1443  #13-1451  #13-1454  #14-1488  #14-1496  #14-1510  #14-1515  #14-1516  #14-1526 

#15-1558  #15-1559  #15-1560  #15-1566  #15-1581  #15-1582 

KEYWDS  #5-61  6-112  #6-113  #6-114  #6-115  #6-116  #6-117  #6-118  #6-119  #6-120 

#6-121  #6-122  #6-123  #6-124  #6-125  #6-126  #6-127  #6-128  #6-129  #6-30 

#6-13  #6-132  #6-133  #6-134  #6-135  #6-136  #6-137  #6-138  #6-139  #6-40 

#6-141  #6-142  #6-143  #6-144  #6-145  #6-146  #6-147  #6-148  #6-149  #6-150 

#6-151  #6-152  #6-153  #6-154  #6-155  #6-156  #6-157  #6-158  #6-159  #6-60 

#6-161  #6-162  #6-163  #6-164  #6-165  #6-166  #6-167  #6-168  #6-69  #6-70 

#6-171  #6-172  #6-173  #6-174  #6-175  #6-176  #6-177  #6-178  #6-179  #6-80 

#6-181  #6-182  ,''6-183  #6-184  #6-185  #6-186  #6-187  #6-188  #6-189  #6-190 

#6-191  #6-192  #6-193  #6-194  #6-195  #6-196  #6-197  #6-198  #6-199  #6-200 

#6-201  #6-202  #6-203  #6-204  #6-205  #6-206  #6-207  #6-208  #6-209  #6-210 

#6-211  #6-212  #6-213  #6-214  #6-215  #6-216  #6-217  #6-218  #6-219  #6-220 

MTRAN$  #6-108 

RETURN  *17-1598         17-1605         18-1621  18-1625         19-1644         20-1666         21-1673         22-1686 

STATES  #5-61  7-231  ^7-241  8-253  #8-275  #8-281  #8-289  #8-297  #8-304  #8-307 

#8-318  #8-323  #8-333  #8-339  #8-345  9-358  #9-376  #9-380  #9-383  #9-390 

#9-392  #9-407  #9-413  #9-426  #9-431  #9-443  #9-448  #9-466  #9-471  #9-47/ 

#9-480  #9-486  #9-494  #9-498  #9-504  #9-512  10-521  #10-525  #10-529  #10-535 

#10-561  #10-569  #10-580  #10-587  #10-594  #10-601  #10-609  11-625  #11-627  #11-632 

#11-634  #11-639  #11-641  #11-646  #11-648  #11-653  #11-655  #11-660  "'^-662  #11-667 

#11-669  #11-675  #11-677  #11-682  #1 1-684  #11-689  #11-691  #11-596  -698  #11-703 

#11-705  #11-710  #11-712  #11-717  #11-719  #11-724  #11-726  #11-731  ■      -711  #11-738 

#11-740  #11-745  #11-747  #11-752  #11-755  #11-760  #11-762  #11-767  «   i-769  #11-774 

12-788  #12-790  #12-792  #12-795  #12-800  #12-802  #12-804  #12-807  #12-811  #12-814 

#12-817  #12-824  #12-829  #12-832  #12-834  #12-837  #12-839  #12-842  #12-844  #12-847 

#12-853  #12-855  #12-857  #12-860  #12-863  #12-869  #12-876  #12-880  #12-882  #12-887 

#12-890  #12-896  #12-898  #12-902  #12-907  #12-914  #12-916  #12-919  #12-923  #12-925 


VSVM 

CREATED  BY 

MACRO  ON  2 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

AB 

=  000000 

G 

#5-158 

BUFUMP 

=  172354 

G 

#5-63 

CMODE 

=  UOOOO 

G 

#5-63 

1$$AS 

~      ****** 

5-63 

KISARO 

=  172340 

G 

#5-63 

KISAR6 

=  172354 

G 

#5-63 

LB. ADR 

000006 

G 

#5-166 

LB. APR 

=  000013 

G 

#5-169 

LB.SIZ 

000010 

G 

#5-167 

LB. USE 

000012 

G 

#5-168 

LF.ACT 

=  100000 

G 

#5-65 

LF.BRO 

=  000400 

G 

#5-65 

LF.BWT 

=  000007 

G 

#5-65 

LF.ENA 

=  002000 

G 

#5-65 

LF.LPB 

=  001000 

G 

#5-65 

LF.MOC 

=  000100 

G 

#5-65 

LF.MFL 

=  004000 

G 

#5-65 

LF.MTP 

=  000020 

G 

#5-65 

LF.PAC 

=  000200 

G 

#5-65 

LF.RDY 

=  040000 

G 

#5-65 

LF.REA 

=  010000 

G 

#5-65 

LF.SER 

=  000040 

G 

#5-65 

LF.TIM 

=  000010 

G 

#5-65 

LF.UNL 

=  020000 

G 

#5-65 

LF.X2P 

=  ocoooo 

G 

#5-65 

LN.CLO 

=  000000 

G 

#5-65 

LN.DUM 

=  000005 

G 

#5-65 

LN.LOA 

=  000004 

G 

#5-65 

LN.LOO 

=  000003 

G 

#5-65 

LN.OAU 

=  000003 

G 

#5-65 

LN.OfF 

=  000001 

G 

#5-65 

LN.ON 

=  000000 

G 

#5-65 

LN.OOP 

=  000004 

G 

#5-65 

LN.OPE 

=  000001 

G 

#5-65 

LN.REF 

=  000002 

G 

#5-65 

LN.SER 

=  000002 

G 

#5-65 

LN.STA 

=  000017 

G 

#5-65 

LN.SUB 

=  000360 

G 

#5-65 

LN.TRI 

=  000006 

G 

#5-65 

L.COST 

000015 

G 

#5-65 

L.CTL 

000012 

G 

#5-65 

L.CVA 

177776 

G 

#5-65 

L.DOM 

000002 

G 

#5-65 

L.DDS 

000004 

G 

#5-65 

L.DLC 

000003 

G 

#5-65 

L.DLM 

000006 

G 

#5-65 

L.DLS 

000010 

G 

#5-65 

L.FLG 

000000 

G 

#5-65 

L.KRBA 

000016 

G 

#5-65 

L.LEN 

^  000022 

G 

#5-65 

L.MPF 

000022 

G 

#5-65 

L.MMST 

000020 

G 

#5-65 

ON  29-JUN-85  AT  03:07 


PAGE 
CREF 


N     7 

04.00 


5-64 


5-169 


VTMP  -  VNP  TEMPLATE  PROCESSING  MACRO  V05.03b  Saturday  29-Jun-85  03:08  Page  8-1 
$TMP  -  TEMPLATE  FILE  PROCESSOR 


26A  000200 

265  000204  012667  000002' 

266  000210  162767  000002  000036' 

267  000216 
268 

269 
270 
271 

272  000220 

273  000220 

274  00022A 
275 

276 
277 
278 

279  000230 

280  000230 

281  000234 


CALL  SCLDEQ 

30$:    MOV  (SP)t,$FLAG2 

sua  #2,$SZPTR 
RETURN 


CLOSE  TEMPLATE  FILE 

RESTORE  $FLAG2 

RESET  SIZE  TABLE  POINTER 


PROCESS  TEMPLATE  FILE  FROM  "TMPAC2"  OVERLAY 
ItMFIX: 


CALL    STMFIL 
CALLR   SFILEX 


;  PROCESS  SECONDARV  TEMPLATE 
;  RETURN  TO  "JFILE"  SUBROUTINE 


ACCESS  BINARY  FILE  AND  RELOAD  TPARS  TABLES 
ABFI: 


CALL    $A8FI 
CALLR   STPARS 


PROCESS  FILE  NAME  OPERAND 
RELOAD  TPARS  TABLES 
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VTMP  -  VNP  TEMPLATE  PROCESSING  MACRO  V05.03b  Saturday  29-Jun-85  03:08  Page  18-2 
Symbol  table 

SV:VTMP.v2,[132,15^]VTMP/CR/-SP=S^:[1,1]RSXMCM.SML/ML,t130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]VTMP 


._J 
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VTMPI^J  -  7NP  TEMPLATE  INITIALIZ  MACRO  V05.03b  Saturday  29-Jun-85  03:08  Page  9 
FNDADD  -  FIND  LINE  TABLE 


193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 

207  000320 

208  000322 

209  000340 

210  000344 

211  000350 

212  000354 

213  000370 

214  000374 

215  000400 
216 

217  000402 

218  000406 
219 

220  000412 

221  000416 

222  000420 

223  000424 

224  000426 

225  000432 

226  000434 

227  000436 
228 

229  000440 

230 

231 

232 

233  000442 

234 

^35 

236 


.S8TTL  FNDADD  -  FliJD  LINE  TABLE 

FNDADD  -  FIND  LINE  TABLE  ADDRESS 

INPUTS: 

R1  =  VECTOR  ADDRESS 

OUTPUTS: 

$ADDR  =  LINl"  TABIE  ADDRESS 
R1  =  PRESERVED 
R2  =  DESTROYED 


016702  OOOOOOG 

010267  OOOOOOG 

016701  OOOOOOG 

012702  OOOOOOG 

005767  OOOOOOG 
100404 

066702  rr,t   jg 

162702  J00U04 

022712  004537 

001405 

022722  000137 

001006 

011267  OOOOOOG 

005702 
001401 


000004 
000001 


FNDADD: 

SAVRG 

<R1> 

GETRV 

Rl,#4 

MOV 

$8FR,R2 

MOV 

R2,$ADDR 

MOV 

$IC8LN,R1 

GETRV 

R2,R1 

MOV 

#$8FR,R2 

TST 

.MGMGE 

BMI 

3$ 

ADD 

$ICBLN,R2 

sue 

#4,R2 

3$: 

CMP 

#4537, (R2) 

BEQ 

10$ 

CMP 

#137,(R2)+ 

BNE 

101$ 

5$: 

MOV 

{R2),$ADDR 

10$: 

RESRG 

<K1> 

TST 

R2 

BEQ 

101$ 

RETURN 

;  ERROR 

CONDITIONS 

101$: 

lOT 

PRESERVE  Rl 

READ  IN  VECTOR 

POINT  AT  KB  OR  LINE  TABLE 

ASSUME  VECTOR  POINTS  AT  LINE  TABLE 

GET  IC8  SIZE 

READ  IN  PART  OF  POSSIBLE  KB 

POINT  TO  KB 

MAPPED  SYSTEM? 

BR  IF  NO 


POINT  TO  KEY  WORD  IN  KB 

IF  "JSR  R5,X",  THEN  LINE  TABLE  ADDRESS 

iF'"JHP  LINE-TABLE",  THEN  LINE  TABLE 
..ADDRESS  IS  NEXT  WORD,  ELSE  ERROR 
SAVE  REAL  LINE  TABLE  ADDRESS 
RESTORE  Rl 
SUCCESS  ? 
IF  EQ,  NO 


WHAT  iS  R2  POINTING  AT  ???? 


.END 


VTST   - 
tVTST 


VNP    TESTING   ROUTINES 
-  VNP   TESTING  ROUTINES 


286 
287 
288 

289  001326 

290  001 35A 

291  00U02 

292  00K30 

293  001434 
294 

295 
296 

297  001436 

298  001464 

299  001512 

300  001516 
501 

302 
303 
304 

305  001520 

306  001524 

307  001562 

308  001612 

309  001642 

310  001644 

311  001646 

312  001652 

313  001656 

314  001716 

315  001746 

316  001750 

317  001752 

318  001754 

319  001756 

320  002006 

321  002010 

322  002040 
323 

324 

325  002042 

326  002044 

327  002046 
002051 

328  002052 
329 

330 
531 
352 
333 

334  002054 

335  002060 
556  002064 
537  002070 
558  002072 
339  002150 
540  002160 
341  002210 
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PUT  2281 T  VIRTUAL  ADDRESS 


016705  OOOOOOG 


005705 
001461 

012705  OOOOOOG 
012704  000020 


005305 
001417 
005504 
003340 

000721 


012    015 
040    Oil 
040     054 
000 
000 


016703  OOOOOOG 

062703  000001 

042703  000001 
006203 


005703 


PUTAD: 


XI 04: 


GETNUM 

GETNUM 

GETNUM 

PUTAD 

RETURN 


<eiAS>,$RBLCK,X104 

<VIRTUAL  ADDRESS>,$RADDR,X104 

<NUM8ER  OF  BYTES>,$RSIZE,X104 


PUT  1681 T  VIRTUAL  ADDRESS 


PUTRC: 


XI 05: 


GETNUM 
GETNUM 
PUTRC 
RETURN 


<VIfiTUAL  ADDRESS>,$RADDR,X105 
<NUM8ER  Of  ByTES>,$RSIZE,X105 


073 


•  DUMP 

BYTES  FROM  BUFFER 

.ENA8L 

LS8 

DUMPS: 

MOV 

$RSIZE,R5 

TYPEN 

R3,LF 

TYPES 

<  BYTES  IN  BUFFER>,CR 

TYPES 

<  >,LFCR 

TST 

R5 

Bfcu 

50$ 

MOV 

#$eFR,R5 

10$: 

MOV 

#16.,R4 

20$: 

TYPEN 

(R5)+,N0,0B 

TYPES 

<  >,N0 

DEC 

R3 

BEQ 

50$ 

DEC 

R4 

BGT 

20$ 

TYPE8 

#NEULIN,N0,#2 

8R 

10$ 

50$: 

TYPE? 
RE  TURK 

*NUL,CR,#1 

.DSASL 

LS8 

NEWLIN 

.BYTE 

12,15 

TA8: 

.BYTE 

40,11 

DELIM: 

.ASCTZ 

.;" 

NUL: 

.BYTE 
.EVEN 

0 

;•  DUMP 

WORDS 

.ENABL 

!S8 

DUMPW: 

MOV 

iRSIZE,R3 

ADD 

#1,R5 

8IC 

#1,R5 

ASR 

R5 

TYPEN 

R5,LF 

TYPES 

<  WORDS  IN  BUFFER>,CR 

TYPES 

<  .^LFCR 

TST 

R5 

ANYTHING  IN  BUFFER  ? 

IF  EQ,  NO 

POINT   AT  BUFFER 

16.    BYTES    TO  A  LINE 

OUTPUT  OCTAL  BYTE 

PUT  IN  SPACE 

MORE  IN  BUFFER  ? 

IF  EQ,  NO 

MORE  ROOM  ON  LINE  ? 

IF  GT,  YES 

ELSE,  TYPE  NEW  LINE 

AND  CONTINUE 

INSERT  CARRIAGE  RETURN 


GET  SIZE  OF  BUFFER  IN  BYTES 
ROUND  TO  NEXT  WORD 

CONVERT  TO  WURD5 
GIVE  LENGTH  OF  BUFFER 


ANYTHING  IN  BUFFER 
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m  000170 
U2 


RETURN 


,_J 


N  13 
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Symbol  table 


At$CH<= 

A$tCPS= 

At$PRl= 

A$$TRP= 

C$$CKP= 

CS$ORE= 

C$SRSH= 

D$$BUG= 

D$$!SK;  = 

D$$L11= 

D$$YNC= 

Dt$YNM= 

ERl 

ER2 

E$$XPR= 

FATAL  = 

Ft$LVL= 

.  AB5. 


000000 

000000 

000000 

000000 

000000 

OOOAOO 

177564 

1775U 

000000 

000001 

000000 

000000 

000AA6R 

00052AR 

000000 

*♦•»»•  GX 

000001 


F.NRBD= 

F.RS1Z= 

F.URBD= 

G$$TPP= 

G$$T5S^ 

Gt$TTK= 

GS$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LDSLP  = 

LINK 

L$$ASG= 

L$$DRV= 


«*•«•»  GX 

>«*»*«  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000166R 

000000 

000000 


L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$fCS= 
M$$MGE= 
M$$NET= 
M$$0VR= 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 


000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 


000000 
000526 
Errors  detected: 


000 
001 

0 


(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
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P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SYSFDB= 
S$$WRG= 
S$$VSZ= 
T$$KMG= 
T$$MIN= 
V$$CTR= 
X$$DBT= 
$ADRX  = 
SADRZ  = 


000000 
000000 
000010 
000000 
000001 
000000 
000000 
****** 

000000 
007600 
000000 
000000 
001000 
000000 
****** 
****** 


GX 


GX 
GX 


$ALN18= 

******  GX 

$BFR  = 

••*♦*•  GX 

$ER0UT= 

»•*•••  GX 

$GETAD= 

»*•**«  GX 

$PUTAD= 

**»...  GX 

$RSIZE= 

******  GX 

$SAVRG= 

••**•*  GX 

$SAVVR= 

******  GX 

$UNBAD= 

******  GX 

$UNBLK= 

♦♦**•*  GX 

$UN8SZ= 

*•♦••*  GX 

$UNEND=^ 

***♦*•  GX 

$VUN8 

OOOOOORG 

$$ 

■\77777 

$$$   = 

000450R 

$$$$  = 

000524R 

•♦•  Assembler  statistics 

Work   file  reads:  0 

Work,  file  writes:  0 

Size  of  work  file:  9928  Words  (  39  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SytyUNS.v2?!i32,i34ivUNB/CR/-SP=SV:[l,1]RSXMCM.SML/ML,[130,110]NETLlB/ML,[130,10]RSXMCM/PA:l,[132,10]VUNB 


,_J 


WNL   -   VNP   UNLOAD   ROUTINES 
GETIND  -  GET   PDV   INDEX 


397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410  0005?2 

411  000522 

010546 

412  000524 

016746 

OOOOOOG 

413  000530 

016705 

OOOOOOG 

414  000534 

022504 

415  000536 

001403 

416  000540 

005316 

417  000542 

003374 

418  000544 

000004 

419  000546 

005726 

420  000550 

166705 

OOOOOOG 

421  000554 

005745 

422  000556 

010504 

423  000560 

012605 

424  000562 

N  H 
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.SBTTL  GETIND  -  GET  PDV  INDEX 
GETIND  -  GET  PDV  INDEX  FROM  PDV  ADDRESS 


INPUTS: 
R4 


PDV  ADDRESS 


OUTPUTS: 

R4  =  PDV  INDEX 

ALL  OTHER  REGISTERS  PRESERVED 


GETIND: 


10$: 


20$: 


MOV 
MOV 
MOV 
CMP 
BEQ 
DEC 
BGT 
JOT 
TST 
SUB 
TST 
MOV 
MOV 
RETURN 


R5,-(SP) 

$PDVNM,-(SP) 

$PDVTA,R5 

(R5)*,R4 

20$ 

(SP) 

10$ 

(SP;t 

$PDVTA,R5 

-(R5) 

R5,R4 

(SP)+,R5 


FREE  UP  A  REGISTER 

GET  U   OF  PDV  ENTRIES 

POINT  TO  PDV  MAPPING  TABLE 

POINTING  AT  OUR  ENTRY  ? 

IF  EQ,  YES 

ANY  MORE  ? 

IF  GT,  YES 

ELSE,  CAN'T  FIND  PDV  INDEX 

CLEAN  UP  STACK 

CALCULATE  INDEX 

RETURN  INDEX  IN  R4 
RESOTRE  R5 
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fNOADD  -  MND  LiNf  TABLE  ADDRESS 

885 
885 
88; 
885 
886 
887 


889 

890 

891 

89? 

893 

89A 

895 

896 

897 

898 

899 

900 

901 

902 

903 

90A 

905 

906 

907 

908 

909 

910 

911 

912 

913 

9U 

915 

916 

917 

918 

919 

920 

921 

"22 

ni 

924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
955 
936 
937 
938 


DEICP  -  DEALLCOATE  ICB'S  (MULTIPROCESSOR  ONLY) 


INPUTS: 


$SLTA 

-  SLT  ADDRESS 

.K6TA8 

-  BIAS  OF  CPU  PARTITION  TABLE 

OUTPUTS: 

ICe'S  DEALLOCATED 

.If  DF 

R$$MPL 

ICP:   CALL 

tSAVAL 

SAVE  REG'S 

MOV 

$SLTA,R1 

GET  SLT  ADDRESS 

MOV 

L.KRBA(R1),R1 

GET  KRB  ADDRESS 

ADD 

#k.prm,r: 

ADJUST  R1  TO  OFFSET  0 

GETRV 

R1,#$KRBLN 

READ  KRB 

MOV 

#$BFR,RO 

SET  UP  BUFFER  ADDRESS 

sue 

#K.PRM,RO 

POINT  TO  OFFSET  0 

MOV 

K.PRM(RO),RO 

GET  KB  ADDRESS/2 

$:    MOV 

R0,R2 

COPY  KB  ADDRESS/2 

BIC 

#7^77. R2 

FROM  CPU  NUMBER 

BIC 

R2,R0 

•  •  > 

SWAB 

R2 

ASR 

R2 

ASR 

R2 

•  •  • 

ASR 

R2 

ASR 

R2 

MOV 

R2,CPU 

STORE  VALUE 

MOV 

#$ICAVL,R3 

GET  IC8  AVAILABLE  LIST 

MOV 

CPU.Rl 

GET  CPU  NUMBER 

ASL 

R1 

MULTIPLY  BY  8. 

ASL 

R1 

ASL 

R1 

ADD 

R1,R3 

CALCULATE  KB  LISTHEAD 

MOV 

SICBLN.RI 

GET  KB  LENGTH 

MOV 

CPU,R2 

COPY  CPU  NUMBER 

ASL 

R2 

CONVERT  TO  WORD  INDEX 

ADD 

.K6TAB,R2 

GET  CPU  LOWCR  BIAS 

SUTCHI 

#KeVL 

SET  INPUT  BUFFER 

GETRV 

R2,#2 

READ  CPU  BIAS 

MOV 

ICeVL.SRBLCK 

SET  UP  BIAS 

ASL 

RO 

CREATE  KB  VIRTUAL  ADDRESS 

SWTCHI 

#NXIC8 

SWITCH  INPUT  BUFFER 

GETAD 

R0,#2 

■  GET  NEXT  KB  ADDRESS 

sue 

#2,R0 

■  INCLUDE  LENGTH  FILED 

SWTCHI 

■  RESET  BUFFER 

SWTCHO 

•  RESEl  BUFFER 

.•CMPon 

;[MP01] 
;[MP01] 
;[MP01] 


VSFT 


VSTB 


G 

H 

1 

J 

K 

L 

M 

N 

B 

C  7 

D  7 

E  7 

F  7 

G  I 

H  7 

I  I 

J  I 
K  Z 

li  f 
N  7 
B  8 

I  I 

F  8 

G  8 

H  I 

K  8 

L  8 

M  8 
N 


VSYM 


VTMP 


B  10 
C  10 
D  10 


F 

10 

F 

10 

r, 

10 

H 

10 

1 

10 

J 
K 

1 

10 

M 

1 0 

N 

10 

B 

11 

C 

1 1 

D 

11 

F 

11 

F 

11 

G 

11 

H 

11 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

V 

D 

V 

F 

V 

F 

^? 

G 

}? 

H 

V 

1 

]? 

,1 

V 

K 

V 

1 

V 

M 

V 

N 

V 

R 

H 

r 

n 

1) 

n 

F 

H 

F 

i< 

G 

n 

H 

n 

I 

1i 

./ 

n 

K 

H 

1 

1? 

M 

n 

N 

1i 

R 

u 

r 

u 

1) 

u 

F 

u 

F 

H 

G 

u 

H 

u 

1 

u 

J 

u 

K 

u 

1 

1A 

VTMPIN 


VTST 


VUMR 


VUNB 


VUNL 


M 

N 

R 

r 

n 

F 

F 

G 

H 

I 

.1 

K 

1 

M 

N 

R 

r 

D 

lA 

F 

16 

F 

1A 

G 

16 

H 

16 

I 

16 

J 

16 

K 

16 

1 

16 

M 

16 
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H68  00A47A 
U69  00A476 
H70 

H71  U04510 
1A72  004516 
U73  004520 

1474  004526 

1475  004530 

1476  004536 

1477  004540 

1478  004546 
1479 

1480  004550 

1481  004556 

1482  004560 

1483  004564 

1484  004570 

1485  004574 
1486 

1487 
1488 
1489 

1490  004576 

1491  004576 

1492  004602 
1493 

1494  004604 
1495 

1496  004614 

1497  004632 

1498  004636 

1499  004642 

1500  004646 

1501  00465C 

1502  004652 

1503  004656 
1504 

1505 
1506 
1507 

1508  004660 

1509  004666 

1510  004706 
1511 

'512  004714 

•513  004720 

1514 

'515  004722 

'516 

•517  004752 

1518  004750 

1519  004 754 

1520  004  760 
152'  004  764 

1522  004766 

1523  00^770 
•52i  004  772 


001437 


022767 
001762 
022767 
001756 
022767 
001752 
022767 
001746 

026764 
001342 
005067 
005067 


016700 
001425 


012701 
016746 

012600 
001355 
005067 


054523  OOOOOOC 

041114  OOOOOOC 

046103  OOOOOOC 

044524  OOOOOOC 

OOOOOOC  OOOOOOC 

OOOOOOC 
OOOOOOC 


20$: 


BEQ 
GETRV 

CMP 
BEQ 
CMP 
BEQ 
CMP 
BEO 
CMP 
BEQ 

CMP 

BNE 

CLR 

CLR 

PUTRC 

RETURN 


20$ 
,#D.PC3+2 

#"SY,D.NAMt$BFR 

10$ 

#"LB,D.fMM+$BFR 

10$ 

#"CL,D.NAHt$8FR 

10$ 

*"Tl,DJJAMt$BFR 

10$ 


IF  ZERO,  ALL  DONE 
READ  IN  DCB  IMAGE 

SKIP  SHORT  DCS'S 

IF  SV;  -  BRANCH 

LB:  DCB  ? 

IF  YES  -  BRANCH 

CL:  DCB  ? 

IF  YES  BRANCH 

TI:  DCB  ? 

IF  YES  -  BRANCH 


D.PCB+$F)FR,Z.PCB(R4)  ;  SAME  PCB  AS  OUR  PROCESS? 


10$ 

D.DSP+$EFR 

D.PC6+$BFR 


IF  NE,  NO 
MARK  DEVICE  AS 


'UNLOADED. 


OOOOOOG 


000012 
OOOOOOG 


OOOOOOG 


016700 
001437 


016746 
C12701 
062701 
1P102 
06.  01 
112102 
060201 


OOOOOOG 


OOOOOOG 
OGuOOOG 
000020 


;  DE 

-ALLOCATE  OBJECT  TAE,LES 

xriRj 

TR: 

MOV 

$08JHD,R0 

BEQ 

30$ 

10$: 

CEACC$ 

R0,R3 

20$: 

GETAD 

R3,#4 

MOV 

#0.LEN,R1 

MOV 

$BFR,-(SP) 

CALL 

$DEPOL 

MOV 

(SP)+,R0 

B'" 

10$ 

Cl,, 

$R8LCK 

30$: 

RETURN 

;  DE 

-ALLOCATE  ALIAS  TABLES 

XALITB: 

SUTCHI 

#$HMBUF 

GETRV 

$DECPT,(fD$END 

SWTCHI 

MOV 

$HMBUF+D$ANN,RO 

BEQ 

30$ 

10$: 

CEACC$ 

R0,R3 

20$: 

c:tad 

R3,#4 

MOV 

$8FR,-rP) 

MOV 

#$8FR,R1 

ADD 

*A.ACC,R1 

MOVB 

(R1)+,R2 

ADD 

R2,R1 

MOVB 

(r1)+,R2 

ADD 

R2,R1 

WRITE  PCB  BACK  TO  SYS  IMG 

BACK  TO  USER  MODE  AND  THEN  TO  CALLER 


POINT  AT  START  OF  OBJECT  TABLE  LIST 
IF  EQ,  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

GET  THE  OBJECT  BLOCK 

GET  LENGTH  OF  OBJECT  BLOCK 

SAVE  ADDRESS  OF  NEXT  BLOCK 

DE-ALLOCATE  THE  OBJECT  BLOCK 

::ET  UNMAPPED  ADDRESS  OF  NEXT  BLOCK 

IF  NE,  MORE 

ELSE,  CLEAN  UP 


USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

POINT  AT  START  OF  OBJECT  TABLE  LIST 
IF  EQ,  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

G:T  the  ALIAS  BLOCK 

SAVE  THE  ADDRESS  OF  NEXT  ALIAS 

CALCULATE  LENGTH  OF  THIS  ALIAS 

POINT  AT  START  OF  ACC.  INFO. 

LENGTH  OF  FIRST  FIELD 

LENGTH  OF  SECOND  FIELD 


VUNL  -  VNP  lNLOAD  ROUTINES 
'"EX  -  CLEAR  SYS 
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VUNL       CREATED  BY  MACRO  ON  16-SEP-85  AT  07:31 
SYMBOL  CROS:  REFERENCE 


SYMBOL   VALUE 


FF.CON 

FF.FIL 

FF.HST 

FF.LIN 

FF.MOD 

FF.MON 

FF.MS< 

FF.PRT 

FF.QUL 

FF.REM 

FLT 

FLT16 

FL.PXl 

FL.PX2 

FNDADD 

F.ADD 

F.CEV 

F.CIR 

F.CLS 

F.EVT 

F.FLG 


LEN 
LIN 
F.LN< 
F.MOD 
F.NRBD 
F.REM 
F.RSIZ 


=  00000^ 

=  000002 

=  040000 

=  000010 

=  000100 

=  OOOOOA 

=  000077 

=  000200 

=  000570 

=  100000 

0052A2 

005242 

=  ***  **^ 

=  ****** 

002 17A 

000016 

000030 

00002A 

000002 

000004 

000014 

000016 

000020 

000000 

000022 

=   ****** 

000026 


F.SEV 

F.URBD 

GETIND 

GETPDV 

ICBLK 

KBSAV 

ICBSC 

ICBSZ 

IS$AS 

KMCB 

K.VCT 

LF.ACT 

LF.ENA 

LF.RDY 

LF.UNL 

L.CTL 

L.DDI»1 

L.DDS 
L.DLC 
L.DLM 


R 

R 
GX 
GX 


GX 
GX 


000004 

«***«* 

000522 
002150  R 
000150  R 
000174  R 
003132  R 
000176  R 
•  ****♦ 
000114  R 
000001 


GX 


-  ****** 

-  ♦■***** 


r  ****** 


GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 


REFERENCES 

#5-80 
#5-80 
#5-80 
#5-80 
#5-30 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#22-1593 

14-739 

8-264 

12-585 

14-737 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
#5-80 
♦17-1047 
#5-80 
♦7-208 
♦11-524 
♦  21-1271 
♦23-1776 
#5-80 
♦18-1089 

8-382 

14-654 
#6-177 
#6-178 

17-1020 
#6-179 

10-449 
#6-148 

14-726 

14-651 

14-651 

14-651 

14-778 

15-871 

14-653 

20-1218 
•19-1181 

12-575 
♦12-578 


5-80 
5-80 

21-1570 
5-80 


#22-1592 
12-571 

#15-825 


21-1569 


♦8-322 
♦14-700 
♦21-1394 
♦24-1814 

♦18-1165 
#9-410 

14-743 

18-1089 
♦17-1014 

17-1043 
♦17-1015 

10-463 

17-9:6 


15-863 

15-871 
14-738 


14-760 
♦14-771 


B     2 
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CREF        04.00 


VUN 
LOC 


23-1654 
12-580 


♦  20-1225       ♦20-1227       ♦23-1773       ♦23-i:'78 


♦8-334 
•15-827 
♦21-1469 
♦25-1849 

♦21-1508 

14-765 

18-1118 

•17-1025 

#18-1089 

♦18-1161 

10-476 


21-1290 

19-1179 
14-760 


U-764 


♦10-442 
♦15-856 
♦21-1496 


♦10-453 
♦17-962 
♦21-1509 


♦10-466         ^10-479         ^10-485         ♦10-497 
♦17-1007       •17-1050       ♦20-1226       ^21-1264 
♦21-1517       ^21-1538       ^21-1547       ^21-1567 


♦21-1510       ^21-1537       ^21-1539       ^22-1596       ^22-1641 
#14-793 
25-1669 

25-1668 

10-493 


19-1179 
15-868 


14-768 


11-531 


20-1220 
15-868 


15-865 


17-1051 


20-1220 
19-1177 


15-865 


19-1177 


19-1183 


19-1183 


20-121? 


VUNL  CRiATED  BY     MACRO     ON   16-SEP-85   AT    07:51 
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CREF        04.00 


vu^ 

$XF 
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LOCAL  DATA 


99  000000 
100 

101  oooooc 

102 

103  000000 


.SeTTL 
.PSECT 

LSTHBF:  .BLI^W 

.PSECr 


LOCAL  DATA 
DATA.D 


BUFFER  FOR  LISTHEADS  FROM  HOME  BLOCK 


;[TD001] 
;[TD001] 
;[TD001J 
;[TD001] 
;CTD001] 


C  3 
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tXPSI  -  Unload  PSI  data  base? 


Page  8 


■T^.^C)M^ 


B  4 
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AStCHK^ 

A$JCPS= 

A$$PRI= 

A$$TRP= 

CF$BLK= 

CSDTB 

CSfLG 

CtGNAM 

CtLCN 

C$LFN 

CSLNK 

CSNAM 

CSNML 

CSPORT 

C$$C^P= 

C$SORE= 

C$$RSH= 

DEACUG 

DEADST 

DEALST 

OEAPVC 

DSACL 

DSCUGL 

DSCUGN 

DSOATL 

D$DSL 

D$DST 

DSDTEL 

DSfLEN 

DSGLEN 

DSGVBL 

DSLNK 

DSNAM 

OSNOD 

DtOBJ 

D$PAL 

D$PRI 

D$PRL 

D$SHI 

DSSLO 

DSUSl 

DSVSL 

D$$dUG= 

D$$ISK= 

D$$L11= 

D$$YNr= 

D$$YN»1= 

E$$XPR= 

F$$LVL  = 

F.KSIZ= 

F.URBD= 

GF$BuG= 

GSCUG 

G$DTE 

GSFlG 

GSGNAM 

G$lE^ 


000000 
000000 
000000 
000000 
000102 
000012 
000015 
000016 
000010 
000016 

oocooo 

000002 

000002 

OOOOU 

000000 

000400 

17756'i 

00057;r 

000552R 

0020A6R 

000216R 

000027 

000023 

000022 

000030 

000022 

000010 

000031 

000032 

OOU032 

000032 

000000 

OCOOOA 

000010 

00C003 

000026 

000002 

000024 

000020 

000016 

000025 

000032 

1775U 

000000 

000001 

000000 

000000 

000000 

000001 

*♦♦•♦*  JX 

«♦*•♦•  GX 

000001 

000010 

000012 

ooocu 

0000 '6 
000016 


G$LNK 

G$NAM 

G$NML 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HF$DLM= 

HF$GWY= 

HF$H0S= 

Hf$XDF= 

HSCUG 

HSDST 

H$D29 

HSFLG 

HSGlEN 

H$GLT 

HSGNAM 

H$GNML= 

HSGPT 

HSHITS 

HSHLEN 

HSLBDA 

H$LBDN 

h'SLDTE 

HiLEN 

HSLOTi 

HSNETW 

H$NML  = 

H$NPT 

H$PTB 

HSPVC 

HSRDTE 

HSRNW 

HSSVC 

H'STRB 

rtSXAVL 

HSXBIA 

H$X29C 

I$$RAR= 

I$$RPN= 

K$HIC 

KtlEH 

K$LNK 

K$LOC 

K$$CNT= 

K$SCjR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LN$OFF= 

LN$0N  = 

LN$SHU= 

LP$EIP= 

LP$ENe= 

LP$PCT= 

LP$TMR= 


000000 
000002 
000015 
000000 
000000 
000000 
000000 
000002 
000010 
000004 
000020 
000010 
000012 
OOOOU 
000000 
000104 
000044 
U00050 
000020 
000046 
000034 
000044 
000070 
000072 
000002 
000042 
000032 
000024 
000006 
000022 
000020 
000006 
000004 
000042 
000036 
000016 
000100 
000074 
000040 
000000 
000000 
000004 
000006 

ooocoo 

000002 
177546 
177546 
000000 
000074 
000000 
000001 
000000 
000002 
002000 
004000 
001400 
100000 


LP$UP  = 

LP$WTD= 

LP$WTS= 

LSTHBF 

LS$GDN= 

LS$OFF= 

LS$STR= 

LSSUP  = 

LSSUT  = 

LSACHN 

LSAPVC 

LSASVC 

L$AUC 

LICHLS 

LSCHTB 

'.$CLEN= 

LSCTEN 

LSCTIM 

LtDFEA 

LSDTEL 

LSGIEN 

LSLCN 

L$LLCH 

L$LNK 

L$MCHN 

L$NETW 

LSNIRE 

LSNLRE 

LSNMAC 

LSNMAS 

LSNMS: 

LINNRE 

LSNRBY 

LSNRCA 

LSNRFS 

LSNRPIC 

LSNRRE 

LSNRST 

LSNTBY 

LSNTCA 

LSNTFS 

LINIPK 

L$0MST 

LSPCS 

L$PLS 

L$QCNT 

LSQUEH 

LSQUET 

L$RrRy 

L$SLN 

L$ST 

L$TCLZ 

LlUf. 

L$$A^-G  = 

L$$DRV= 

L$$Pn=: 

L$$11R= 


010000 

020000 

040000 

OOOOOOR 

000004 

000000 

000002 

000003 

000001 

000012 

000014 

000010 

000042 

000034 

000030 

000044 

000032 

000040 

000020 

000017 

000134 

000122 

000016 

000000 

000036 

000114 

000072 

000104 

000076 

000074 

000003 

000106 

000046 

000066 

000100 

000056 

000105 

000107 

000052 

000070 

000102 

000062 

000002 

000112 

000110 

000122 

000124 

000130 

000007 

000004 

000005 

000044 

000006 

000000 

000000 

000001 

ocoooo 


M$$CRB= 
M$$CRX= 
M$$FCS= 
002  M$$«GE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV^ 
N$$NCT= 
N$$PEM^ 
PF.PSV= 
PF.XDF= 
PF.XGA= 
P$$P45= 
P$$WRD= 
3$ACTC 
QSAUC 
Q$CLEN= 
QSCTIM 
QSKRE 
Q$LEN 
QtMXAC 
QSMXVC 
QSTCuZ 
Q$$OPT= 
R$ACC 
RSACL 
R$DAL 
R$DTE 
R$LEM 
R$LNK 
RSNAM 
R$NML 
R$NOD 
R$NWK 
R$NWL 
R$NXT 
RSOWN 
R$PAL 
R$PAS 
R$RO  ^■ 
R$R1   = 
R$R2   = 
R$R3  = 
R$R4   = 
R$R5  = 
RSUSL 
RSUSR 
R$$DFR= 
R$5K11= 
R$$SND= 
R$$11M= 
SF$BLK= 


000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

»*♦♦»*  GX 

******  GX 

**««»*  GX 

000000 

000000 

000004 

000006 

000006 

000000 

000014 

000016 

000012 

000002 

000010 

00C11C 

000064 

000063 

000013 

OOOOU 

000024 

000000 

000002 

000002 

000023 

000003 

000104 

000000 

000010 

000052 

000053 

000002 

000004 

000006 

000010 

0000  i  2 

OOOOU 

000031 

000032 

000000 

000001 

000000 

000000 

000001 


SF$INC= 

SYSFDB= 

SSADSZ 

SSCTL 

S$DTE 

S$FLG 

S$LEN 

SSLFT 

S$LNK 

SSOWNR 

SSPKSZ 

S$RCL 

SSSTA 

S$TIM 

SSTMR 

SSWND 

S$$WRG= 

S$$YSZ= 

TC$LNG= 

TC$TDA= 

TR$DCE= 

TR$FIL= 

TR$0VR= 

TR$TRU= 

TR$TX  = 

TS.BLK= 

TS.CKP= 

TS.CKR= 

TS.EXE= 

TS.HLD= 

TS.MSt^ 

TS.NRP= 

TS.0UT= 

TS.RDN= 

TS.RUN= 

TS.STP= 

TYSLAB- 

TY$LAP= 

T$CBUF 

T$CEND 

TSfFLG 

T$CIN 

TSCLEN 

TSCMAP 

TSCOUT 

TSCSIZ 

TSfTCB 

TSCUSE 

T$LCH< 

TSIFLG 

T$LIt)N 

TSLLEN 

TSLTIM 

TSLTRA 

TSLTSK 

T$RCNT 

TSRFLG 


000002 

*  -r  *  *  *  + 

000007 
000002 
000020 
000010 
000032 
000012 
000000 
000030 
000004 
000013 
000003 
000014 
000016 
000006 
000000 
007600 
000002 
000001 
000010 
000001 
000004 
000020 
000002 
171700 
C00200 
000100 
100000 
002000 
020000 
010000 
000400 
040000 
004O00 
001000 
000002 
000000 
000004 
000006 
000000 
000012 
000020 
000002 
000014 
000010 
000016 
000001 
000076 
000034 
000050 
300100 
000004 
000000 
000024 
000002 
000000 


GX 
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28A 
285 
286 
287 

;   *  *  *  - 

MANi'M 

-  INITIALIZE  MANAGEMENT  FI 

F'  S  OF  SLI 

•  irjPUTS: 

288 

RO  =  SLT  ADDRESS 

289 

or  ^ 

■  OUTPU 

'S: 

C   1 

2-2 
293 

R1,R2  = 

DES,  JYED 

\. 

29', 

295  000512 

MAMINI: 

296  000512 

016702 

OOOOOOG 

MOV 

$SLTNM,R^ 

GET  NUMBER  OF  LINES  IN  SYSTEM 

297  ^00516 

01670'! 

OOOOOOG 

MOV 

$SLTMA,R1 

POINT  ro  SLT  MAPPING  TABLE 

298  000522 

022100 

10$: 

CMP 

(Rl)-t,RO 

FIND  SLT  POINTER  IN  TABLE 

299  00052A 

001403 

BEQ 

20$ 

IF  EQ,  GOT  IT 

300  0C0526 

005302 

DEC 

R2 

ANY  MORE  SETS  ? 

301  000530 

001374 

BNE 

10$ 

IF  ^...,  YES 

302  000532 

000004 

lOT 

SLT  lOT  FOUND  ??? 

303  00053A 

005741 

20$: 

TST 

-(R1) 

BACK  UP  TO  SLT  ADDRESS 

30A  000536 

166701 

OOOOOOG 

SUB 

$SLTMA,R1 

CALCULATE  SLN*2 

305  000- '.2 

066701 

OOOOOOG 

ADD 

$LLCTA,R1 

POINT  AT  ENTRY  IN  LLC  TABLE 

306  000546 

"■t'002 

OOOOOOG 

Move 

L.NSTA(RO) 

,R2 

GET  NUMBER  OF  TRIBUTARIES 

307  000552 

308 

309 

l:"424 

BEQ 

50$ 

IF  ED,  PT-TO-PT  LINE 

;  MULT  I 

-POINT  LIME 

310 

311  000554 

010246 

MOV 

R2,-(SP) 

SAVE  NUMBER  OF  TRIBUTARIES 

312  000556 

010002 

M0\/ 

R0,R2 

POINT  TO  START  OF  TRIBUTARIES 

313  000560 

062702 

OOOOOOG 

ADD 

#L.MPF,R2 

31A  00056A 

011101 

MOV 

(RD.RI 

GET  ADD/2  OF  MULTI-POINT  TAB1.E 

315  000566 

100401 

BMI 

30$ 

MAKE  SURE  SIGN  BIT  IS  SET 

316  0005^0 

000004 

lOT 

CONSISTENCY  ERROR 

317  000572 

006301 

30$: 

ASL 

R1 

FORM  ADDRESS  OF  ThBLE 

318  000574 

105721 

40$: 

TSTB 

(R1)  + 

SKIP  LLN 

319  000576 

112162 

OOOOOOG 

MOVB 

(R1)+,S.0UNR(R2) 

FILL  IN  MANAGEMENT  OWNER 

320  0006C2 

112762 

OOOOOOG 

OOOOOOG 

Move 

#LN.OfF,S. 

NM5T(R2) 

■  AND  INITIAL  STATE  IS  OFF 

521  000610 

062702 

OOOOOOG 

ADD 

#S.LEN,R2 

■  SKIP  TO  NEXT  TRIBUTARY 

322  000614 

005316 

DEC 

(SP) 

■  ANY  MORE  ? 

323  000616 

003366 

BGT 

40$ 

•  IF  GT,  YES 

324  000620 

005726 

TST 

{SP)  + 

•  ELSE,  CLEAN  UP  STACK 

325  000622 

325 

327 

329  000624 

000406 

BR 

60$ 

•  AND  RETURN 

•  PT-ro 

-PI  '  INE 

116160 

000001 

OOOOOOG  50$: 

MOVB 

1(Rl),L.OUNR(R0) 

■  FILL  IN  OWNER 

330  000632 

112760 

OOOOOOG 

OOOOOOG 

Move 

#LN.0FF,L. 

NMST(RO) 

;  AND  OFF  STATE 

331  000640 

60$: 

RETURN 

332 

333 

C00001 

.END 
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\/\/ 

vv 

XX      XX 

BBB8BBB8 

\/\/ 

vv 

XX      XX 

B88B8888 

vv 

vV 

XX      XX 

BB      B8 

vv 

'V 

XX      XX 

BB      B8 

vv 

V\/ 

XX   XX 

BB      88 

vv 

vv 

XX   XX 

88      88 

\/v 

vv 

XX 

86888888 

vv 

vv 

XX 

888BB888 

\/v 

vv 

XX   XX 

BB      B8 

vv 

vv 

XX   XX 

BB      88 

vv 

V 

XX      XX 

88      88 

vv 

v\ 

XX      XX 

BB      88 

vv 

XX      XX 

LLLLLLLLLL 

BBBB8BBB 

vv 

XX      XX 

LLL 

LL 

LLLL 

BBBB8888 

LL 

SSSSSS",S 

TT 

TTTTITT 

LL 

ssssssss 

TTTTTTTITT 

LL 

ss 

TT 

LL 

ss 

_L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

^LLLLLLlLl 

SSSSSSjS 

LLLLLLLLLL 

sssss.ss 

TT 
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AS.DEL= 

AS.EXT= 

AS."-(ED= 

AS.WRT= 

Atl':H<= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

A. IOC 

A.LGTHr 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A. STAT 

A.TCE 

A.TCBL 

CMODE  = 

C$$C<P= 

CS$ORE= 

C$$RSH= 

D$SBUG= 

OS$ISK= 

DS$L11= 

DS$YNC= 

D$SYNM= 

E$SXPR= 

FE.CAL^ 

FE.CEX= 

FE.DRV= 

FE.DYM- 

FE.EXP= 

FE.fXT= 

FE.EXV= 

FE.FDT= 

FE.LS1= 

FE.MUP= 

FE.MXT= 

FE.NLG= 

FE.OFF= 

■^E.PKT^ 

FT.PLA-- 


00001C 
OOOOC 
000001 
000002 
000000 
000000 
000000 
000000 
000003 

oooou 

000011 
000012 
000000 
000002 
000010 
OOOOOA 
000006 

uoooo 

000000 
OOOAOO 
17756A 
1 77514 
000000 
000001 
000000 
000000 
000000 
OOOOAO 
020000 
0000 iO 
010000 
000200 
000001 
OOOOOA 
00200C 
OOOAOO 
000002 
OAOOOO 
100000 
001000 
000100 
000020 


.  A8b.  000032 
000?44 
Errors  detected: 


000 
001 
0 


FE.X25= 
F$$LVL= 
F.NRBD= 
F.RS1Z= 
F.URBD= 
F2.ACN= 
F2.AHR= 
F2.DAS= 
F2.DPR= 
F2.EVT= 
F2.GGF= 
F2.IRR= 
F2.LIB= 
F2.MP  = 
F2.P0L= 
F2.RAS= 
F2.RBN= 
F2.SDW= 
F2.STP= 
F2.SWP= 
F2.WND= 
F3.AST= 
F3.CLi= 
F3.CRA= 
F3.EIS= 
F3.NUK= 
F3.PMM= 
F3.PR0= 
F3.RLK= 
F3.SHF= 
F3.STM= 
F3.TCM= 
F3.'JDS  = 
F3.WAr= 
F3.XHR= 
F3.11S= 
G$$TPP= 

G$$:ss= 

G$$rTK= 
G$$WRD= 
HF.C1S= 


GX 


004000 

000001 

******  GX 

******  GX 

****** 

000020 

010000 

000001 

000400 

000010 

002000 

001000 

000002 

000004 

00''^100 

004000 

020000 

000040 

100000 

040000 

000200 

000200 

001000 

000001 

000004 

0000^2 

0040uO 

000040 

020000 

040000 

000010 

002000 

000020 

010000 

000100 

000400 

000000 

000000 

000000 

ooocoo 

000200 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


'*'   Assembler  statistics 


Work   file  reads; 
Work   tile  writes; 
Size  of  work  file; 
Size  of  rore  pool 
Operating  system 


0 

0 

10635  Words  (  42  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PUS 


HF.EIS= 
HF.FPP= 
HF.QB  = 
HF.U8M= 
I$$RAR= 
I$$RDN= 
KDSARO= 
KDSDRO- 
KINARO= 
KINAR5= 
KINAR6= 
K]NAR7= 
K]SARO= 
KISAR5= 
KISAR6= 
KISAR7= 
KJSDRO^ 
KISDR6= 
KISDR7= 
K$$CNT-- 
K$$CSR= 
K$$LDC= 
K.$$TPS  = 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MPAR  = 
MPCSR  = 
M$$CR8= 
MI$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$0\/R= 
N$$ACC= 
N$$8UF= 
M$$LDV= 
M$$MCP^ 
N$$MLL= 


000002 
100000 
000004 
000001 
OOOCOO 
000000 
172360 
172320 
172340 
172352 
172354 
172356 
172340 
172352 
172354 
172356 
172300 
172314 
172316 
1775.,6 
177546 
000000 
0000:^4 
000000 
000000 
000000 
000001 
000000 
172100 
177746 
000124 
000000 
000000 
000000 
000000 
000000 
0000C1 
000001 
000001 
000001 
000001 


N$$M0V= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO   = 

PR1 

PR4   = 

PR5   = 

PR6 

PR7   = 

PS 

PS.APR= 

PS.CHK= 

PS.CKP= 

PS.CKR= 

PS.COM= 

PS.DEL= 

PS.DRV= 

PS.FXD= 

PS. 110= 

PS.NSF= 

PS.OUT= 

PS.PER= 

PS.PIC= 

PS.SYS= 

P$$P45= 

P$$WR[)= 

P.BLKS 

P. BUSY 

P..OC 

P.LNK 

P. MAIN 

P.  MAM 

P.  OWN 

P.PRi 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.SWSZ 


000010 
000001 
000001 
U7772 
030000 
000000 
000040 
000200 
000240 
000300 
000340 
177776 
000007 
010000 
040000 
020000 
000200 
000010 
000020 
004000 
001000 
000400 
100000 
002000 
000100 
000040 
000000 
000000 
000016 
000024 
000003 
000000 
000012 
000004 
000026 
000002 
000014 
000016 
000030 
000010 
000022 


P.TCB 

P. WAIT 

Q$$0PT= 

R$$DER= 

R$$K11= 

R$$SN"-  = 

R$$11M= 

SISDRO= 

SRO   = 

SR3   = 

SWR 

SYSFDB^ 

S$$WRG= 

S$$YSZ= 

TPS 

T$$KMG: 

T$$MIN= 

UBMPR  = 

IjDSAR0= 

UDSDRO= 

UISARO= 

UISAR4= 

UISAR5= 

UISAR6= 

UISAR7= 

UISDRO= 

UIS0R4= 

U1SDR5= 

U1SDR6= 

.  IS[)R7= 

V$$CTR= 

X$$CiBT  = 

$BFR  = 

$DEA16= 

$FMASK= 

$GETRV= 

$PUTRC= 

$RAPDR= 

$XPAR 

.PLGTH= 

.PPRO  = 


000026 
000020 
000010 
000000 
000001 
000000 
000000 
172200 
177572 
172516 
177570 
******  5x 

000000 
007600 
177564 
000000 
000000 
170200 
177660 
177620 
177640 
177650 
177652 
177654 
177656 
177600 
177610 
177612 
177614 
177616 
001000 
000000 

******  QX 

******  GX 
******  GX 
******  GX 
****»♦  GX 
******  GX 
OOOOOORG 
******  GX 
******  GX 
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SymCol 

table 

At$.CH<= 

000000 

CS.DIS= 

000040 

D$END  = 

000104 

FS.EXI= 

001000 

LF.SER= 

000040 

AtSrPS= 

000000 

CS.ENA= 

000001 

DSFNB 

000034 

FS.CET= 

006000 

LF.TIM= 

000010 

A$$0R1= 

OOOOOO 

CS.ENB= 

000020 

OSHIOR 

000024 

FS.HLT= 

OOOOOO 

LF.UNL= 

020000 

AISTRP= 

000000 

CS.cRR= 

100000 

DSHOST 

000022 

FS.I/gi  = 

OOOOOO 

LF.X2P=: 

OOOOOO 

BUFUMP= 

17235A 

CS.FTL= 

001O0C 

[)$INAC 

000044 

FS.KU.= 

OOOOOO 

LLCAL  = 

******  GX 

CB.CCB= 

000002 

CS.HCR= 

000001 

DSINCT 

000042 

FS.LCL= 

100000 

LN.CLO^ 

OOOOOO 

CB.DDM= 

000040 

CS.HFE= 

002000 

D$IPL 

000051 

FS.LTM= 

001000 

LN.OUM= 

000005 

CB.DLC= 

000020 

CS.LST= 

040000 

D$LID 

000020 

FS.MNT= 

004000 

LN.LOA= 

000004 

CB.RDB= 

OOOOOA 

CS.MTL= 

004000 

DSLNAM 

000006 

FS.MSN= 

014000 

LN.L00= 

000003 

CB.-.r"^: 

000010 

CS.RNG^ 

000010 

DSLNUM 

000014 

FS.REA= 

001000 

LN.OAU= 

000003 

CB.SLi= 

000100 

CS.R0V= 

000004 

D$LST 

000047 

FS.RET= 

OOOOOO 

LN.OFF= 

000001 

CB.XLB= 

000001 

CS.RSN= 

010000 

D$MAXC 

000064 

FS.REZ= 

003000 

LN.ON  = 

OOOOOO 

CC.LLC= 

000200 

rS.SHU= 

000001 

DSMAXH 

000066 

FS.RLB= 

002000 

LN.OOP= 

000004 

CE.ABO= 

100362 

CS.SID= 

000002 

DS.IAXV 

000070 

FS.RNG= 

o-'iooo 

LN.OPE= 

OOOOo! 

CE.DAO= 

1003A6 

CS.STR= 

000004 

DSfILL 

000040 

FS.kST= 

OOOOOO 

LN.REF= 

000002 

CE.?!S^ 

100366 

CS.SUC= 

000001 

DI^INOD 

000041 

FS.RTNI= 

001000 

LN.SER= 

000002 

fE.ERR= 

100370 

CS.TI«0= 

020000 

D$NA 

000062 

FS.SET= 

005000 

LN.STA= 

000017 

CE.ILN= 

100350 

CS.XUR= 

000004 

DINBEA 

000056 

'■S.SFC  = 

005.00 

LN.SUB= 

000360 

CE.LTO= 

100356 

C$$CKP= 

OOOOOO 

DSNBRA 

000054 

Fb.SFR= 

006000 

LN.TRI= 

000006 

CE.MOP= 

100372 

C$$ORE= 

000400 

D$NEND= 

000054 

FS.SFS= 

004000 

LS.CEX= 

******  GX 

CE.NTE= 

100361 

C$$RSH= 

177564 

DSNLN 

000030 

FS.SPU= 

040000 

LS.NTI= 

******  GX 

fE.RTF= 

100376 

C.ADD 

000034 

D$NN 

000060 

FS.STM= 

OOOOOO 

LS.TOP= 

******  GX 

CE.SRC-- 

100364 

C.8ID 

000003 

DSOUTT 

000043 

FS.STP= 

002000 

LX.CEX= 

******  GX 

CE.STP= 

100352 

C.BUF 

000014 

DSRETF 

000050 

FS.SrR= 

001  COO 

L$$ASG= 

OOOOOO 

CE.TME= 

100354 

C.BUF1 

000014 

DIRNN 

000002 

FS.TRM= 

003000 

L$$DRV= 

onoooo 

CE.TMO-- 

'00374 

C.BUF2 

000024 

DSRTMR 

000076 

FS.WLB= 

001000 

L$$P11= 

000001 

CE.UNS= 

100344 

C.CNT 

000020 

DSSEG 

000036 

FS.XKL= 

002000 

L$$11R= 

OOOOOO 

CF.CHN= 

000001 

C.CNT1 

000020 

0$SER 

000032 

FS.XOF= 

010000 

I .COSF 

000015 

CF.EOM= 

000004 

C.CNT2 

000030 

DSSQRL 

000052 

FS.XON= 

007000 

L.CTL 

000012 

Cr".HDR  = 

000020 

C.FL6 

u00022 

D$$BUG= 

177514 

FS.ZER= 

002000 

L.CVA 

177776 

CF.LB  : 

100000 

C.FLG1 

000022 

D$$IS<= 

OOOOOO 

F$$LVL= 

000001 

L.[)DM 

000002 

CF.LIN= 

000002 

C.FLG2 

v;OO032 

D$$L11= 

000001 

G$$TPP= 

OOOOOO 

L.DDS 

000004 

CF.SOM= 

000010 

C.FNC 

000010 

D$$VNC= 

OOOOOO 

G$$TSS= 

OOOOOO 

L.DLC 

000003 

CF.SVN= 

000040 

C.LIN 

000006 

D$$yNM= 

OOOOOO 

G$$TTK= 

OOOOOO 

L.DLM 

000006 

CF.TRN= 

000100 

C.LNK 

OOOOOO 

E$$XPR-- 

OOOOOO 

GSSWRl;- 

OOOOOO 

L.DLS 

000010 

CMODE  = 

140000 

C.MOD 

000011 

FC.CCP= 

000020 

INIFUN 

000030R 

002  L.FLG 

OOOOOO 

CM.CIR= 

ooooc? 

C.NSP 

000004 

FC.CTL= 

000006 

I$$RAR= 

OOOOOO 

L.KRBA 

000016 

rM.F!i1T  = 

100000 

C.PRO 

000042 

FC.KCP= 

000016 

I$$RDN= 

OOOOOO 

L.LEN  = 

000022 

CM.HRD= 

00C002 

C.RSV 

000002 

FC.KIL= 

000004 

KISAR0= 

172340 

L.MPF 

000022 

CM.LIN= 

000000 

C.STA 

000007 

FC.MAN= 

000024 

K[SAR6= 

172354 

L.NMST 

000020 

CM.LOO= 

000001 

C.STS 

000012 

FC.MLD= 

000026 

KSAR6  = 

******  GX 

L.NSTA 

000014 

CM.XLO= 

000004 

C.URM 

177776 

FC.PCT^ 

0C0O30 

K$$CNT= 

177546 

L.OWNR 

000021 

CP.OCF= 

000040 

C.XACP 

000004 

FC.PWR= 

000022 

<$3CSR= 

177546 

L.UNT 

000013 

CP.HDL= 

000007 

C.XID 

000035 

FC.RCF= 

000002 

K$$LDC= 

OOOOOO 

MPAR   = 

172100 

CP.PS  = 

177400 

C.XLEN 

000044 

FC.RCP= 

000014 

K$$'PS= 

000074 

MPCSR  = 

177746 

CP.PSI^ 

000200 

C.XPLI 

000040 

FC.T1M= 

000010 

LD$tP  = 

OOOOOO 

M$$CRB= 

000124 

CP.XCF= 

000100 

C.XPT 

000034 

FC.XCP= 

000012 

LF.ACT- 

100000 

M$$CRX= 

OOOOOO 

CP.?FR= 

000030 

C.XSVC 

000042 

FC.XME= 

OOOOOO 

LF.B-^0= 

000400 

M$$EXT= 

OOOOOO  G 

CS.ABO= 

0001 oc 

C.XTC 

000037 

FE.CEX= 

******  GX 

LF.BWT: 

000007 

M$$FCS= 

OOOOOC 

rs.BRO= 

000002 

C.X25 

000036 

FMASK  = 

******  GX 

LF.ENA= 

002000 

MI$M6E= 

OOOOOO 

CS.BUF= 

000200 

DSAMXC 

000072 

FNDPl.V= 

******  GX 

LF.LPP= 

001000 

M$$NET= 

OOOOOC 

CS.CES= 

000002 

D$AMXH 

000074 

FS.AST= 

OOOOOO 

LF.M[)C  = 

000100 

M$$OVR= 

OOOOOO 

CS.CHN= 

C00010 

D$ANN 

OOOOOO 

FS.CI8= 

002000 

LF.MFL= 

004000 

NTILIN 

OOOnORG 

CS.CMP= 

000200 

DSBRPR 

000102 

FS.CRA= 

001000 

LF.MTP:- 

000020 

NTIPT  1 

»**«*•  GX 

CS.DCR= 

000400 

DSBRIM 

000100 

FS.DIS= 

015000 

LF.PAC= 

000200 

N$$ACC= 

000001 

fS.DEF= 

000004 

DSrELF 

000G45 

FS.DVC= 

0C1000 

LF.RDY= 

040000 

N$$BUF= 

000001 

CS.PEV= 

000002 

DSDCLW 

000046 

FS.ENG= 

012000 

LF.REA= 

010000 

N$$I.DV= 

0OOOC1 
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CREf   OA.OO 


N' 
SI 


SYMBOL 

VALUE 

REFERENCES 

BUFUMP 

=  17235A 

#5-61 

CMODE 

=  KOOOO 

#5-61 

CSRDIS 

000006  ,< 

#5-75 

6-151 

CSRENA 

000000  R 

#5-74 

5-149 

CSRSLT 

000016  R 

#5-82 

*6-134 

5-157 

CSRTAB 

000014  R 

5-74 

#5-77 

CSRTRP 

00027A  R 

5-77 

#6-204 

I$$A5 

=  ****** 

5-61 

5-63 

KISARO 

=  1723A0 

#5-61 

KISAR6 

=  172354 

#5-61 

KSAR6 

-  ****** 

GX 

6-124 

6-129 

LF.ACT 

-  100000 

#5-62 

LF.BRO 

=  000400 

#5-62 

LF.BWT 

=  000007 

#5-62 

LF.ENA 

=  002000 

#5-62 

LF.LPB 

=  OOiOdO 

#5-62 

LF.MDC 

=  000100 

#5-62 

LF.MFu 

=  004000 

#5-62 

LF.MTP 

=  000020 

#5-62 

LF.PAC 

=  000200 

#5-62 

LF.RDV 

=  040000 

#5-62 

LF.REA 

=  010000 

#5-62 

LF.SER 

=  000040 

#5-62 

LF.TIM 

=  00CO10 

#5-62 

LF.UNL 

=  020000 

#5-62 

LF.X2P 

=  000000 

#5-62 

LN.CLO 

=  000000 

#5-62 

LN.DUM 

=  000005 

#5-62 

LN.LOA 

=  000004 

#5-62 

LN.LOO 

=  000003 

#5-62 

LN.OAU 

=  000003 

#5-62 

LN.OFc 

=  000001 

#5-62 

LN.ON 

=  000000 

#5-62 

LN.OOP 

-  000004 

#5-62 

LN.OPE 

=  000001 

#5-62 

LN.REF 

=  000002 

#5-62 

LN.SER 

=  000002 

#5-62 

LN.S-A 

=  000017 

#5-62 

LN.SUB 

=  000360 

#5-62 

iN.TRI 

=  000006 

#5-62 

LR.CTL 

r  n***** 

GX 

•6-176 

LR.LIN 

=     **■«*** 

GX 

«6-178 

LR.STS 

-  ****** 

GX 

.6-175 

LR.UNT 

-     ****** 

GX 

*6-177 

LX.LIN 

-  ****** 

GX 

6-175 

L.COST 

000015 

#5-62 

L.CTL 

000012 

#5-62 

6-176 

6-185 

L.CVA 

177776 

#5-62 

1  .DDM 

C00002 

#5-62 

6-152 

5-187 

L.DDS 

0000C4 

#5-62 

L.DlC 

000003 

#5-62 

l.DlM 

000006 

#5-62 
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SET  EXECUTOR  ON 

295  000566 

296  000574 

297  000602 
:98 


350$: 

EMSGSR  17 

360$: 

EMSGSR  18 

3/0$: 

EMSGSR  11 

RUNS  FAILURE 

PLB  ALLOCATION  FAILURE 

ROUTER  PRIORITIES  DATA  BASE  ALlOC. 


FAILURE 


NTILON  -  MTINIT 
FNDPLl  -  GET  PLl 


'EXECUTOR  ON'  R  MACR. 
'S  PDV  INDEX 
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A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


B  11 

:0   MARKED-FQR-ENABLE  S  MACRO  V05.05t)  Wednesday  24-Jul-85  15:08  Page  4 

.TITLE  NTIMFE  -  DO  MARKED-FOR-ENABLE  SCAN 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1978,1979,1950,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORAiION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESP0I<1SI8ILI TY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  MARKED-FOR-ENABLE  SCAN 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


ITS 


2.00 


3.00 


4.00 


5.00 


27-FE8-78 

VERSION  2.0  RE! EASE 

14-DEC-79 
DECNET-11M/S   V3.0 
DECNET-11M-PLUS    VI .0 

16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS   VI. 1 


07-N0V-83 

DECNET-11M 

DECNET-11M- 


'4.0 
■LUS   V2.0 


22-JUL-85 
DECnet-llM/S   V4.2 
DECne':-11M-Plus   V3.0 
DECnet-Micro/RSX    \/1.0 


NTIMFF   -  DO  MAR<ED-FOR-ENABLE 
OA'A 


C  11 

S  MACRO  v05.03b  Wednesday  24-Jui.-85  15:08  Page  5 


NTIMFB     CREATED  BV  MACRO  ON  2A-JUL-85  AT  15:09 
SyMBOL  CROSS  REFERENCE 


B  12 

PAGE  3 

CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

SF.MFL 

=   OOOOAO 

#5-74 

SF.PAC 

=  000020 

#5-74 

SF.RtA 

=  000010 

#5-74 

SF.SER 

=  000001 

#5-74 

SF.SVC 

=  000002 

#5-74 

8-356 

SF.UNL 

=  000040 

#5-74 

SLTMA 

=    ,».*.«     GX 

6-122 

SLTNM 

=    ......      GX 

6-120 

SIAADD 

000000  R 

#5-90 

•6-124 

*6-197 

8-356 

STANUM 

000002  R 

#5-91 

•6-167 

•6-205 

8-368 

STRT 

=  000004 

#5-84 

7-295 

StCTL 

000002 

8-366 

SSSTA 

000003 

8-368 

S$$BAS 

r     ****** 

6-112 

S.COST 

000001 

#5-74 

S.FLG 

000000 

#5-74 

•6-192 

S.LEN 

OOOOOA 

#5-74 

S.NMST 

000002 

#5-74 

•6-202 

S.OWNR 

000003 

#5-74 

TMEFN 

=  000001 

#5-85 

6-113 

6-114 

TSFLAG 

000044 

#5-72 

•8-355 

•8-358 

T$L!F 

000013 

#5-72 

T$LIFL 

000013 

#5-72 

TSLIFO 

000013 

#5-72 

TSLIFS 

000013 

#5-72 

TSLIN 

000000 

#5-72 

TSLIPS 

000006 

#5-72 

T$LLD 

000012 

#5-72 

TSLLDC 

000045 

#5-72 

T$MDL 

000012 

#5-72 

T$'  LDO 

000012 

#5-72 

TSLLDS 

000012 

#5-72 

T$LLEN 

000046 

#5-72 

8-352 

TSLOPR 

000002 

#5-72 

TSL'CL 

000024 

#5-72 

TSLTIM 

000026 

#5-72 

T$LTPR 

000014 

#5-72 

TSLTPS 

000020 

#5-72 

TSNAPl. 

000004 

#5-72 

TSNFE 

000000 

#5-72 

tsnlen 

000010 

#5-72 

TSNNU. 

000002 

#5-72 

TSNOPL 

000006 

#5-72 

TINRNI 

000042 

#5-72 

TSNRPL 

000005 

#5-72 

T$NRu'L 

000007 

#5-72 

TSNVR 

000001 

#5-72 

TSRPRI 

000040 

#5-72 

T$SVC 

000034 

#5-72 

•8-372 

•8-373 

T$T5 

000030 

#5-72 

r$T6 

000032 

#5-72 

X$$MCB 

r     *»»*»» 

5-77 

5-77 
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PAGE  I 

CREF   0^.00 


SYMBOL 

VALUE 

REFERENCE 

5 

BUFUMP 

=  17255A 

#5-66 

CMODE 

=  UOOOO 

#5-66 

OLMMFL 

0003AA  R 

8-lAl 

#9-187 

I$$AS 

3   *  **  *  t  t 

5-6A 

5-66 

KISARO 

=  1725A0 

#5-66 

KISAR6 

=  17235A 

#5-66 

LF.ACT 

=  100000 

#5-65 

LF.BRO 

=  OOOAOO 

#5-65 

LF.BWT 

=  000007 

#5-65 

LF.ENA 

=  002000 

#5-65 

LF.LPB 

=  001000 

#5-65 

LF.MDC 

=  000100 

#5-65 

LF.MFL 

=  OOAOOO 

#5-65 

8-15A 

LF.MTP 

=  000020 

#5-65 

LF.PAC 

=  000200 

#5-65 

LF.RDY 

=  OAOOOO 

#5-65 

LF.REA 

=  010000 

#5-65 

LF.SER 

=  OOOOAO 

#5-65 

LF.TIM 

=  000010 

#5-65 

LF.UNL 

=  020000 

#5-65 

LF.X2P 

=  000000 

#5-65 

LN.CLO 

=  000000 

#5-65 

L'l.DUM 

=  000005 

#5-65 

L  .LOA 

=  OOOOOA 

#5-65 

Li-J-LOO 

=  000003 

#5-65 

LN.OAU 

=  000003 

#5-65 

LN.OFF 

=  000001 

#5-65 

LN.ON 

=  000000 

#5-65 

LN.OQP 

=  OOOOOA 

#5-65 

LN.OPE 

=  000001 

#5-65 

LN.REF 

=  000002 

#5-65 

LH.SER 

=  000002 

#5-65 

LN.STA 

=  000017 

#5-65 

LN.SUB 

=  000360 

#5-65 

LN.TRI 

=  000006 

#5-65 

LO.CON 

000006 

#5-67 

LO.CSR 

000006 

#5-67 

LO.CTL 

00001 A 

#5-67 

•9-200 

LO.LIN 

OOOOOA 

#5-67 

LO.PAR 

000010 

#5-67 

LO.PRI 

000010 

#5-67 

LO.SCR 

00001A 

#5-67 

LO.STA 

000015 

#5-67 

•9-199 

LO.VCT 

000012 

#5-67 

LR.AST 

000026 

#5-67 

LR.CIR 

000002 

#5-67 

•9-19A 

LR.CTL 

OOOOOA 

#5-67 

•8-1A8 

8-158 

LR.EFM 

OOOOOA 

#5-67 

LR.LIN 

000002 

#5-67 

♦8-150 

8-156 

LR.PRM 

00003C 

#5-67 

LR.PRO 

000002 

#5-67 

•7-121 

7-126 

LR.STS 

000000 

#5-67 

•7-117 

•7-120 

-1AA 


-1A7 


•9-195 


•  9-n 
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NETWORK  INITIALIZATION  COLD  START 


B  K 


259 

260 

261 

262 

263 

26A 

265 

266 

267 

268 

269 

270 

27^ 

272 

273 

27A 

275 

276 

2^7 

2  3 

279 

280 

281 

282 

283 

28i 

285 

286 

287 

288 

28Q 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 


000000 


000000 
000012 
000016 

000030  005067  000120' 

00003A  032767  100000 

000042  001A06 

OOOOAA  016767  000060' 

000052  016767  000062' 
000060 


.SBTTL  NETWORK  INITIALIZATION  COLD  START 


NTINIT  -  ENTER  THE  NTINIT  TASK 

THIS  ENTRY  SHOULD  ONLY  BE  TAKEN  ONCE,  AS  IT  WILL  STAY  ACTIVE, 
WAITING  FOR  MORE  INSTRUCTIONS  VIA  "SEND  DATA". 

INPUTS: 

NTINIT  GET  INPUT  VIA  "RCV  DATA  AND  RETURNS  COMPLETION  VIA 

"SEND  DATA" 
THE  FIRST  WORD  OF  THE  RCV  DATA  PACKET  ON  RCV  INDICATES  THE 

FUNCTION  TO  BE  ""  '^FORMED 
THE  FIRST  WORD  OF  HE  SEND  DATA  PACKET  CN  COMPLETION  INDICATES 

SUCCESS  (+),  FAILURE  (-) ,  OR  NO-OP  (0) 
WHEN  SENDING  A  FUNCTION  REQUEST  TO  NTINIT,  THE  REQUEST  SHOULD 

BE  QUEUED  FIRST  (VIA  SEND  DATA  TO  NTINIT)  AND  NTINIT  SHOULD 

THEN  BE  REQUESTED 
EVENT  FLAGS  START  OFF  "CLEAR" 

OUTPUTS: 

CHECK  COMPATIBILITY  OF  RSX  SYSTEM 
START  MAIN  CONTROL  LOOP 


NTINI' 


INITIALIZE  VECTOR  TABLE 

IF  SUCCESS  -  BRANCH 

THIS  SOULD  NEVER  OCCUR 

COMM  EXEC  LOADED  ? 

IF  NOT  -  BRANCH 

IF  YES  -  INITIALIZE  PROCESS  VECTOR  TABLES 


CLEAR  EVENT  FLAG 

GET  FIRST  RECEIVE  DATA  OR  EXIT 

SET  THE  RCV  DATA  AST  ENTRY 

ASSUME  CALLER  NOT  NOTIFIED  VIA  AST 

NOTIFY  CALLER  VIA  AST? 

BR  IF  NO 

STORE  ADDRESS  OF  NOTIFICATION  AST 

STORE  NOTIFICATION  1ST  PARAMETER 


RECEIVE  DATA  OR  EXIT 


FOR  THE  SERVER  BASE,  WE  NEED  TO 

DO  SOME  OF  THE  THINGS  WE  WOULD 

DO  FOR  IIM  -  THIS  IS  CODE  COPIED  FROM 


.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

DIRS 

*TRNVEC               ; 

BCC 

1$ 

lOT 

1$: 

BIT 

#FE.CEX,aFMASK 

BEQ 

5$                  ; 

CALL 

VECSET 

5$: 

.ENDC 
.ENDC 

.IF  NDF 

R$$11S 

CLEFSS 

#15. 

CALL 

NT.'RDX                ; 

SRDASS 

#NTIRDA 

CLR 

SNIAST 

000204' 

BIT 

*LS.AST,$NIFNC 

BEQ 

10$ 

000120' 

MOV 

LR.AST+$NIRDB,$NIAST 

000122' 

10$: 

MOV 
.IFF 

LR.PRM+$N1RDB,$NIPRM 

DIRl 

#NTIRCX 

.ENDC 

.IF  Df 

S$$BAS 
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c  u 
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772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796  001072 

797 

798  001100 

799  001104 

800  001110 
801 

802  001112 

803  001116 

804  001120 

805  001124 

806  001126 

807  001132 

808  001144 
809 

810  001146 

811  001150 

812  001154 

813  001160 

814  001166 
815 

816  00117C 

817 

818 

819 

820  001 


821 


70 
00r74 

822  00i::00 

823  001204 

824  00"210 

825  0C1214 
826 

827  C01220 
828 


.SBTTL  RCV  DATA  SUBROUTINE 


NTIRDX  -  RCV  DATA  AND  RETURN  OR  EXIT 
NTIRDT  -  PROCESS  THE  RECEIVED  DATA 


012700  000026' 
105767  000226' 
001427 

022720  055254 

001014 

022720     131574 

001010 

011067  000164' 

000425 

005740 

01106  7  00021 f 

014067  000214' 

000414 


012067  000174 

012067  000176' 

012067  00020'.' 

012067  000206' 

011067  000210' 

105267  000226' 


THESE  ROUTINES  GET  A  RCV  DATA  PACKET  FROM  EITHER  A  FUNCTION  REQUESTOR 
OR  FROM  NTL. 

INPUTS: 

LOW  BYTE  OF  $NIFLG  IS  EITHER  ZERO  (RCV  FUNCTION  REQUEST)  OR 
NON-ZERO  (BUSY  WITH  FUNCTION  REQUEST,  RCV  ONLY  FROM  NTL) 

OUTPUTS: 

THE  DATA  IS  RECEIVED  INTO  "$NIRTN,$NIRDB  . 

IF  THE  LOW  BYTE  OF  $NIFLG  IS  ZERO,  THE  SENDERS  NAME  IS  SAVED 

IN  THE  "NTISEN"  DIRECTIVE,  THE  FUNCTION  CODE  IS  SAVED 

IN  "$NIFNC". 
IF  THE  LOW  BYTE  OF  $NIFLG  IS  NON-ZERO,  AND  THE  SENDER  IS  NTL, 

NTL'S  ANSWER  IS  SAVED  IN  "$NTLFC"  AND  EVENT  FLAG  15.  IS 

SET,  ELSE  A  "BUSY"  RESPONSE  IS  SENT  TO  THE  REQUESiOR. 


RECEIVE  DATA  OR  EXIT 

POINT  AT  SENDING  TASK'S  NAME 

ARE  WE  ALREADY  ACTIVE  ? 

BR  IF  NO,  RCV  FUNCTION  REQUEST 

IS  DATA  FROM  NTL  ? 

BR  IF  NO,  ERROR 

MAYBE  ? 

BR  IF  NO,  STILL  AN  ERROR 

SAVE  NTL'S  ANSWER 

SET  THE  EVENT  FLAG 

AND  LEAVE 

RESET  THE  POINTER 

SET  THE  REQUESTORS  TASK  NAME  INTO 

,HE  BUSY  RESPONSE  DIRECTIVE 
TELL  REQUESTOR  WE  ARE  BUSY 
EXIT  WITH  CARRY  CLEAR 

(NOTE  THE  FOLLOWING  5  LINES  ARE 
DUPLICATED  IN  SERVER  BASE  CODE 
AFTER  NTINIT  -  PLEASE  MAKE  CHANGES 
TO  BOTH  PLACES) 

SAVE  SENDER'S  NAME  IN 
RETURN  DIRECTIVE 

SAVE  FUNCTION  CODE 
SAVE  TWO  WORDS  OF  SENDER'S  DATA 
(USED  FOR  POWERFAIL  RECOVERY) 

WE  ARE  NOW  BUSY 


.IF  NDF 

R$$11S 

NTIRDX: 

DIR$ 

*NTIRCX 

NTIRDT: 

MOV 

TSTB 

BEQ 

*$NIRTN,RO 

$NIFLG 

30$ 

CMP 

BNE 

CMP 

BNE 

MOV 

SETF$S 

BR 

#*RNTL,(RO)t 
20$ 

*'R (RO)* 

10$ 

(RO),$NTLFC 

*15. 

40$ 

10$: 
20$: 

TST 

MOV 

MOV 

DIR$ 

BR 

-(RO) 

(R0),NlIBSVtS.DATN+2 

-(RO),NT!BSY+S.DATN 

*NTI8SY 

40$ 

30$: 


40$: 


MOV 
MOV 
MOV 
MOV 
MOV 
INC8 

RETURN 


(R0)»,NTISENt5.DATN 

(R0)+,NTISEN+S.DATN+2 

(RO)+,$NIFNC 

(R0)+,$NIFNCt2 

(R0),$NIFNC+4 

$NIFLG 
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C  15 


B  16 

NTINIT 

CREATED   BY      MACRO     ON   5- 

SEP-85   AT   T1 

04             PAGE 

8 

MACRO  CROSS 

REFERENCE 

CREF 

Oh. 00 

MACRO  NAME 

REFERENCES 

ASTXSS 
CALL 

#5-59 
8-299 

15-768 
9-378 

9-380 

9-587 

9-404 

9-428 

9-445 

9-447 

12-590 

12-592 

12-602 

13-681 

H-716 

14-726 

14-757 

15-765 

17-855 

17-855 

17-859 

17-875 

CALLR 

#  -61 

9-449 

14-730 

14-742 

CALLX 

#^-61 

CCBDFS 

#5-61 

5-73 

CLEFSS 

#5-59 

#5-60 

8-298 

11-561 

DlRt 

#5-60 

#8-298 

8-298 

#8-300 

8-500 

9-401 

#9-402 

9-402 

9-405 

9-425 

#9-426 

9-426 

9-427 

#9-439 

9-459 

9-44o 

#9-448 

9-448 

11-557 

11-559 

#11-560 

11-560 

#11-561 

11-561 

#13-689 

15-689 

15-763 

#15-768 

15-768 

16-796 

#16-807 

16-807 

16-813 

DSARSS 

#5-60 

9-4  39 

EIISGS 

#5-59 

9-378 

9-380 

EMSGSR 

#5-62 

11-564 

ENARSS 

#5-60 

9-448 

EXITSS 

#5-59 

MAP 

MOV$ 

#5-61 
#8-298 

8-298 

#8-300 

8-300 

#9-402 

9-402 

#9-426 

9-426 

#11-560 

11-560 

#11-561 

11-561 

#13-689 

13-689 

15-689 

15-689 

#15-689 

15-689 

13-689 

#15-689 

13-689 

13-689 

#16-807 

16-807 

mri;t$ 

#5-62 

6-109 

MVB$ 

#13-689 

13-689 

NHUjFS 

#5-61 

5-77 

NTLDFS 

#5-61 

5-72 

NTLERS 

#5-59 

7-190 

7-192 

7-193 

7-194 

OFF$ 

#6-104 

#6-109 

#6-110 

#6-116 

#6-118 

#6-119 

#6-122 

#6-124 

OPTDFS 

#5-61 

5-74 

PCBDFS 

#5-63 

5-78 

PDVDFS 

#5-61 

5-75 

QDPBSS 

#13-689 

13-689 

QIOUSS 

#5-59 

15-689 

RCVDS 

#5-60 

6-116 

RCVXJ 

#5-62 

6-104 

RESMAP 

#5-63 

RETC 

#5-62 

17-862 

RETURN 

11-562 

12-611 

13-697 

14-720 

14-743 

16-827 

17-876 

RQSTS 

#5-60 

6-110 

6-118 

RVP$ 

#13-689 

13-689 

13-689 

15-689 

R50$ 

#6-104 
#6-122 

6-104 
6-122 

#6-110 
#6-124 

6-110 
6-124 

#6-116 

6-116 

#6-n8 

6-118 

#6-119 

6-119 

SAVMAP 

#5-63 

SCBDFS 

#5-63 

5-79 

SDAT$ 

#5-60 

6-119 

6-122 

6-124 

SDATSS 

#5-62 

SETFSS 

#5-60 

16-807 

SLTDFS 

#5-61 

5-76 

SRDASS 

#5-60 

8  300 

swstks 

12-590 

17-853 

TCBDFS 

#5-63 

5-80 

VECDFS 

#5-62 

5-81 

WSIGSS 

#5-59 

*ITSE$S 

#5-59 

9-402 

9-426 

11-560 



C  16 

••FILE'MD' 

'NTITIM 

Sl  -  vNP  .-JLOAD  ROUTINES 

'EX  -  CLEAR  SYS 

1525  004774 

112102 

1526  004776 

060201 

1527  005000 

162'01 

OOOOOOG 

1528  005004 

1529  005010 

012600 

1530  005012 

001343 

1531  005014 

005067 

OOOOOOG 

1532  005020 

1533 

1534 

1535 

1536 

1537  005022 

1538  005031 

1539  005050 

1540 

'541  005056 

012703 

OOOOO'.G 

1542  005062 

011300 

15' 3  005064 

1.^4 

1545  005066 

001430 

1546 

1547  005076 

1548  005114 

016746 

OOOOOOG 

1549  005120 

032700 

000001 

50  005124 

001004 

1551  005126 

012701 

000014 

1552  005132 

'553  005136 

012600 

1554  0C5140 

001352 

1555  005142 

005067 

OOOOOOG 

'556  005146 

'557 

'558 

1559 

1560 

1561  005150 

1562  005150 

016700 

OOOOOOG 

1563  005154 

001427 

1564 

1565  005156 

1566 

1567  005166 

1568  005204 

016746 

OOOOOOG 

1569  005210 

016701 

000002G 

'570  005214 

042701 

177700 

157'  005220 

1572  005224 

012600 

'573  005226 

001355 

1574  005230 

005067 

OOOOOOG 

15^5  005234 

005067 

OOnOOOG 

■57t  005240 

C  1 
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MOVB 

(R1)t,R2 

ADD 

R2,R1 

SUB 

#$8FR,R1 

CALL 

$DEPOL 

MOV 

(SP)t,RO 

BNE 

10$ 

CLR 

$RBLCK 

30$: 

RETURM 

;  DE-ALLOCATE  REMOTE  TASLES 

XREMTB: 

SUTCHI 

#$HMBUF 

GETRV 

$DECPT,#D$END 

SWTCHl 

MOV 

#$HMBUFtD$RNN+ 

MOV 

(R3),R0 

BEQ 

30$ 

10$: 

CEACC$ 

R0,fi3 

20$: 

GETAD 

R3,*4 

MOV 

$8FR,-(SP) 

BIT 

#1,R0 

BNE 

25$ 

MOV 

#R.LEN,R1 

CALL 

$DEPOL 

25$: 

MOV 

(SP)+,RO 

BNE 

10$ 

CLR 

$RBLCk 

30$: 

RETURN 

;  DE-ALLOCATE  EVENT  FILTER  BLO 

XFLTT8 

MOV 

$FILHD,R0 

BEQ 

30$ 

10$: 

CEACC$ 

R0,R3 

20$: 

GETAD 

R3,#4 

MOV 

$SFR,-(bP) 

MOV 

F.CLS+$BFR,R1 

Bir 

#*C<FF.MSK>,R1 

25$: 

CALL 

$DEPOL 

MOV 

{SP)+,RO 

BNE 

10$ 

CLR 

$RBLCK 

30$: 

CLR 
RETURN 

$LGSTT 

LENGTH  OF  THIRD  FIELD 

TOTAL  LENGTH  OF  ALIAS  BLOCK 
DE-ALLOCATE  THE  OBJECT  BLOCK 
GET  UNMAPPED  ADDRESS  OF  NEXT  BLOCK 
IF  NE,  MORE 
CLEAN  UP 


use  temporary  buffer 
read  decnet  home  block 
reset  default  buffer 

5  ;  point  at  start  of  object  table  list 
skip  local  nodes  block 
if  eq,  no  node  name  blocks 

convert  to  mapped  address 

get  the  remote  node  nmae  block 

save  the  address  of  next  block 

remote  node  block  allocated  from  pool.. 

if  yes  -  do  not  deallocate 

get  length  of  remote  node  name  block 

de-Allocate  the  remote  node  name  block 

POINT  at  next  buffer 
IF  NE,  MORE 
CLEAN  UP 


POINT  AT  START  OF  EVENT  FILTER  TABLE  LIST 
IF  EQ,  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

GET  THE  EVENT  FILTER  BLOCK 

SAVE  THE  ADDRESS  Of  NEXT  BLOCK 

GET  LENGTH  OF  BLOCK  (IN  LOWFR  6  BITS) 

ISOLATE  LENGTH 

DE-ALLOCATE  THE  FILTER  BLOCK 

POINT  AT  NEXT  BUFFER 

IF  NE,  MORE 

CLEAN  UP 

CLEAR  LOGGING  STATE  WORD 


VUNL  -   VNP   UNLOAD   ROUTINES 
FLTI6  -   HND   LINE    TABLE 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


L.DL5 

L.FLG 

L.KRBA 

M.LGTH 

NSITAB 

NTIR 

NSADJI 

NSADJ2 

NtELEN 

NSENC 

NSMHCI 

N$MHC2 

NSROAl 

N$R0A2 

NITLC 

NSXLEN 

N$$VCT 

O.LEM 

PRLTA 

PR.LTA 

PR. SEC 

PR7 

P.NAM 

P.REL 

P.  SUB 

RF.LOO 

R$$EIS 

R$$MPL 


R$$11D 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SCAN 

SYSFDB 


TSKSCH 

TSFLAG 

r$LIF 

TILIFL 

TSLIFO 

^$L1FS 

.$LIN 

nLlPS 

TSLlD 

T$LI  DC 


GX 
GX 
GX 


GX 


****** 

****** 

0000  I A 

000130  R 

000124  R 

000072 

000C7A 

000054 

0OOOA2 

000036 

000044 

000022 

000030 

000100 

000124 

000012 
000200  R 
000001 
000002 

****** 

000004 
000014 
000010 
100000 


000010 

000012 

000014 

000000 

000002 

002266  R 

******  GX 


006260 
000044 
000013 
000013 
000013 
000013 
000000 
000006 
000012 
000045 


REFERENCES 

12-566 
♦14-651 

12-561 

21-1430 
#6-166 
#6-161 

10-481 

10-500 

11-524 

11-525 

10-443 

10-4^,4 

10-455 

10-458 

10-468 

10-442 

7-207 

21-1497 
#6-180 
#6-182 
#6-133 

17-1038 

8-323 

24-1818 

8-329 
#5-82 

10-449 

5-65 

14-804 

18-1122 

10-449 
#5-82 
#5-82 
#5-82 
#5-82 
#5-82 

14-652 
•7-208 
*11-524 
*18-1165 
.21-1508 
»22-1596 

21-1262 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 
#5-85 


♦12-577 
♦14-778 
♦12-564 

17-1032 
21-1261 


11-528 
10-450 

10-464 

10-477 
10-453 
21-1494 

*17-1016 
17-1019 
17-1022 

8-325 


10-463 

6-101 

15-826 

21-1274 

10-463 


21-1551 


#15-857 

♦8-322 

*14-700 

♦20-1225 

♦21-1509 

♦22-1641 

#25-1848 


14-762 
15-863 
14-690 


11-532 


10-466 
21-1515 

♦17-1019 
17-1023 
18-1103 

8-335 


10-476 

6-117 

15-835 

21-1315 

10-476 


♦8-334 

♦15-827 

♦20-1226 

♦21-1510 

♦23-1773 


C     2 

PAGE   3 

CREF        04.00 


♦14-770         *19-1185 
21-1290 
1^,-748  17-960         ^19-1182 


vu^ 

$XF 


10-479  10-497 

21-1545  21-1565 

♦17-1022  17-1023         18-1097 

18-1097  23-1665         23-1667 


8-337 


10-493 

8-269 

16-896 

21-1326 

10-493 


♦10-442 

♦15-836 

♦20-1227 

♦21-1517 

♦23-1776 


8-341 


11-531 
8-356 

1"-954 

21-1378 

11-531 


♦10-453 
♦  17-962 
♦21-1264 
♦21-1557 
♦23-1778 


18-1103 


23-1665       ♦23-1667 


8-343 


17-1031 

14-660 

17-966 

21-1396 

17-1031 


♦10-466 

♦17-1007 

♦21-1271 

♦21-1538 

♦24-1814 


14-694 

17-1006 

21-1434 


♦10-479 

♦17-1047 

♦21-1394 

♦21-1559 

♦25-1849 


14-702 

17-1049 

23-1671 


♦10-485 
♦  17-1050 
♦21-1469 
♦21-1547 


14-730 
18-1092 


♦10-497 
♦18-1089 
♦21-1496 
♦21-1567 


L 
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VUI 
DE 
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105 
106 
107 
108 
109 
11D 
111 
112 
113 
IK 
115 

116  000000 

117  000000 

118  OOOOOA 

119  000006 

120  000012 

121  000016 

122  000022 

123  000026 
12A  000032 

125  000036 

126  0OO0A2 

127  0000A6 

128  000052 

129  000056 

130  000062 

131  000066 

132  00007^1 

133  000076 
13A  000102 

135  000106 

136  000112 

137  000116 

138  000122 

139  000126 

140  000132 
K1  000136 
H2 

143 
14A 
1'.5  000142 

146  000146 

147  000154 

148  000156 

149  000164 

150  000166 

151  000172 

152  000174 

153  000200 

154  000204 

155  0-0210 

156  U00214 


.SBTTL  SXPSI  -  Unload  PSI  data  bases 

***  SXPSI  -  Unload  psi  data  bases  from  extended  pool 

INPUTS: 

None. 

OUTPUTS: 

PSI  data  bases  are  .^-allocated 


016703 
001503 


062703 
012701 

062703 
012701 

062703 

062703 

032767 
001406 
062703 
012701 


OOOOOOG 

000004 
000024 

000032 
000032 

177754 

000002 

OOOOOOG  OOOOOOG 

000026 
000104 


SXPSI: 


IDS: 


016700  OOOOOOG 


012701 
032767 
001007 
032767 
001405 
012701 
000402 
012701 

005067 
0050^' 


000042 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000044 

000104 

OOOOOOG 
OOOOOOG 


20S: 
30$: 


lOOS: 


VNPDBG 

VUNPSI 

MOV 

SPSIPT,R3 

BEQ 

lOOS 

CALL 

DEAPVC 

CALL 

DEACUG 

ADD 

#H$RDTE,R3 

MOV 

#R$LEN,R1 

CALL 

DEALST 

ADD 

#HSSVC-H$RDTE,R3 

MOV 

#S$LEN,R1 

CALL 

DEALST 

ADD 

#H$DST-HSSVC,R3 

CALL 

DEADST 

ADD 

#HSD29-HSDST,R3 

CALL 

DEADST 

BIT 

*PF.XGA,SPFLAG 

BEQ 

10$ 

ADC 

#H$RNU-HSD29,R3 

MOV 

#RSNW^,R1 

CALL 

DEALST 

CALL 

XPORT 

CALL 

XLDTE 

CALL 

XX29 

CALL 

XTR", 

CALL 

XPSV 

MOV 

SPSIPT.RO 

nine  ler 

gth  ot  PSI  homebl 

MOV 

#HSLEN,R1 

BIT 

</PF.XDF,$PFLAG 

BNE 

20$ 

BIT 

#PF.XGA,SPFLAG 

BEQ 

30S 

MOV 

#HSHIFN,R1 

BR 

30$ 

MOV 

#H$GLEN,R1 

CALL 

$DEA16 

CLR 

$PFLAG 

ClR 

SP5IPT 

VNP  debugging  break  point 
Get  address  of  PSI  home  block 
Branch  if  none  -  nothing  to  do 
Deallocate  PVC  name  blocks 
Deallocate  CUG  name  block 
Point  to  remote  DTE  name  listhead 
Get  length  of  remote  DTE  name  block 
Deallocate  remote  DTE  name  block 
Point  to  SVC  descriptor  listhead 
Get  length  of  SVC  descriptor  block 
Deallocate  SVC  descriptor  blocks 
Point  to  X.25  destination  descriptors 
Deallocate  destination  descriptors 
Point  to  X.29  destination  descriptors 
Deallocate  destination  descriptors 
Check  for  XGA  module  (host  access) 
Branch  if  not  present 
Point  to  remote  network  blocks  listhea 
Get  length  of  remote  network  Clock 
Deallocate  remote  network  blocks 
Deallocate  port  table  and  circuit  bloc 
Deallocate  local  DTE  descriptor  blocks 
Deallocate  X.29  data  block 
Deallocate  trace  structures 
Deallocate  PSV  mapping  tables 
Get  address  of  PSI  home  block 


Get  length  ot  old-style  PSI  home  block 

Check  for  extended  homeblock 

Branch  it  extended 

Check  for  host  with  old  data  formats 

Branch  if  not  host 

Length  of  host  homeblock  (old  format) 

Length  of  extended  homeblock 
Deallocate  PSI  home  block 
Clear  the  system  type  flags 
Clear  PSI  home  block  address 


RETURN 


[TD001] 
CTDOOl] 
[TDOOn 
CTDOOl] 
[TDOOI] 
[TD001] 
[TDOOn 

CTDOon 

CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
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VUMPSI  -  VNP  UNLOAD  ROUTINES  FO  MACF*n  VO5.03b  Wednesday  17-JuL-85  12:14  Page  17-2 
Symbol  table 


TSRFRM 

000007 

T.MXSZ 

000050 

TSRLIN 

OOOOOA 

T.NAM 

000006 

TSRSTS 

0OCOO5 

T.OFF 

000C66 

TSRTYP 

000001 

T.PCB 

0000A6 

TSSBUF 

000001 

T.PRI 

000002 

TSSDCT 

000"?C 

T.RCVL 

000012 

TSSDDM 

000026 

T.RRFL 

000072 

TiSDEV 

000002 

T.SAST 

00005A 

TSSDUN 

000031 

T.SRCT 

000071 

TSSFNC 

000000 

T.STAT 

000032 

TSSFNM 

000007 

T.ST2 

00003A 

TSSFTO 

000020 

T.ST3 

000036 

TtSGRP 

000006 

T.TCBL 

000030 

TSSLEN 

000032 

T.TI9 

000057 

TSSMEM 

000005 

T.TKSZ 

000060 

T$SNOD= 

000023 

T.UCB 

000026 

TSSTID 

000023 

T2.AB0= 

000100 

ISSTIU 

000025 

T2.AST= 

100000 

TSSUNT 

OOOOOA 

T2.CAF= 

OOOAOO 

T$$KMG= 

000000 

T2.CHK= 

020000 

TS$MIN= 

OOOOOC 

T2.CKD= 

010000 

T.ACTL 

000052 

T2.DST= 

OAOOOO 

T.ASTL 

000016 

T2.FXD= 

002000 

T.ATT 

000062 

T2.HLT= 

000200 

T.CPCB 

OOOOOA 

T2.REX= 

001000 

.DPRi 

OOOOAO 

T2.SEF= 

OOAOOO 

T.EFLG 

000022 

T2.SPN= 

OOOOOA 

T.IOC 

000003 

T2.STP= 

000020 

T.L8N 

00OOA1 

T2.WFR= 

OOOCOl 

T.LDV 

ooroAA 

T3.ACP= 

100000 

T.LNK 

000000 

T3.CAL= 

000100 

.  ABS. 

0001 3A 

000 

(RW,I,GBL,ABS,0VR) 

002166 

001 

(RW,I,LCL,REL,CON) 

DATA 

OOOOOA 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

♦»*  Assembler  sta 

1  s  t  i  c  s 

Wo'k 

ile  reads 

72 

»'o  - 1 

ile  writes 

71, 

Size  of 

work  file 

210A6  Words 

(  83  Pages) 

Size  of 

core  Docl 

1^608  Words 

(  67  Pages) 

jperating  system 

RSX 

-11M/PI  US 

T3.rLi= 

T3.GFL= 

T3.f1CR= 

T3.NET= 

r3.N5D= 

T3.PMD= 

T3.PRV= 

T3.REM= 

T3.R0V= 

T3.RST= 

T3.SLV= 

T3.SWS= 

V$$CTR= 

XA$NCO= 

XA$RR  = 

XA$UCL= 

XA$URE= 

XF$NC0= 

XF$OFF= 

XF$ORI= 

XFSOTI^ 

XF$TIL= 

XF$TJR=: 

XLDTE 

XPORT 

XPSV 

XTRA 

XT$CHN= 

XT$DGR= 

XT$FAS= 

XT$If;C  = 


001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

001000 

000020 

000200 

000040 

000100 

000020 

000200 

000002 

000001 

000010 

000004 

000772R 

001260R 

001720R 

001554R 

000100 

000002 

000200 

000004 


XT$CUC= 

000010 

XT$PVC= 

000001 

XX29 

001476R 

X$ABQ 

000076 

XSALF 

000055 

X$AUC 

000056 

X$CLEN= 

000025 

XSCTIM 

000060 

XSDIAG 

000003 

X$DTE 

000024 

X$FLG 

000014 

XSGLEN 

000106 

X$LCN 

000026 

X$LEN 

000106 

XSMCWN 

000023 

XSNLRE 

000052 

XSNNRE 

000054 

X$NPL 

000006 

XSNPR 

000007 

X$NR8Y 

000032 

XSNRPK 

000042 

XSNRRE 

000053 

XSNTBV 

000036 

XSNTPK 

000046 

XSPKSZ 

000016 

X$PR 

000011 

X$PRT 

000021 

X$PS 

000010 

X$RPR 

000013 

X$RPS 

000012 

XSRTRY 

000002 

X$RXI 

OOO'OA 

X$RXQ 

000072 

X$SS 

000004 

X$ST 

000005 

XSTCLZ 

000030 

XSTIMC 

000001 

XSTIMR 

000000 

X$TXI 

000102 

X$TXQ 

000066 

X$TYP 

000015 

X$USR 

000022 

X$WAQ 

000062 

XSWSZ 

000020 

X$$DBT^ 

000000 

$BFR  = 

****** 

fix 

$CEACC= 

****** 

GX 

$DEA16= 

****** 

GX 

$DEPOL= 

******* 

GX 

$GETAD= 

****** 

GX 

$GETRV= 

****** 

GX 

$PFLAG= 

****** 

GX 

$PSIPT= 

****** 

GX 

$PUTRC= 

****** 

GX 

$RADDR= 

****** 

GX 

$RBLCK= 

****** 

GX 

$SAVAL= 

****** 

GX 

$XPSI 

OOOOOORG 

$$$   = 

000062 

$$$R  = 

000010 

0B?:VUNPSi!'T^il'32J34i\'UNPSI/CR/-SP=D32:[l  J]RSXMCM.S|V!L/ML,[130J10]NETL16/ML,[130J0]RSXMCM/PA:1,C132J0]V 
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Symbol  table 


Page  9-1 


A$$CHK= 

000000 

G$$URD= 

000000 

L.MPF  = 

****** 

GX 

0$$OPT= 

000010 

$DDMPV= 

******  GX 

A$$CPS= 

000000 

I$$RAR= 

000000 

L.NMST= 

****** 

GX 

R$$DER= 

000000 

$DLCPV= 

******  GX 

A$$PRI= 

000000 

I$$RDN= 

000000 

L.NSrA= 

****** 

GX 

R$$K11= 

000001 

$FLAGS= 

******  GX 

AlTTRP= 

000000 

KRBB 

000040F 

002  L.:UNR= 

****** 

GX 

R$$SND= 

000000 

$FLAG1= 

******  GX 

C$$CKP= 

000000 

K$$CNT= 

177546 

MANINI 

000512R 

R$$11M^ 

000000 

$IC8AD= 

< .♦**«  GX 

:$$ORE= 

OOOAOO 

K$$CSR= 

177546 

M$$CRB= 

000124 

SYSFDB= 

****** 

GX 

$LLCTA= 

,«*«**  GX 

C$$RSH= 

177S6A 

K$$LDC= 

000000 

M$$CRX= 

000000 

S$$URG= 

cooooo 

$MXADD^ 

******  GX 

DJ$BUG= 

17~"'A 

K$$TPS= 

000074 

M$$FCS= 

000000 

S$$YSZ= 

007600 

$MXLEN= 

******  GX 

D$$1S<= 

OC   0 

LDSLP  = 

000000 

MSSMGE- 

000000 

S.LEN  = 

****** 

GX 

$NVECT= 

******  GX 

DB$Ll1= 

OC   1 

LF.RDY= 

****** 

GX 

H$$NET- 

000000 

S.NMST= 

****** 

GX 

$OFF  = 

******  GX 

DB$YNC= 

OOouOO 

LN.OFF= 

****** 

GX 

M$$0VR^ 

000000 

S.OWNR= 

****** 

GX 

SPDVA  = 

******  GX 

D$t''NM= 

000000 

L$$ASG= 

000000 

N$$ACC= 

000001 

T$$KMG= 

000000 

SPUTRC^ 

******  GX 

E$$XPR= 

000000 

L$$DRV= 

000000 

N$$BUF= 

000001 

T$$MJN= 

000000 

$RADDR= 

******  GX 

FL.CHA= 

****** 

GX 

L$$P11= 

000001 

N$$LDV= 

000001 

VCTBUF 

OOOOOOF 

002  $SADDR= 

**♦**»  GX 

FL.DD"- 

****** 

GX 

L$$11R= 

000000 

fJ$$MC^= 

000001 

V$$CTR= 

001000 

SSLTA  = 

******  GX 

FL.DLl- 

****** 

GX 

L.CTL  = 

****** 

GX 

N$$MLL= 

000001 

X$nBT= 

000000 

$SLTMA= 

******  GX 

FL .MUX= 

****** 

GX 

L.DDM  = 

****** 

GX 

N$$MOV= 

000010 

ZF.°SE= 

****** 

GX 

$SLrNM= 

******  GX 

F$$L\/L  = 

000001 

I .DOS  - 

****** 

GX 

N$$NCT= 

000001 

Z.DAT  = 

****** 

GX 

STMLTA 

000142RG 

F .NRBD= 

****** 

GX 

L.DLC  = 

****** 

GX 

N$$PEM= 

000001 

Z.DSP  = 

****** 

GX 

STMRDY 

000434RG 

F.RSIZ= 

****** 

GX 

L.DLM  = 

****** 

GX 

PR7  '- 

****** 

GX 

Z.FLG  = 

****** 

GX 

STMVCT 

OOOOOORG 

G$$TPD= 

000000 

L.DLS  = 

****** 

GX 

P$$P45= 

000000 

Z.PCB  = 

****** 

GX 

$VECT1= 

******  GX 

GS$TSS= 

oooouo 

L.FLG  = 

****** 

GX 

P$$URD= 

000000 

$BFR  = 

****** 

GX 

$$VECT= 

******  GX 

C«;4TTK  = 

000000 

.  AB5. 

000000 
0006A2 

oco 

001 

(RW,I,GBL,ABS, 
(RW,I,UL,REL, 

DVR) 

:oN) 

DATA 

000120 

002 

(RW,D,LCL,REL, 

:on) 

Errors 

detectec 

: 

0 

*♦♦  Assembler   statistics 


Wort  file  reads 
Work  file  ^''ites 
Size  of  work  file 
Size  of  core  pool 
Operating      system 


0 

0 

10694   Words      (    42  Pages) 

14440  Words      f    55  Pages) 

RSx-IIM/PLUS 
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CfiiTF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

FE.PLA 

^ 

000020 

5-89 

F.NRBD 

~ 

■*■***** 

GX 

♦  5-97 

*5-99 

F.RSIZ 

= 

******* 

GX 

•5-7A 

»5-78 

F.URBO 

- 

**»■*** 

GX 

*5-77 

«5-79 

PS. SYS 

= 

COOOAO 

5-83 

P. BUSY 

00002^ 

5-86 

*5-86 

5-87 

♦  5-87 

P. MAIN 

000012 

5-75 

P.STAT 

000030 

5-83 

P.  Si  IB 

000010 

5-76 

5-107 

5-109 

♦5-113 

RSSMPL 

^ 

****** 

5-81 

SYSFDB 

- 

****** 

GV 

♦  5-7A 

•  5-77 

♦  5-78 

♦5-79 

♦  5-97 

♦  5-99 

SB^R 

_ 

****** 

GX 

5-75 

5-76 

♦  5-76 

5-77 

5-79 

5-83 

5-36 

♦5-86 

*5-87 

*5-93 

5-97 

5-99 

5-107 

5-109 

5-113 

♦5-113 

$DEA16 

= 

A  ***** 

GX 

5-116 

SFMASK 

- 

■K  **\  ** 

GX 

5-89 

iGETRV 

r 

****** 

GX 

5-7A 

5-78 

5-106 

SPUTRC 

~ 

******* 

GX 

5-96 

5-98 

5-nA 

SRADDR 

r 

****** 

GX 

•  5-74 

♦  5-78 

♦  5-98 

♦5-1C6 

SXPAR 

000000 

RG 

#5-73 

.PLGTH 

r 

****** 

GX 

5-74 

5-78 

5-115 

.PFRO 

= 

**■«*** 

GX 

5-92 

5-87 


'/X°P 
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NTICEX  MACRO  V05.0?b  Saturday  29-Jun-85  03:25 
"ymbol  table 


Ni$$MCP= 

0000  11 

PUMR  = 

******  GX 

N$SMLL= 

oocou': 

P$$PA5= 

000000 

N$$MOV= 

000010 

P$$WRD= 

000000 

N$tNCT= 

000001 

Q$$0PT= 

000010 

N$$PEM^ 

000001 

R$$DER= 

000000 

PDVID  =■ 

******  GX 

R$$K11= 

000001 

PDVNM  = 

******  GX 

R$$SND= 

000000 

PDVTA  = 

*,*»..  GX 

R$$11M= 

000000 

PIRQ   = 

177772 

SF.ACT= 

000200 

PMODE  = 

030000 

SF.ENA= 

000100 

PRO 

000000 

SF.lPB= 

000004 

PR! 

000040 

SF.MFL= 

000040 

PR2 

000100 

SF.PAC= 

000020 

PR3 

0001AO 

SF.REA= 

000010 

PRA 

000200 

SF.SER=: 

000001 

PR5 

00O2A0 

SF.SVC= 

000002 

PR6 

000300 

SF.UNL= 

000040 

PR  7 

0003AO 

SWR 

177570 

PS 

177776 

S$$WRG= 

000000 

.  ABS. 

177776 

ono 

(RW,I,G8L,ABS,0VR) 

000312 

P01 

(RW,I,LCL,REL,CON) 

DATA 

00003^ 

00? 

(RW.D.LCL, RELCOM) 

Errors 

detected: 

0 

**♦  Ass 

embler  sta 

i  .tics 

Work   f 

ile  reads 

52 

Work   f 

lie  writes 

60 

Size  of 

work  file 

21022  Words 

(  83  Pages) 

Size  o1 

core  pool 

17608  Words 

(  67  Pages) 

Operat ; 

ng  system 

RSX- 

-11M/PLUS 

Page  8-2 

ss$ysz= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

IPS   = 

T$$KMG= 

T$$MIN= 

UBMPR  = 

U1SAR0=: 

UISAR1= 

UMRPT  = 

V$$CTR= 

X$$DBT= 

ZF.C0U= 

ZF.DDM^ 

ZF.DIA= 

ZF.DLC= 


C  8 


007600 

000001 

000000 

000004 

000002 

000003 

177564 

000000 

000000 

170200 

177640 

177642 

»«***♦  GX 

001000 

000000 

001000 

000001 

004000 

000002 


ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.WL  = 

ZF.MTM= 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASNI= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 


100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
010000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 


Z.LEN  = 

000016 

Z.LLN 

000006 

Z.MAP 

000020 

Z.NAM 

000004 

Z.PCB 

000012 

Z.SCH 

000007 

SERRIO 

OOOOOOF 

SNICEX 

OOOOOORG 

$N1CSR= 

****** 

GX 

$NIERR= 

*   **** 

GX 

$N1FLG= 

****** 

GX 

$NIMFL= 

****** 

GX 

$NiNTL= 

****** 

GX 

$NIT1M= 

****** 

GX 

$NIUMR= 

****** 

GX 

$NTLFC= 

****** 

GX 

.BASEB= 

uoooo 

.CXCSR= 

****** 

GX 

.$$$$.= 

00003-. 

002 


Elapsed   time:    00:00:20.08 
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SYMBOL      VALUE 


REFERENCES 


L.DLS 

000010 

#5-62 

L.FLG 

000000 

#5-62 

L.KRBA 

000016 

#5-62 

L.LEN 

=  000022 

#5-62 

L.MPF 

000022 

#5-62 

L.NMST 

00002C 

#5-62 

L.NSTA 

OOOOIA 

#'.-62 

L.OWNR 

000021 

#■3-62 

L.UNT 

000015 

#5-62 

MPAR 

=   172100 

#5-61 

MPCSR 

r   1777A6 

#5-61 

N|$$MGE 

=  000000 

5-61 

PDVTA 

r     «tt*t»        GX 

6-163 

PIRQ 

=    177772 

#5-61 

PMODE 

=  030000 

#5-61 

PRO 

=  000000 

#5-61 

PR1 

=  OOOOAO 

#5-61 

PR2 

=   000100 

#5-61 

PR^ 

=  OOOUO 

#5-61 

PR;. 

=  000200 

#5-61 

PR5 

=  000240 

#5-61 

PR6 

=  000300 

#5-61 

PR? 

=  0003AO 

#5-61 

PS 

-   177776 

#5-61 

R$$MPL 

=      ****** 

5-61 

R$$11D 

-      ****** 

5-61 

R$$11M 

=  OCOOOO 

5-63 

R$$11S 

—     ****** 

5-63 

SF.AC" 

=:  000200 

#5-62 

SF.ENA 

-  000100 

#5-62 

SF.LPB 

=  COOOO'. 

#5-62 

SF.MFL 

=  0000A& 

#5-62 

SF.FAC 

=  000020 

#5-62 

SF.REA 

=  000010 

#5-62 

SF.SER 

=  000001 

#5-62 

SF.SVC 

=  000002 

#5-62 

SF.UNl. 

=  000040 

#5-62 

SWR 

=   177570 

#5-61 

S$$BAS 

=   ****** 

5-88 

S.COST 

000001 

#5-62 

5.FLG 

000000 

#5-62 

S.lEN 

000004 

#5-62 

S.NM5T 

000002 

#5-62 

5.0WNR 

000003 

#5-62 

S.VTTA 

=  000002 

5-74 

TPS 

=  177564 

#5-61 

UBMPR 

=  170200 

#5-61 

UlSARO 

=   177640 

#5-61 

U I  SARI 

=   177642 

#5-61 

X$$MCR 

r     ****** 

5-63 

ZF.COU 

=  O'MOOO 

#5-63 

ZF.PDM 

=  000001 

#5-63 

6-177 


5-61 
5-63 

6-169 


5-61 


6-159 


6-183 


5-75 


5-63 
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NTILON   - 
FNDPL!    - 

300 
501 
302 
303 
30A 
30S 
306 
307 
308 
309 
310 
311 
312 
313 
3K 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 


C  10 

NTINIT  'EXECUTOR  ON'  R  M^CRJ  V05.03b  Saturday  29-Jun-85  03:26  Page  9 
GET  PLI'S  PDV  INDEX 

.SBTTL   FNDPLI  -  GET  PLI'S  PDV  INDEX 


FNDPLI  -  GET  PDV  INDEX  FOR  PLI  PROCESS 

INPUTS: 

NONE 

OUTPUTS: 

R1  -  PDV  INDEX  FOR  PLI 


000610 

000614  012702  062751 

0006<:0 

Or^'^624  103006 

000626 

CC0640  000402 

000642  010266  000004 

000646 


000001 


.IF  NDF 

R$$11S 

FNDPLI 

SWSTK$ 
MOV 
CALL 
BCC 

20$ 

#*RPLI,R2 
aPDVID 
10$ 

RETC 
BR 

RO 
20$ 

10$: 

MOV 

R2,4(SP) 

20$: 

RETURN 

.ENDC 

.END 

ENTER  SrSTEM  STATE 
GET  RAD50  PROCESS  NAME 
LOOK  FOR  IT 
BR  IF  FOUND  IT 

RETURN  CARRY  SET 
AND  EXIT 

STORE  PDV  INDEX  IN  USER  R1 
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NTILON  -  NTINIT  'EXECUTOR  ON'  .",  MACRO  V05.03b  Saturday  29-Jun-85  03:26  Page  9-1 
Symbol  table 


NTIMFF 
DATA 


5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 


C  11 

DO  MARK,ED-FOR-ENABLE  S  MACRO  V05.05b  Wednesday  24-Jul-85  15:08  Page   5 

.SBTTL   DATA 


IF    MEMORY   MANAGEMEMT    IS    IN  EFFECT,    ALWAYS   ASSEMBLE    CODE   AS    IF 
IT   WERE    FOR    THE    11/70 


000000 


.IIF 


DF,M$$MGE, 


M$$EXT=0 


.-ALWAYS   ASSEMBLE    FOR   THE    11/70 


LIBRARY   MACROS 


.MCALL      SLTDFS.POVDFS.RETCWSIGSS.CCBDFS.SAVRG.RESRG.XPDDBS.ADJDF! 
.MCALL     BjAS,MAP,SAVMAP,RESMAP,CTRDF$,SVCDF$,PHBDF$,PLBDF$ 
.MCALL     MRKT$S.WTSE$S,EMSG$,DH8DF$,ECDDB$,CALLR 


69 

OOOOCO 

/O 

000000 

n 

000000 

n 

000000 

<", 

000000 

tk 

000000 

7S 

000000 

Ih 

000000 

n 

000000 

/H 

000000 

/y 

000000 

HO 

81 

H? 

H"; 

8A 

000004 

85 

000001 

86 

8/ 

88 

89 

90 

000000 

91 

000002 

9;-' 

000003 

9< 

OOOOOA  000000 

9A 

9S 

96 

000006 

DHBDFS 
ECDD8$ 
CCBDFS 
CTRDFS 
XPDDBS 
SLTDFS 
SVCDFS 
PH8DF$ 
PDVDFS 
PLBDFS 
ADJDFS 


CONSTANT    DEFINITIONS 


STRT    =   ^i 
TMEFN   =    1 


STATION  ADDRESS 


STAADD 
STANUM 
CTLNUM 
ACTCIR 


.BLKW 
.BLKB 
.8LKB 
.WORD 


.PSElT 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 

DEFINE  ECL  DATA  BASE  OFFSETS 

DEFINE  CCB  OFFSETS  AND  CONSTANTS 

DEFINE  COUNTER  BLOCK  OFFSETS 

DEFINE  TRANSPORTS  DDB  OFFSETS 

DEFINE  SLT  OFFSETS  AND  CONSTANTS 

DEFINE  SVC  OFFSETS 

DEFINE  P3I  HOME  BLOCK  OFFSETS 

DEFINE  PDV  OFFSETS  AND  CONSTANTS 

DEFINE  PLB  OFFSETS 

DEFINE  ADJACENCY  BLOCK  OFFSETS 


.■START  STATUS  FLAG  FOR  CCB 
/TEMPORARY  EVENT  FLAG 


ADDRESS  OF  STATION  TABLE  FROM  SLT 

STATION  NUMBER 

CONTROLLER  NUMBER 

XPT  CIRCUIT  ACTIVE,  ENDNODE  ONLY 


NMMFE  -  DO  MARKED-FOR-ENABLE 
MARKED  FOR  ENABLE  SCAN 
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NIIMFE  CREATED  BY      MACRO     ON  2A-JUL-85   AT    15:09 

SYMBOL    CROSS   REFERENCE 


C  12 

PAGE   4 

CREF        DA. 00 


SYMBOL 

VALUE 

REFERENCES 

2F.C0J 

=  001000 

#5-77 

ZF.DDM 

=  000001 

#5-77 

ZF.DIA 

=  OOAOOO 

»l-ll 

ZF.DLC 

=  000002 

»5-77 

ZF.DVP 

=  100000 

^''--n 

ZF.INI 

=  OAOOOO 

#5-77 

ZF.KM/; 

=  000020 

#5-77 

ZF.LLC 

=  000004 

#5-77 

ZF.LMC 

=  000100 

#5-77 

ZF.MAM 

=  020000 

#5-77 

ZF.MFL 

=  000010 

115-77 

ZF.MTM 

'-=   OOOAOO 

#5-77 

Zr.MUX 

=  OOOOAO 

#5-77 

ZF.PSE 

=  C02000 

#5-77 

7-280 

ZF.SLI 

=  010000 

#5-77 

ZF.TIM 

=  000200 

115-77 

ZF.X3P 

=  000000 

tt5-77 

ZS.ASN 

=   100000 

1*5-77 

ZS.BSY 

=   KOOOO 

115-77 

Z.AVL 

oooou 

U5-71 

Z.DAT 

000015 

#5-77 

7-285 

Z.DSP 

000000 

#5-77 

5-77 

Z.FLG 

000010 

#5-77 

7-280 

Z.LEN 

=  000016 

#5-77 

Z.LLN 

000006 

#5-77 

2.  MAP 

000020 

#5-77 

8-336 

Z.NAM 

OOOOOA 

#5-77 

6-179 

Z.PCB 

000012 

#5-77 

Z.SCH 

000007 

#5-77 

SDSFCL 

=   ».»*♦.     GX 

6-132 

6-226 

$ERR12 

=   •»♦»«*     GX 

6-193 

6-237 

SHEADR 

=   ..,«♦♦     GX 

7-299 

8-333 

SNIMFE 

000006  RG 

#6-111 

SSAVAL 

=    »»♦*♦*     GX 

6-117 

$$$ARG 

-   OOOOOA 

#6-113 

6-113 

6-113 

6-113 

8-3A3 


6-223 


6-113 


6-113 


6-113 


6-115 


6-113 


6-113 


6-113 


NTIMFE 


CREATED  BY      MACRO     ON  2A-JUL-85   AT    15:09 
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-DH  .nncc  DcrcDCMrc 


TRFF   n^.nn 


NTIMFL  CREATED   BY      MACRO     ON  29-JUN-85   AT    03:?7 

SYMBOL    CROSS   REFERENCE 


C  13 

PAGE  2 

CREf   0^.00 


SYMBOL   VALUE 


LR.TCB 

LR.UNT 

IS. AST 

LS.CEX 

LS.CIR 

Li.CXO 

LS.CX5 

LS.DLM 

LS.ECH 

LS.FDX 

LS.HDX 

LS.LIN 

LS.LMC 

LS.NTl 

LS.ON 

'S.OPT 

IS. PRO 

LS.PWF 

LS.TOP 

LS.DNF 

LS.X25 

LS.11D 

IX.CEX 

LX.LIN 

LX.PRO 

L.COST 


000002 
000005 
100000 
000001 
000010 
010000 
000400 
OOAOOO 
001000 
004000 
010000 
000003 
000007 
OOAOOO 
000011 
000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000015 


REFERENCES 

#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-65 


»8-149 
9-195 
9-195 

8-144 

7-117 
7-120 


8-160 


8-147 


9-198 


L.CTL 

000012 

#5-65 

8-148 

9-200 

L.CVA 

177776 

#5-65 

L.DDM 

000002 

#5-65 

8-136 

L.DDS 

000004 

#5-65 

L.DLC 

000003 

#5-65 

L.DLM 

000006 

#5-65 

L.DLS 

000010 

#5-65 

L.FLG 

000000 

#5-65 

8-134 

L.<RBA 

000016 

#5-65 

L.LEN 

=  000022 

#5-65 

L.MPF 

000022 

#5-65 

9-191 

L.NMSr 

000020 

#5-65 

L.NSTA 

000014 

#5-65 

9-188 

L.OWNR 

000021 

#5-65 

L.UNT 

000013 

#5-65 

8-149 

MPAR 

=  172100 

#5-66 

MPCSR 

=   177746 

#5-66 

MSSMGE 

=  000000 

5-66 

PDVFLG 

000000  R 

#6-74 

»8-l51 

8-161 

PDv'NM 

=  ,♦*.,.  GX 

7-112 

PDVTA 

=  ....♦*  GX 

7-111 

8-137 

PiRQ 

=  177772 

#5-66 

PMODE 

=  030000 

#5-66 

PRO 

-  000000 

#5-66 

PRl 

=  000040 

#5-66 

PR2 

=  000100 

#5-66 

NTIMFL 
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"  DOC  C      DC  C  C  DCMCC: 


rRFF  ClLnCi 


NIINIT  MACRO  vOS.OJb  Thursday  05-Sep-85  11:02 
NETWORK  IMTIALIZATION  COLD  START 

Page  8-1 

316 

31/ 

MOi/ 

318 

MOV 

319 

MOV 

320 

MOV 

321 

MOV 

322 

MOV 

323 

32A 

CLR 

325 

BIT 

326 

BEQ 

327 

MOV 

328 

MOV 

320                         20$: 

330 

.ENRC  ;D 

331 

332 

c  u 


#$NIRTN,R0 

(RO)+,NTISENtS.DATN 

(R0)t,NTlSENtS.DATNt2 

(RO)t,$NIFNC 

(R0)^$NIFNC  +  2 

(RO),$NIFNC*'i 

$M1AST 

#LS.AST,$N1FNC 

20$ 

LR.ASTt$NlRD8,$NlASr 

LR.PRM+$MRDB,$N1PRM 

DF  S$$8AS 


THE  ROUTINE  NTIRDX  AND  FROM  ABOVE 
POINT  AT  SENDING  TASK'S  NAME 
SAVE  SENDER'S  NAME  IN 

RETURN  DIRECTIVE 
SAVE  FUNCTION  CODE 
SAVE  TWO  WORDS  OF  SENDER'S  DATA 
(USED  FOR  POWERFAIL  RECOVERY) 

ASSUME  CALLER  NOT  NOTIFIED  VIA  AST 

NOTIFY  CALLER  VIA  AST? 

8R  IF  NO 

STORE  ADDRESS  OF  NOTIFICATION  AST 

STORE  NOTIFICATION  AST  PARAMETER 


;FALL  THROUGH 
;INTO  MAIN  LOOP 


NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:02  Page  9 
MAIN  CONTPOL 


D  K 


N'lNlT     MACRO  V05.03b   Thursday  05-Sep-85   11:02     Page   16-1 
'■\\l   DATA   SUBROUTINE 


C  15 


829 


.ENDC 


NTIMP  MACRO  V05.03b  Thursda) 
PiJTAST  -  PUT  COMPLFTION  AST  If 


05-Sep-85  11 -02  Page  17 
CALLER  TASK'S  AST  QUEUE 


D  15 


•F  ILE'MD-'NTltlM 


C  16 


m 

NN 

ITITTTTMT 

IllI  i 

ITTIT 

TTTIT 

III 

III 

MM 

MM 

NN 

NN 

TTTTTTTT'T 

11  I  1 

TTTTT 

TTTTT 

III 

III 

MM 

MM 

m 

NN 

1 

MMM^ 

MMMM 

NN 

NN 

I 

MMMM 

MMMM 

MNNN 

NN 

I 

MM 

MM  MM 

NMNN 

NN 

1 

MM 

MM  MM 

m    m 

NN 

I 

MM 

MM 

m    NN 

NN 

J 

MM 

MM 

NN 

MNNN 

MM 

MM 

NN 

NNNN 

MM 

MM 

NN 

N^' 

I 

MM 

MM 

NN 

NN 

I 

MM 

MM 

NN 

NN 

II  III 

III 

III 

MM 

MM 

NN' 

NN 

in:a 

III 

111 

MM 

MM 

LL 

SSSS5SSS 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

Tin  1 

LL 

5S 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

ssssss 

LL 

ssssss 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

SSSSSSSS 

NTrifl     MACRO  V05.03b   Saturday  29-Jun-85  03:28 
fabi.e  of   contents 
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VUNL  -  VNP  JNLOAD  ROUTINES 
FLT16  -  FIND  LINE  MBLE 


1578 

1575 

1580 

1581 

1582 

1583 

1584 

1585 

1516 

1587 

1588 

1589 

1590 

1591 

1592  005242 

1595  0052A2  005067 

1594  005246  012702 

1595  005252  012767 

1596  005260 

1597  005264  005077 

1598  005270  016777 

1599  005276  001461 
1600 

1601  005300 

1602  005304  005722 

1603  005306  005722 

1604  005310  126204 

1605  005314  001013 

1606  005316  022203 

1607  005320  001440 

1608  005322  101011 

1609  005324  011246 

1610  005326  042716 

1611  005332  066216 

1612  005336  022603 

1613  005340  101030 

1614  005342  000401 

1615  005344  005722 

1616  005346  032722 

1617  005352  001410 

1618  005354  005046 

1619  005356  152216 

1620  005360  005046 

1621  005362  152216 

1622  005364  062616 

1623  005366  006316 

1624  005370  006316 

1625  005372  062602 

1626  005374  022702 

1627  005400  001402 

1628  005402  005712 

1629  C054U4  001340 

1630  005406  012702 
1631 

1632  005412  011277 

1633  G05416  001330 

1634  005420  000410 


D  1 

MACRO  V05.03b  Monday  16-Sep-85  07:30  Page  21 

.SBTTL  FLT16  -  FIND  LINE  TABLE 

FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 

INPUTS: 

R3=LINE  TABLE  ADDRESS 

R4  =  PDV  INDEX  OF  PROCESS 

OUTPUTS: 

R0,R1,R2,R3=DESTROYED 
U8IAS,U8A=UNL0AD  BLOCK  ADDRESS 
eL0CK=L0CAL  COPY  OF  UNLOAD  BLOCK 


000010' 
000012' 
000100  OOOOOOG 

0000006 
OOOOOOC  OOOOOOG 


FLT16: 
FLT: 


177776 


000003 
177776 


000001 


10$: 
20$: 


30$: 
40$: 


000112' 


50$: 


000012'        60$: 
OOOOOOG 


CLR 

MOV 

MOV 

SWTCHI 

CLR 

MOV 

BEQ 

GETAD 

TST 

TST 

CMPB 

BNE 

CMP 

BEQ 

BHI 

MOV 

BJC 

ADD 

CMP 

BHI 

BR 

TST 

BIT 

BEQ 

CLR 

BIS8 

CLR 

BISB 

ADD 

ASL 

ASL 

ADD 

CMP 

BEQ 

TST 

BNE 

MOV 

CLR 

MOV 

BNE 

BR 


USA  ;  INDICATE  NO  UNLOAD  BLOCK  FOUND  YET 

#BL0CK,R2  ;  USE  R2  AS  BASE  REGISTER 

#64.,$RSIZE  ;  SIZE  OF  UNLOAD  BLOCK  IN  BYTES 

H2  ;  USE  BLOCK  AS  INPUT  BUFFER 

a$ADRZ  ;  SET  UP  ADDRESS 
.CXUNLt$NTLHB,a$ADRX  ;  OF  UNLOAD  BLOCK 

100$  ;  NO  UNLOAD  BLOCKS 


READ  IN  IMAGE  OF  UNLOAD  BLOCK 

(R2)  + 

SKIP  POINTER  TO  NEXT  UNLOAD  BLOCK 

(R2)  + 

POINT  PAST  THE  PDV  INDEX 

-2(R2),R4 

IS  THIS  THE  RIGHT  PDV  ? 

30$ 

IF  NE,  NO 

(R2)+,R3 

IS  THIS  OUR  LINE  TABLE? 

80$ 

IF  EQ,  YES 

40$ 

IF  HI,  NO 

(R2),-(SP) 

EXTRACT  SIZE  FIELD 

#3,(SP) 

-2(R2),(SF) 

ADD  TABLE  ENTRY 

(SP)+,R3 

IS  THIS  OUR  LINE  TABLE? 

80$ 

IF  HI,  YES 

40$ 

ELSE,  SKIP  ANY  SUB-ALLOCATIONS 

(R2)  + 

SKIP  THE  LINE  TABLE  ADDRESS 

*1,(R2)t 

ANY  SUB-ALLOCATIONS  THIS  ENTRY? 

50i 

IF  EQ,  NO 

-(SP) 

GET  NUMBER  OF  ALLOCATIONS 

(R2)+,(SP) 

-(SP) 

AND  NUMBER  OF  LIBRARIES 

(R2)+,(SP) 

(SP)+,(SP) 

ADD  THEM  TOGETHER 

(SP) 

MULTIPLY  BY  4 

(SP) 

>  <  > 

(SP)+,ft2 

GIVING  NEXT  TABLE  ENTRY 

#8LOCKt100,R2 

IS  IT  PHYSICAL  END  OF  BLOCK? 

60$ 

IF  EQ,  YES 

(R2) 

S  IT  LOGICAL  END  OF  BLOCK? 

20$ 

F  NE,  NO  -  CHECK  NEXT  ENTRY 

#BL0CK,R2 

•  RESET  R2  TO  START  OF  BLOCK 

51$ADRZ 

•  SET  NEW  ADDRESS;  THIS  CAUSES  BUG; 

(R2),a$ADRX 

•  SET  NEW  ADDRESS 

10$ 

■  READ  IN  BLOCK 

100$ 

•  DONE 

VuNL  -  VNP  UNLOAD  ROUTINES 
FLT16  -  FIND  LINE  TABLE 
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VUNl.  CREATED  BY      MACRO     ON  16-SEP-85   AT   07:31 

SYMBOL    CROSS   REFERENCE 


SYMBOL  VALUE 


T$LLDL 

TtLLDO 

TSLLDS 

TSLLEN 

T$LOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

TSNFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

TSSVC 

T$T5 

T$T6 

T.NAM 

T.RCVL 

T.TCBL 

UBA 

UBIAS 

UNITS 

UPTR 

VECT 

VF.LIB 

VF.SS 

V.FLG 

V.LEN 

V.PDV 

XALITB 

XDCB 

XDLC 

XFLTTB 

XKRB 

XLIN 

XLT 

XLT16 

XOBJTB 

XPRO 

XREMTB 

ZDDS 

ZF. LLC 

ZF.LMC 

ZF.MFL 

ZF.PSE 

Z.AVl 


000012 
000012 
000012 
0OO0A6 
000002 
00002^ 
000026 
OOOOU 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000006 
000012 
000030 
000010  R 
000006  R 
000004  R 
000112  R 
002402  R 
=  000001 

=   ****** 


GX 


000002 

000012 

000004 

004660  R 

004456  R 

000360  RG 

005150  R 

002162  R 

001614 

005456 

005452 

004576 

000152 

005022 

003354 


«**♦♦«  GX 

♦»**«•  GX 

»*♦♦♦♦  GX 

*♦♦•♦♦  GX 

**♦**♦  GX 


REFERENCES 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 

#5-85 
25-1857 
21-1265 

*25-1851 

#6-133 

#6-132 

#6-127 

#6-143 
14-747 
7-210 
8-314 
7-210 
7-208 
7-215 
21-1345 
21-1308 
8-315 
21-1348 
12-563 

#14-651 
14-751 
3-383 
21-1340 
8-265 
21-1346 
14-752 
8-364 
8-316 
13-619 
14-655 
24-1815 


10-471 


25-1859 
*21-1267 
25-1853 
17-995 
♦22-1638 
*15-859 
*23-1658 
#17-953 


7-233 

#21-1508 
#21-1465 

8-317 
#21-1561 

14-749 

21-1294 
#23-1655 

12-576 
#21-1490 
#8-268 
#21-1537 
#19-1174 


14-757 


0    2 

PAGE   4 

CREF       04.00 


vut 

DEi 


21-1269       »21-1270 


♦22-1593 
23-1731 

♦15-873 
23-1725 


♦22-1637 
23-1734 
15-878 
23-1765 


23-1655 
23-1749 


23-1774 


8-345 
#14-801 

14-769 
12-589 


14-775 


8-348 


#23-1654 

13-618 


8-351 


14-759 


12-584 


1309 


14-777 


VUNL               CREATED  BY     MACRO     ON  16-SEP-85  AT  07:31 
SYMBOL   CROSS   REFERENCE       
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CREF       04.00 


VU 
DE 


D  3 
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DEAPVC  -  Deallocate  PVC  name  blocks 


158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 

170  000216 

171  000222 

172  0C0226 

173  000232 

174  000240 
175 

176 
177 

178  000242 

179  000246 

180  000252 
181 

182 
183 

184  000254 

185  000260 

186  000276 

187  000302 

188  000306 
189 

190  000312 

191  00u314 

192  000316 

193  000326 

194  000344 

195  000350 

196  000354 

197  000360 

198  000364 
199 

200  000366 

201  000372 


.SBTTL  DEAPVC  -  Deallocate  PVC  name  blocks 

♦  •*  DEAPVC  -  Deo. Locate  PVC  name  blocks 

INPUTS 

SPFLAG  -  PSi   characteristics  word 

OUTPUTS 

PVC  name  blocks  deallocated 


016703 
062703 
032767 
001005 


012701 
000447 


016746 
005067 


012600 
001424 


016746 
116701 
062701 

000752 


OOOOOOG 

000006 

OOOOOOG 


000016 


OOOOOOG 
OOOOOOG 


OOOOOOG 
0000026 
000016 


OOOOOOG 


All  registers  preseri/ed 

DEAPVC:  CALL  SSAVAL 

MOV  $PSIPT,R3 

ADD  #H$PVC,R3 

BIT  #PF.XDF, SPFLAG 

BNE  10$ 


Save  all  registers 

Get  address  of  listhead 

Check  for  extended  data  format 
Branch  if  extended 


Deallocate  old-format  PVC  name  blocks 


MOV 

CALL 

BR 


*C$LEN,R1 

DEALST 

60$ 


Length  of  old-format  block 
Deallocate 


Deallocate  extended  PVC  name  blocks 

10$: 

GETRV   R3,#2 

(SP) 


SAVMAP 

GETRV 

MOV 

CLh 

PUTRC 


R3,#2 

$BFR,- 

$BFR 


Save  current  mapping 

Read  in  listhead 

Save  address 

Zero  buffer  and  rewrite  listhead 


20$: 


50$: 
60$: 


MOV 

BEQ 

CEACCS 

GETAD 

MOV 

MOVB 

ADD 

CALL 

BR 

RES»1AP 
RETURN 


(SP)+,RO 
50$ 
0,R2 
k2,#C$LEN 
$BFR,-(SP) 
$8FR+C$NML,R1 
#C$LEN,R1 
SDEPOL 
20$ 


Restore  aodress  of  block 

Branch  if  end  of  chain 

Map  to  block 

Read  fixed  part  of  block 

Save  link  address 

Get  length  of  variable  part 

Add  length  of  fixed  part 

Deal  locate  bloci' 


Restore  mapping 


;[TD001] 
.•CTDOOI] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTO00n 
;CTD001] 
;CTD00n 
;CTD001] 
;CTD00n 
;CTD001] 
;[TD001] 
.-CTDOOl] 
.•[TDOOn 
; CTDOOl] 
;[T000n 
; CTDOOl] 
; CTDOOl] 
.•CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.-CTDOOl  J 
.•CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.■CTDOOl] 
.•CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.■CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
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SYMBOL   VALUE 


C$LEN 

CSNML 

DEACUG 

DEADST 

DEALST 

DEAPVC 

DSACL 

DSDATL 

DID5L 

DSDTEL 

DSFLEN 

DSGLEN 

F.RSIZ 


F.URBD 

G$LcN 

GSNML 

HSCdG 

HSDST 

H$D29 

HSGLEN 

HSGLT 

H$GPT 

HSHLEN 

HSLD^E 

H$LEN 

H$NPT 


000016 
000002 
00037A 
000552 
0020A6 
.1002 16 
000027 
000030 
000022 
000031 
000032 
000032 


000016 
000015 
000010 
000012 
OOOOU 
000104 
000044 
000046 
000044 
000002 
000042 
000022 


GX 


GX 


REFERENCES 

9-178 

9-195 

8-120 

8-128 

8-123 

8-119 

11-282 

11-294 

11-279 

11-297 

11-288 

11-276 
♦9-185 
♦12-347 
♦16-514 
♦12-327 

10-224 

10-241 

10-218 

8-127 

8-129 

8-152 

16-506 

16-513 

8-150 

12-329 

8-145 

13-387 


9-193 

#10-216 
8-130 
8-126 

#9-170 


11-290 
11-278 
♦9-193 
♦12-365 
♦17-539 
♦12-331 
10-239 


8-129 
8-133 
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9-196 


#11-261 
8-135 


♦10-231 
♦13-385 
♦17-547 

10-242 


9-179 


♦10-239 
♦13-388 


10-225 


♦11-263 
♦13-395 


#17-537 


♦11-276 
♦14-436 


♦11-288 
♦15-464 


♦12-330 
♦15-469 


♦12-335 
♦16-507 


HSPTB 

000020 

13-384 

13-387 

HSPVC 

000006 

9-172 

H$RDTE 

000004 

8-121 

8-124 

HtRNW 

000042 

8-133 

HSSVC 

000036 

8-124 

8-127 

H$TRB 

000016 

15-463 

H$X29C 

000040 

14-435 

I$$AS 

~      ****** 

12-356 

15-475 

KSLEN 

000006 

12-349 

LSTHBF 

000000 

^ 

#7-101 

12-327 

12-332 

LSCHLS 

000034 

12-345 

♦12-348 

LSCHTB 

000030 

12-353 

LSCTEN 

000032 

12-355 

LSGLEN 

000134 

12-342 

LSLEN 

000122 

12-335 

12-339 

N$$VCT 

=  ****** 

9-192 

10-238 

11-270 

PF.PSV 

-  ****** 

GX 

12-340 

13-403 

16-501 

PF.XDF 

~  ****** 

GX 

8-146 

9-173 

10-219 

PF.XGA 

-   ****** 

fix 

8-131 

8-148 

QSLEN 

000016 

14-441 

R$LEN 

000024 

8-1 22 

RSNWL 

000104 

8-1 34 

R$RO 

=  000002 

#6-91 

13-413 

R$R1 

=  000004 

#6-92 

'12-336 


12-334 
11-271 


13-392 


17-546 
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SYMBOL     VA>.UE 


FL.CHA 

FL.DOT 

FL.DLC 

FL.HUX 

F.NRBD 

F.RSIZ 

KRB5 

LF.RDY 

LN.OFF 

L.CTL 

L.DDM 

L.DDS 

_.DLC 

L.DLM 

L.DLS 

L.FLG 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

MANINI 

PR  7 

R$$MPL 

SYSFDB 

S.LEN 

S.NMST 

S.OWNR 

VCTBUF 

ZF.PSE 

Z.DAT 

Z.DSP 

Z.FLG 

7.PCB 

ISFR 

SDOMPV 

SDLCPV 

SFLAGS 

SfLAGI 

SICBAD 

SLLCTA 

SMXADD 

SNVLC: 
SCfF 

ifiiDDR 

S3ADDR 

t^TA 

SSLTMA 

SSLTN*! 

$TML'' 


REFERENCES 


****** 
****** 
****** 
****** 
****** 
*****  ■■ 

OOOOAO 

**♦*♦* 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

000512 

****** 

****** 
****** 
****** 
****** 
****** 

000000 

*•■»**** 
****** 
****** 

■  *****•■ 

■  ****** 

■  ****** 

■  ****** 

■  ****** 

:     ****** 

:     ****** 

****** 

:     ****** 

:     ****** 

;     ****** 

****** 

:     ****** 

:     ****** 

:     ****** 

****** 

**♦♦♦* 

******* 

:     ****** 

;      ****** 

00Ci',2 


GX 

6-95 

GX 

6-93 

GX 

7-208 

GX 

7-228 

GX 

«6-i17 

GX 

*6-120 

? 

#5-70 

GX 

8-281 

GX 

9-320 

GX 

7-239 

GX 

7-237 

GX 

*7-2A1 

GX 

7-242 

GX 

♦7-216 

GX 

*7-244 

GX 

•8-281 

GX 

9-31? 

GX 

*9-330 

GX 

9-306 

GX 

*9-329 

R 

8-280 

GX 

6-113 

6-105 

GX 

•6-117 

GX 

9-321 

GX 

•9-320 

GX 

•  9-319 

R 

#5-69 

GX 

6-91 

GX 

•7-226 

GX 

7-216 

GX 

6-91 

GX 

8-271 

GX 

6-129 

GX 

8-273 

GX 

7-212 

GX 

6-93 

GX 

6-87 

GX 

6-111 

GX 

9-305 

GX 

7-230 

GX 

7-2':  5 

GX 

6-100 

GX 

7-220 

GX 

6-90 

GX 

6-120 

GX 

•6-120 

GX 

7-210 

GX 

7-204 

GX 

7-235 

GX 

7-234 

RG 

#7-201 

7-205 
7-213 
7-223 

•6-129 


9-330 
7-239 
7-237 
•7-250 
7-251 

•7-253 


#9-295 

6-119 
•6-120 


6-98 


8-274 


8-269 

6-95 

7-202 


7-232 


/-215 


7-218 

9-297 
9-296 


7-221 


7-242 
8-276 


8-278 


6-133 
•6-129 


6-117 


7-251 


7-205 


7-225 


9-304 


7-208 


7-213 


7-221 


7-223 


7-228 


V^vH 
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1 
2 
5 

5 

6 

7 

8 

9 

10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

55 

54 

55  OOOOOC 

56 


.TITLE   VXLS  -  VivlP  LIBRARY  DEALLOCATION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECI  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  .OMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAI  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOl  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  LIBRARY  DE-ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-11,M/S  V 
DEfnet-IIM-Plu 
DECnet-Micro/RSX    ) 


.MCAn    vecdf$,:eacc$,getad 

VECDF$  ;    DEFINE    VECTOR  BLOCK   OFFSETS 


m 

C/1 
GE 
HV 
PC 
PL 

r; 

RE 
St 
Sk 
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VX°P       CREATED  BV 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  03:12 


MACRO  NAME 

REFERENCES 

CALL 

5-74 

5-78 

5-96 

GETRV 

ltS-b9 

5-74 

5-78 

HWDDFt 

#5-69 

5-71 

PCBDFS 

#5-69 

5-70 

PUTRC 

#5-69 

5-96 

5-?§ 

RAND 

#5-7A 

5-74 

#5-78 

#5-114 

5-114 

RETURN 

5-117 

SWTCHI 

#5-69 

5-77 

5-79 

SWTCHO 

#5-69 

5-97 

5-99 

5-98 
5-106 


5-114 
5-78 
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CREF   04.00 
5-106 

#5-96 


5-1U 


5-96 


5-116 


#5-98 


5-98 


#5-106 


5-106 
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NTICEX 

CREAtt 

)  BY 

■•lACRO  ON  2S 

-JUN-3 

SYMBOL 

:R0SS  REFERENCE 

SYMBOL 

VALL'^ 

REFERENCES 

BUFUMP 

=  17235A 

#5-74 

CMODE 

=  UOOOO 

#5-74 

FC.PCT 

=  00003C 

5-94 

FE.CEX 

=   ****** 

GX 

6-137 

FMAS< 

=   ****** 

GX 

6-137 

FNDPDV 

-   ****** 

GX 

6-148 

7-188 

FS.IN! 

=  000000 

5-94 

INIFUN 

000030 

^ 

#5-94 

7-205 

I$$AS 

=  ****** 

5-74 

5-75 

KISARO 

=  1723^0 

#5-74 

KISAR6 

=  17235A 

#5-74 

ICSAR6 

r  ****** 

GX 

7-228 

LF.ACT 

=  100000 

#5-73 

LF.BRO 

=  000400 

#5-73 

LF.BWT 

=  000007 

#5-73 

LF.ENA 

=  002000 

#5-73 

LF.LPB 

=  001000 

#5-73 

LF.HDC 

=  000100 

#5-73 

LF.MFL 

=  OOAOOO 

#5-73 

LF.MTP 

=  000020 

#5-73 

LF.PAC 

=  000200 

#5-73 

LF.RDY 

=  040000 

#5-73 

LF.REA 

=  010000 

#5-73 

LF.SER 

=  000040 

#5-73 

LF.TIM 

=  000010 

#5-73 

LF.UNL 

=  020000 

#5-73 

LF.X2P 

=  000000 

#5-73 

LLCAL 

~    ****** 

GX 

7-207 

LN.CLO 

=  000000 

#5-73 

LN.DUM 

=  000005 

#5-73 

LN.LOA 

-  000004 

#5-73 

LN.LOO 

=  000003 

#5-73 

LN.OAU 

=  000003 

#5-73 

LN.OFF 

=  000001 

#5-73 

LN.ON 

=  000000 

#5-73 

LN.OOP 

=  000004 

#5-73 

LN.OPE 

^  000001 

#5-73 

LN.REF 

=  000002 

#5-73 

LN.SER 

=  000002 

#5-73 

LN.STA 

=  00C017 

#5-73 

LN.SUB 

=  000360 

#5-73 

LN.TRI 

=  000006 

#5-73 

LS.CEX 

-   *♦*♦*♦ 

GX 

6-139 

LS.NTI 

:::  ****** 

GX 

b-13Q 

LG.TOP 

-     ****** 

GX 

6-145 

LX.CEX 

-  ****** 

GX 

6-154 

L.COST 

000015 

#5-73 

L.CTL 

000012 

#5-73 

1  .CVA 

177776 

#5-73 

L.DDM 

000002 

#5-73 

L.DDS 

000004 

#5-73 

L.DLC 

000003 

#5-73 
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NT 

SY 

SY 

ZF 
ZF 
!F 
ZF 
ZF 
ZF 
ZF 
ZF 
ZF 
ZF 
ZF 
Zf 
ZF 
ZF 
ZF 

z; 
z; 
z. 
z. 
z, 
I. 
I. 
I. 
I. 
I 
I 
I 

SI 

$1 

SI 
SI 

SI 
£1 
SI 
S' 
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SYMBOL  VALUE 


ZF.DIA 
ZF.DLC 
TF.DVP 
ZF.INI 
ZF.KMX 
ZF.LLC 
ZF.LMC 
Zf .MAN 
ZF.MFL 
ZF.HTM 
ZF.MUX 
ZF.P3E 
ZF.SLI 
ZF.TIM 
ZF.X3P 
ZS.ASN 
ZS.BSY 
Z.AVL 
Z.DAT 
Z.DSP 
Z.FLG 
Z.LEN 
Z.LLN 
Z.MAP 
Z.NAM 
Z.PCB 
Z.SC-1 
$ERR20 
SNERDN 
SNICSR 
SNIERA 
SNIERR 
tNINTL 
SNTLFC 
$$$GLB 
BASEB 


004000 
000002 
100000 
O^JiOOOO 
000020 
OOOOOA 
000100 
020000 
000010 
OOO'iOO 
000040 
002000 
CI  0000 
000200 
000000 
100000 
140000 
000014 
000016 
000000 
000010 
:  000016 
000006 
000020 
000004 
000012 
000007 
000020  RG 

000000  RG 

:  *«»«»♦  GX 

:  ♦»*.**  GX 

:  »«♦♦,*  GX 

:  «:»♦*♦♦  GX 
****** 

=  140000 


REFERENCES 

#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-88 

5-88 
#6-117 
»6-185 

5-88 

6-179 
»6-175 

5-74 
#5-61 


5-63 

6-165 

6-189 

•6-186 


*6-175 
5-75 
6-121 


♦6-188 

*6-1 77 
6-127 


*6-178 
6-129 


6-130 


NTICSR 
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MOCB  = 

'•♦»*•  GX 

CM.C1R= 

000002 

AREAMK= 

176000 

CH.FMT= 

100000 

ASSIGN 

0000A2R 

002  CM.HRD= 

000002 

AT$ACL= 

000100 

CM.LIN= 

000000 

AT$ADM= 

000040 

CM.L00= 

000001 

AT$AUP= 

000020 

CM.XL0= 

000004 

AT$CYC= 

OOOOOA 

CP.DCF= 

000040 

AT$LV1= 

000002 

CP.HDL= 

00000? 

AT$LV2= 

000001 

CP.PS  = 

177400 

AT$NEX= 

000200 

CP.PS1= 

000200 

AT$UP  = 

000010 

CP.XCF= 

000100 

ASCIR 

000003 

CP.2FR= 

000030 

ASLEN 

OOOOOA 

CS.A80= 

000100 

A$NID 

000000 

CS.BR0= 

000002 

WM 

000003 

CS.8UF= 

000200 

A$TM1 

000002 

CS.CES= 

000002 

ASTSZ 

ooouoo 

CS.CHN= 

000010 

ASTYP 

000002 

CS.CP1P= 

000200 

A$$CHK= 

000000 

CS.DCR= 

000400 

A$$CPS= 

000000 

CS.DEF= 

000004 

A$$PRI= 

000000 

CS.DEV= 

000002 

A$$TRP= 

000000 

CS.DIS= 

000040 

A.LULU= 

000002 

CS.ENA= 

000001 

A.LUNA= 

000004 

CS.ENB= 

000020 

A.LUNU= 

000006 

CS.ERR= 

100000 

BUFUMP= 

172354 

CS.FTL= 

001000 

CB.CCB= 

000002 

CS.HCR= 

000001 

CB.DDM= 

000040 

CS.HFE= 

002000 

CB.DlC= 

000020 

CS.LST= 

040000 

CB.RDB= 

000004 

CS.MTL= 

004000 

CB.SDB= 

000010 

CS.RNG= 

OOOCIO 

CB.SLI= 

000100 

CS.ROV= 

000004 

CB.XLB= 

000001 

CS.RSN= 

010000 

CC.LLC= 

000200 

CS.SHU= 

000001 

CE.ABO= 

100362 

CS.SID= 

000002 

CE.DAO= 

100346 

CS.STR= 

000004 

CE.DIS= 

10C366 

CS.SUC= 

000001 

CE.EnR= 

1C0370 

CS.THO= 

020000 

CE.ILN= 

100350 

CS.XUR= 

000004 

CE.I  ^0= 

100356 

C$LEN 

000012 

CE.MOP= 

100372 

CSNID 

000000 

CE.NTE= 

100361 

C$n:(h 

000002 

CE.RTE= 

100376 

CSTJM 

000010 

CE.SRC= 

100364 

C$$CKP= 

000000 

CE.STP= 

100352 

r$$ORE= 

0C0400 

fE.TME= 

100354 

C$$RSH=: 

177564 

rE.TMO= 

100374 

C.ADD 

C  '034 

CE.UNS= 

100344 

C.BID 

'     .003 

CF.CHN= 

000001 

C.BUF 

..0014 

CF.EOM= 

000004 

C.BUFI 

000014 

CF.HDR= 

0C002C 

C.BUF2 

000024 

Cf.LB  = 

ICOOOO 

C.CNT 

000020 

CF.LIN- 

000002 

C.CNT1 

000020 

Cf.SOM= 

OOOQiO 

C.CNT2 

000030 

CF.SyN= 

000040 

C.FLG 

000022 

CF.TRN= 

000100 

C.FLGl 

000022 

CMODE  = 

140000 

C.FLG2 

000032 

C.FNC 

000010 

OSMAXV 

000070 

C.LIN 

0CU006 

D$MLL 

000040 

C.LNK 

000000 

DSMNOD 

000041 

C.MOD 

000011 

D$NA 

000062 

C.NSP 

000004 

DSNBEA 

000056 

C.PRO 

000042 

DSNBRA 

000054 

C.RSV 

000002 

D$NEND=: 

000054 

C.STA 

000007 

0$NLN 

000030 

C.STS 

000012 

D$NN 

000060 

C.URM 

177776 

DSOUTT 

000043 

C.XACP 

000004 

DSRETF 

000050 

C.XID 

000035 

DSF-NN 

000002 

C.XLEN 

000044 

DSKTMR 

000076 

C.XPLI 

000040 

D$SEG 

000036 

C.XPT 

000034 

D$SER 

000032 

C.XSVC 

000042 

DSSQRL 

000052 

C.XTC 

000037 

D$$BUG= 

177514 

C.X25 

000036 

D$$ISK= 

000000 

DEACB  = 

«***»«  GX 

D$$L11= 

000001 

OFCPT  = 

***«*»  GX 

D$$VNC= 

000000 

DV.CCL= 

000002 

D$$YNM= 

000000 

PV.COM= 

020000 

D.DSP 

C00012 

DV.DIR= 

000010 

D.LNK 

ooocoo 

DV.EXT= 

000400 

D.MSK 

000014 

DV.F11= 

040000 

D.NA1 

000004 

DV.JSP= 

002000 

O.PCB 

000034 

DV.M8C= 

000400 

D.UC8 

000002 

DV.MNT= 

100000 

D.UC8L 

000010 

OV.MSD= 

000100 

D.UN.'T 

000006 

DV.OSP= 

004000 

D.VCAN= 

000002 

DV.PSE= 

010000 

D.VDEB= 

1  77776 

DV.REC= 

000001 

D.VINI= 

000000 

DV.SD]= 

000020 

D.VOUT= 

000004 

DV.SQD= 

000040 

D.VPWF= 

000006 

DV.SWL= 

001000 

E$NBR 

000014 

Dv.7rv= 

000004 

E$NBS 

000020 

DV.UHD= 

000200 

ESNCR 

000034 

DSAMXC 

000072 

E$NCS 

000036 

DSAMXH 

000074 

E$NIC 

000044 

D$ANN 

000000 

ESNLEN 

000050 

DSBRPR 

000102 

ESNLLA 

000012 

DSBRTM 

000100 

ESNLNK 

000000 

DSDELF 

000045 

ESNML 

000040 

DSDELU 

000046 

E$NHR 

000024 

D$END  = 

000104 

E$NHS 

000030 

D$FN8 

000034 

ESNMOD 

000002 

DSKIOR 

000024 

E$NRT 

000042 

DSHOST 

000022 

ESNRTP 

000005 

DSINAC 

000044 

ESNSEG 

000010 

DSINCT 

000042 

ESNTIM 

000046 

D$IPL 

000051 

ESNUSE 

000004 

D$LID 

000020 

ESSTRT 

000006 

D$LN'>M 

000006 

E$$XPR= 

000000 

D$LNv..1 

000014 

FC.CCP= 

000020 

D$LS" 

00004? 

FC.CTL= 

000006 

D$MAXC 

000064 

FC.KCP= 

000016 

D$MAXH 

000066 

FC.KIL= 

000004 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FNDPDV= 

FNDPLI 

F$.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EXI  = 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.HSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

rS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFRr 

FS.SFS= 

FS.SPU= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 

FS.WLB= 

FS.XKL= 

FS.X0F= 

FS.X0N= 

FS.ZER= 

F$$LVL= 

G$$TPP^ 

G$$TSS= 

G$$TTK= 

G$$WRD= 

4EADR  = 

H.CS° 

H.CUIC 

H.DSW 

H.DUIC 


000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

**«*♦«  GX 

000610R 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

oorooo 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 

»«**tt  GX 

000000 

000010 

000046 

000012 
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11 

100 
101 

.SBTT'.  MARKED  fOR  ENABLE  SCf 
SNIMFE  -  PERFORM  MARKED-FOR-ENABLE 

^N 
SCA^ 

102 
103 

INPUTS: 

10A 

ALL  PROCESS/LINES  MARKED  FOR 

LOAD  HAVE  BEEN  LOADED 

105 
106 

OUTPUTS: 

107 

ALL  LINES  THAT  ARE  READY  AND 

OWNED  BY  SPECIFIED  LLC  ARE  ENABLED 

108 
109 
110 
111  000006 

ALL  REGISTERS  ARE  PRESERVED 

tNlMFE: 

112 

'.IF  NDF 

S$$BAS 

113  000006 

MRKTSS 

#TMEFN,#1,*2 

;  Wait  1  second  in  case  system  has 

lU  000032 

WTSESS 

*TMEfN 

been  VNP'd  and  contains  a  DMV 

115 

.ENDC 

116 

117  000044 

CALL 

SSAVAL 

.-SAVE  ALL  REGISTERS 

118  000050 

CALL 

FNDPDV 

FIND  ECL/XPT  DATA  STRUCTURES 

119  000054 

005067 

177724 

CLR 

ACTCIR 

INIT  CIRCUIT  ENABLED  FLAG 

120  000060 

017746 

OOOOOOG 

MOV 

aSLTNM,-(SP) 

SET  NUMBER  OF  SYSTEM  LINES 

121  000064 

017702 

OOOOOOG 

MOV 

aLLCTA,R2 

POINT  TO  FIRST  REVERSE  MAPPING 

122  000070 

017704 

OOOOOOG 

MOV 

aSLTMA,R4 

POINT  TO  SLT  INDEX  TABLE 

123  000074 

012405 

ENAC: 

MOV 

(R4)t,R5 

GET  POINTER  TO  SYSTEM  LINE  TABL 

124  0000^6 

005067 

177676 

CLR 

STAADD 

ASSUME  NOT  MULTIPOINT  LINE 

125  000102 

032765 

040000 

000000 

BIT 

#LF.fiDy,L.FLG(R5) 

IS  EVERYTHING  READY  (DDM.DLCETC. )? 

126  000110 

001002 

BNE 

1$ 

IF  YES  -  ENABLE  IT 

127  000112 

128 

129  000116 

CALLR 

60$ 

CONTINUE 

116500 

000003 

1$: 

MOVB 

L.DLC(R5),R0 

;GET  PDV  INDEX  OF  DDM 

130  000122 

0t,/700 

OOOOOOG 

ADD 

aPDVTA.RO 
(RO),R0 

POINT  TO  CORRECT  PDV 

131  000126 

011000 

MOV 

GET  PDV  ADDRESS 

132  000130 

032765 

100000 

000000 

BIT 

*LF.ACT,L.FLG(R5) 

IS  LINE  ALREADY  ACTIVE? 

133  000136 

134 

135  000140 

001412 

BEQ 

5$ 

IF  NO  -  BRANCH 

032765 

000400 

000000 

BIT 

#Lf.BR0,L.FLG(R5) 

.-BROADCAST  LINE  ? 

136  000146 

001404 

BEQ 

4$ 

IF  NO  -  BRANCH 

137  000150 

132765 

000200 

000022 

BITB 

#Sf.ACT,L.MPF(R5) 

XPT  CHANNEL  ACTIVE  ? 

138  000156 

139 

140  000160 

001402 

BEQ 

5$ 

IF  NO  -  BRANCH 

4$: 

CAL'R 

60t 

; CONTINUE 

141 

142  000164 

■;$: 

145 

.IF  DF 

R$$MPL 

144 
145 

BT 

#ZF.PSE,Z.FLG(R0) 

;DLM  CIRCUIT  ? 

146 

SNE 

20$ 

;IF  YES  -  BRANCH 

147 
'48 

MOV 

L.Kfi8A(R5),R3 

;GET  POINTER  TO  KRB 

149 

BIT 

#KS.0FL,K.STS(R3) 

•IS  THE  CONTROLLER  OFF-LINE? 

150 

BNE 

4$ 

•YES  ...  CAN'T  ENABLE  IT 

151 

TSTB 

aNCPU 

■ARE  WE  RUNNING  ON  A  MUlTI-PROCESSOR 

152 

BEQ 

20$ 

;N0  ...  WE  CAN  ENABLE  THE  LINE 

153 

BIT 

K.URM(R3),auRMST 

;IS  THE  REQUIRED  UNIBUS  ACTIVE? 

154 

BEQ 

4$ 

;N0  ...  WE  CAN'T  ENABLE  THE  LINE 
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MACRO  NAME 

REFERENCES 

ADJDFS 

#5-65 

5-79 

3IA5 

#5-66 

8-347 

CALL 

6-117 
8-364 

6-118 

6-193 

CALLR 

#5-67 

6-127 

6-140 

CCBDft 

#5-65 

5-71 

CTRDFS 

#5-66 

5-72 

DHBDFS 

#5-67 

5-69 

DIRS 

#6-113 

6-113 

#6-114 

ECDDBS 

#5-67 

5-70 

EMSGS 

#5-67 

6-193 

6-237 

MAP 

#5-66 

8-344 

MOV$ 

#6-113 

6-113 

6-113 

MRKTtS 

#5-67 

6-113 

PDVDFS 

#5-65 

5-77 

PHBDFS 

#5-66 

5-76 

PLBDFS 

#5-66 

5-78 

RESMAP 

#5-66 

8-371 

8-374 

RESRG 

#5-65 

7-307 

RETC 

#5-65 

7-299 

8-333 

RETURN 

6-253 

7-300 

7-308 

RVP$ 

#6-113 

6-113 

SAVMAP 

#5-66 

8-342 

8-359 

SAVRG 

#5-65 

7-269 

SLTDFS 

#5-65 

5-74 

SOB 

8-353 

SVCDFS 

#5-66 

5-75 

SWSTKS 

7-288 

8-329 

WSIGSS 

#5-65 

7-303 

WTSESS 

*/5-67 

6-114 

XPDC3S 

#5-65 

5-73 

6-198  6-237            6-241             7-282             7-288             7-289            8-329 

6-249  7-297 

6-114  #7-303             7-303 

6-113  6-113  #6-114             6-114 


8-375 
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CREF       OA.OO 


PR5 

pr; 

PR5 

PR6 

PR? 

PS 

R$$MPL 

R$$1TD 

RSSIIM 

R$$ns 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 

SLTNM 

SWR 

SSIBAS 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TPS 

UBMPR 

UlSARO 

UI5AR1 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.lNl 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 


OOOKO 
000200 
000240 
000300 
0003AO 
177776 


=  000000 

=      ****** 

=  000200 
=  000100 
=-  0000C4 
=  OOOOAO 
=  000020 
=  000010 
=  000001 
=  000002 
=  OOOOAO 
=  **♦*♦♦ 

r  ****** 

=  177570 
=  ****** 

000001 

000000 

OOOOOA 

O00'JO2 

000003 

=  17756A 

=  170200 

=  1776A0 

=  177642 

=   ****** 

=  001000 
=  000001 
=  004000 
=  000002 
=  100000 
=  040000 
=  000020 
=  000004 
=  000100 
=  020000 
=  000010 
=  000400 
=  000040 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 
=  140000 


GX 
GX 


#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
5-66 
5-64 
5-64 
5-64 
#5-65 
#5-65 
#5-65 
#5-65 
#5-o5 
#5-65 
#5-65 
#5-65 
#5-65 
8-132 
8-131 
#5-66 
6-80 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-66 
#5-66 
#5-66 
#5-66 
5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-6'. 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 


5-66 
5-66 


9-192 


5-66 


9-203 


6-80 

9-192 
9-205 


5-64 


6-81 
♦9-203 


6-81 


7-115 

8-161 
8-159 
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Pege  9 


0  U 


Hi, 

335 

336 

337 

338 

339 

340 

3'.1 

34? 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355  000060 

356 

357 

358 

359 

360 

361  000060 

362  000066 
363 

364 

365  000070 

366  000076 

367  0001  Ofi 

368  000106 

369  000110 

370  000116 
371 

372 
373 
374 
375 
376 
377 

378  000120 

379  000126 

380  000130 

381  000136 
382 

383 
384 
385 
386 

387  000140 

388  000144 

389  000146 

390  000154 


.58TTL  MAIN  CONTROL 


NTIGRQ  -  GET  FUNCTION  REQUEST  AND  DISPATCH 

THIS  ROUTINE  IS  CUI^ENTLY  CODED  SUCH  THAT  FUNCTION  REQUESTS  TO 
NTINIT  VIA  "SEND  DATA"  MUST  BE  SYNCHRONOUS  WITH  NUNIT 
COMPLETIONS.   THAT  IS,  ANY  REQUEST  TO  NTINIT  IS  ILLEGAL  UNTIL 
THE  PREVIOUS  REQUEST  HAS  BEEN  COMPLETED. 

INPUTS: 

NONE 

OUTPUTS: 

WAIT  FOR  A  COMPLETED  RCV  DATA  AND  DISPATCH  THE  PROPER  FUNCTION 

ACCORDING  TO  "SNIFNC"  (SET  BY  THE  RCV  DATA  ROUTINE) 
THE  SEND  DATA  TO  THE  REQUESTING  TASK  IS  ONLY  DONE  AFTER 

THE  FUNCTION  IS  COMPLETED.   THE  RETURNED  FUNCTION  IS  EITHER 
POSITIVE  (SUCCESS),  ZERO  (NO-OP),  OR  NEGATIVE  (ERRORS 


NTIGF1Q: 


126727 
001424 


032777 
001414 
126727 
001430 
126727 
001452 


000204'  000001 

OOOOOOG  000610' 
000204'  000011 
000204'  000012 


.IF  DF 
BIT 
BEQ 
.ENDC 

CMP8 
BEQ 


.IF  NDF  R$$11S 


R$$11S 

#FE.CEX,5)FMASK 

20$ 


$NIFNC,#LS.CEX 
30$ 


#FE.CEX,aFMAbK 

20$ 

$NIFNC,#LS.ON 

40$ 

$NIFNC,*LS.X25 

60$ 


BIT 

BEQ 

CMPB 

BEQ 

CMPB 

BEQ 

.ENDC 


.IF  DF  S$$BAS 

CMPB    $NIFNC,#LS.ON 

BEQ     40$ 

.ENDC 


;IS  THE  COMM  EXEC  LOADED 
;  ..NO 

;IS  IT  A  "SET  SYS"? 
;8R  IF  YES 


IS  THE  COMM  EXEC  LOADED  ? 

..  NO 
IS  IT  "SET  EXECUTOR  ON"? 
BR  IF  YES 

IS  IT  SET  MODULE  X25-SERVER? 
BR  IF  YES 


;IS  IT 
;IF  EQ, 


"SET  EXECUTOR  STATE  ON' 
YES 


000470 
000464 


103461 
032767 
001005 


20$: 


EMSG$  03 

BR  80$ 

EMSG$  04 

BR  80$ 


CALLS  JO   FUNCTION  ROUTINES.   THE 
INDICATING  SUCCESS/FAILURE,  AND 
COMPLETION  CODE  FOR  THE  FUNCTION 


;ILLEGAL  FUNCTION 
;COMM  EXEC  NOT  LOADED 

SE  ROUTINES  SHOULD  RETURN  WITH  CARRY 
■'$NIFNC"  SET  TO  A  PROPER  RETURN 
REQUESTOR. 


50$: 


010000  000204" 


CALL 

$NICEX 

;FUNCTI0N  -  SET  SYS 

BCS 

80$ 

;BR  IF  FAILED 

BIT 

#LS.CXO,$N!FNC 

;  IS  IT  EXECUTOR  ON  ALSO 

BNE 

40$ 

;  BR  IF  YES 

NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:02  Page  9-1 
MAIN  CONTROL 


E  K 


NTINIT 
PUTAS' 


MACRO  V05.03b   Thursda) 
-  PUT    COMPLFTION  AST    U 


05-Se[ 
CALLEF 


-85  11-02     Page  17 
TASK'S  AST   QUEUE 


D  15 


831 
832 
833 
83A 
83S 
836 
837 
838 
839 
SAO 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 

852  001222 

853  001222 

854  001226 

855  001232 

856  001236 

857  001240 

858  001242 

859  001246 

860  001252 
861 

862  001254 

863  001266 
864 

865  001270 

866  001272 

867  001274 

868  001276 

869  001302 

870  001306 

871  001312 

872  001316 

873  001 322 

874  001324 

875  001326 

876  00^332 
877 

878 
879 
880 
881 


.SbTTL  PUTAST  -  PUT  COM^'LETION  AST  IN  CALLER  TASK'S  AST  QUEUE 

PUTAST  -  PUT  A  COMPLETION  AST  IN  THE  CALLER  TASK'S  AST  QUEUE 
INPUTS; 

$nitrn=call1ng  task's  name 
$nifnc^success  code 
$niast=a:t  address  in  task 
$n1prm=parameter  to  return  to  task 

OUTPUTS: 

AN  AST  IS  QUEUED  FOR  THE  CALLER. 


000000 


012703     000174' 

103406 
010005 
012701      000016 

1u3006 


000421 

010002 
005720 
010120 
012/20 
016720 
012720 
016720 
016720 
010500 
010201 


$$$$  =  0 


PUTAST: 


.IIF  DF  R$$11S   $$$$  =  1 
.IIF  DF  S$$eAS  $$$$  =  0 


.IF  LQ  $$$$ 


000024 

000120' 

000002 

000122' 

000204' 


SUSTKS 

30$ 

MOV 

#NTISEN+5.DATN,R3 

CALL 

aSRSTD 

BCS 

10$ 

MOV 

R0,R5 

MOV 

*7*2,R1 

CALL 

aALOCB 

BCC 

20$ 

10$: 

RETC 

RO 

BR 

30$ 

20$: 

MOV 

R0.R2 
(R0)  + 

TST 

MOV 

R1.(R0)+ 

MOV 

#lJ*2,(R0)t 

MOV 

$NIAST,(RO)+ 

MOV 

#2,(R0)«- 

MOV 

$NIPRM,(RO)+ 

MOV 

$NIFNC,(RO)t 

MOV 

R5,R0 

MOV 

R2,R1 

CALL 

SOASTT 

30$: 


000000' 


RETURN 
.ENDC 


.END 


NTINIT 


ASSUME  WE  WILL  ASSEMBLE  THIS  ROUTINE 
WE  DON'T  NEED  IT  FOR  US 
BUT  WE  DO  NEED  IT  FOR  SERVER  BASE 
(EVEN  THOUGH  IT  IS  US  BASED) 


ENTER  SYSTEM  STATE 

POINT  TO  TASK  NAME 

FIND  CALLER'S  TCB  ADDRESS 

IF  CS,  NOT  THERE  -  TOO  BAD 

ELSE,  COPY  TCB  ADDRESS 

ELSE,  SET  AST  BLOCK  LENGTH 

ALLOCATE  SOME  POOL 

IF  CC,  GOT  IT  -  PROCEED 

RETURN  CARRY  SET 
...  AND  RETURN 

COPY  ADDRESS  OF  BLOCK  ALLOCATED 

BUMP  OVER  LINK  WORD 

SET  LENGTH  OF  BLOCK  (FOR  DEALLOCATION) 

SET  STACK  SPACE  TO  RESERVE  FOR  TASK 

SET  AST  VIRTUAL  ADDRESS  FOR  TASK 

SET  PARAMETER  COUNT 

SET  PARAMETER  #1  (USER  SUPPLIED) 

SET  PARAMETER  #2  (COMPLETION  STATUS) 

POINT  TO  TASK  TCB 

POINT  TO  AST  BLOCK 

QUEUE  THE  AST  TO  THE  CALLING 

BACK  TO  USER  STATE  AND  RETURN 
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VUNL  ■ 
FLT16 


VNP  UNLOAD  ROUTINES 
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1635 

1636  005422 

1637  005^.24 

1638  005430 

1639  005436 


1640 
1641 


02424J 
010267 
017767 
012702 


000010' 
OOOOOOC  000006' 
000012' 


80$: 


005442 


1642  005450 


100$: 


CMP 
MOV 
MOV 
MOV 

SWTCHI 
RETURN 


-(R2),-(R2)     ;  RESET  R2  TO  FIRST  WORD  OF  ENTRY 

R2,U8A         ;  SAVE  UNLOAD  ENTRY  ADDRESS  WITHIN  BLOCK 
a$ADRX,UBIAS    ;  AND  ADDRESS 

#BL0CK,R2      ;  RESET  R2  TO  START  OF  BLOCK 

;  POINT  BACK  AT  DEFAULT  BUFFER 
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VUNL      CREATED  BV  MACRO  ON  16-SEP-85  AT  07:31 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VAl_UE 


Z.DAT 
Z.DSP 
Z.FLG 
Z.NAM 
Z.PCB 
$ADRX 
SADRZ 
$BFR 


::  ♦*■**»* 

=  ****** 

~  ****** 

=  ****** 

r  ****** 

-  ****** 

=  ****** 

z  ****** 


SBIAS 

SCCBLH 

SCCBSZ 

SCCEX 

SCEACC 

SCETDF 

SCLIN 

SCPRO 

SCXOPT 

SDDMPV 

$DEA16 

$DEA18 

SDECPT 

SDEPOL 

SDEUMR 

SDEVHD 

SDLCPV 

SEROUT 

SFILHD 

$FLAGS 

SFMASK 

SGETAD 

SGETRV 


SHMBUF 

$:CBLN 

SKRBLN 

$LGST^ 

$MUL 

SMXVCl 

$NAME 

SNTLHB 

SOBJHD 
SPARHD 
$PDVA 


-  ****** 

-  ****** 

-  ****** 

003666 

=  ****** 

r     ****** 

001610 
001462 

r  ****** 

=  ****** 

=  ****** 

-  ****** 
=  ****** 
=  ****** 
=  ****** 
::  ****** 
=  ****** 
=  ****** 
=  ****** 

-  ****** 
=  ****** 

-  ****** 
=  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
Ca 
tx 

RG 
GX 
GX 

RG 

RG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
*  -**** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


**.*»*  GX 
»*♦*•♦  GX 
******  GX 


REFERENCES 

8-366 
•8-361 

8-316 

8-372 

8-351 

18-1093 

22-1597 

7-210 

8-329 

10-455 

11-525 

17-992 

21-1324 
*21-1482 

21-1568 
•14-745 

21-1321 

21-1313 
#21-1253 

7-207 

7-214 
#14-648 
#13-614 
•21-1357 

12-587 

14-808 

10-452 

10-485 

7-234 

21-1429 

21-1465 

12-573 

13-626 

21-1562 

8-264 

21-1256 

7-208 

8-322 

14-700 

21-1538 

21-1508 

15-825 

14-700 
♦21-1575 

10-472 

17-994 

8-335 

7-203 

21-1379 

21-1491 

8-318 

8-263 


•8-385 
•8-362 

8-364 

8-377 
•8-360 

22-1598 

7-215 

•8-331 

10-458 

11-528 

17-1029 

•21-1393 

•21-1483 

21-1569 

•24-1818 

•21-1324 


21-1494 
20-1217 


21-1281 
10-465 
21-1342 
21-1499 


12-582 
17-1065 

12-571 
•21-1386 
18-1117 
8-334 
15-827 
24-1814 
21-1512 
18-1090 
14-802 

10-489 

17-1003 

13-615 

7-224 

22-1598 


13-617 
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10-484 
14-745 
•13-619 
14-754 
21-1305 
22-1632 

7-219 
8-335 
10-464 
11-532 
17-1034 
♦21-1465 
21-1498 
22-1641 


21-1515 


20-1234 

12-580 

21-1496 

10-442 

15-836 

25-1849 

21-1537 

18-1161 

17-962 


17-1007 
•14-754 
20-1205 
23-1734 


♦21-1J07 


18-1150 
14-655 

21-1480 
22-1638 

7-226 

8-337 

10-468 

14-726 

17-1047 

21-1467 

21-1510 

23-1749 


14-757 
24-1813 


•8-318 
8-341 
10-477 
15-833 
18-1165 
21-1471 
21-1518 
23-1752 


14-775 


8-320 
8-343 
10-481 
15-845 
20-1227 
21-1473 
21-1519 
•23-1755 


8-323 

10-443 

10-486 

15-847 

21-1265 

21-1475 

21-1527 

23-1778 


8-325 
10-444 
10-487 
15-849 
•21-1267 
21-1477 
21-1539 
24-1818 


8-327 
10-450 
10-500 
1 7-986 
•21-1270 
21-1480 
21-1548 
25-1850 


21-1545         21-1565 


21-1332 

21-1361 

21-1390 

21-1431 

24-1826 

10-478 

10-496 

10-502 

11-533 

23-1711 

21-1387 

21-1509 

21-1538 

21-1528 

21-1552 

21-1571 

23-1733 


12-585 


21-1517 

21-1547 

21-1567 

22-1601 

23-1748 

10-453 

K-466 

10-479 

10-485 

10-497 

11-524 

17-962 

17-1007 

21-1264 

21-1323 

21-1469 

21-1509 

25-1856 

21-1541 

17-1050         17-1068 


21-1359 
•23-1736 


21-1360 
23-1741 


21-1363 
23-1746 


21-1364 


21-1366         21-1371 


vol 
DE, 
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SYMBOL  CROSS  REFERENCE   
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CREF   04.00 


vu 

DE 


VONPSI  - 
DEACUG  - 

205 

20A 

20? 

206 

207 

208 

209 

210 

211 

212 

213 

214 

^15 

216 

21/ 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 
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Deallocate  CUG  blocks 

.SBTTL  DEACUG  -  Deallocate  CUG  blocks 
I- 
***  DEACUG  -  Deallocate  CUG  blocks 

INPUTS 

SPFLAG  -  PSJ   characteristics  word 

OUTPUTS 

CUG  blocks  deallocated 


All  register,  preserved 


000374 

C00400  016/03 

000404  062703 

000410  032767 

000416  001005 


0u0420  012701 

000424 

000430  000447 


000432 

000436 

000454  016746 

000460  005067 

000464 

000470  012600 

000472  001424 
00.474 
000504 

000522  016746 

000526  116701 

000532  062701 
000536 

000542  OOC  ' 

000544 
000550 


DEACUG:  CALL 

OOOOOOG  MOV 

000010  ADD 

OOOOOOG  OOOOOOG        BIT 

BNE 


SSAVAL 
$PSIPT,R3 
#H$CUC,R3 
#PF.XDF, SPFLAG 
10$ 


Save  all  registers 

Get  address  of  listhead 

Check  for  extended  data  format 
Branch  if  extended 


000016 


OOOOOOG 
OOOOOOG 


OOOOOOG 
00001 5G 
000016 


Deallocate  old-format  CUG  blacks 


MOV 

CALL 

BR 


#G$LFN,R1 

DEALST 

60$ 


Deallocate  extended  CUG  blorls 


10$: 


20$: 


SAVMAP 

GETRV   R3,*2 

MOV     $SFR,-(SP) 

CLR     $BFR 

PUTRC 


50$: 
60$: 


MOV 

BED 

CEACC$ 

GETAD 

MOV 

MOVB 

ADD 

CALL 

BR 

RESMAP 
RETURN 


(SP)+,RO 

50$ 

R0,R2 

R2,*G$LEN 

$BFR,-(SP) 

$BFR+G$NML, 

#G$LEN,R1 

$DEPCL 

20$ 


R1 


Length  of  old-format  block 
Deallocate 


Save  current  mapping 

Read  in  listhead 

Save  address 

Zero  buffer  and  rewrite  listhead 


Restore  address  of  block 

Branch  if  end  of  chain 

Map  to  block 

Read  fixed  part  of  block 

Save  link  address 

Get  length  of  variable  part 

Add  length  of  fixed  part 

Deallocate  block 


Restore  mapping 


(CTDOOn 
;CTD00n 
rCTDOOn 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001.T 
.-CTDOOn 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;LTD00n 
;CTD001] 
;CTD00n 
;CTD001] 
jCTDOOl] 
jCTDOOl] 
;CTD001] 
;[TD001] 
;CT0001] 
;CTD00n 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDOOI] 
;[:TD001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
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DEADST  -  Deallocate  destination  descriptors 


VUNPSl 


CREATED  BY  MACRO  ON  17-JUL-85  AT  12:15 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


E  A 

PAGE  2 

CREF   04.00 


R$R2 

R$R3 

R$R4 

R$R5 

RISE  IS 

R$$11D 

SYSFDB 


SILEN 

TtCBUF 

T$CLEN 

TSCSIZ 

XLDTE 

XPORT 

XPSV 

XTRA 

XX29 

X$GLEN 

XSLEN 

$BFR 


000006 
C00010 
000012 
OOOOK 


000032 
OOOOOA 
000020 
000010 
000772 
001260 
001720 
001 55A 
00K76 
000106 
000106 
=  ****** 


GX 


GX 


tCEACC  =  *♦•♦»»  GX 

$DBG$  =  **«*•* 

$DEA16  =  ♦»♦•*♦  GX 

$DEPOL  =  ******  GX 

SGETAD  ^^  ******  GX 

SGETRV  -  ******  GX 

SPFLAG  =  ******  GX 

SPSIPT  =  .**•*.  GX 

SPUTRC  =  .*•**.  GX 

SRADDR  =  •**•«*  GX 


SRBLCK  =  ****** 


GX 


SSAVAL      =    ******      GX 
SXPSI  000000   RG 


REFERENCES 

#6-93 
#6-  'A 
#6-95 
#6-96 

12-356 

12-356 
*9-185 
*12-331 
*1 5-469 

8-125 

15-478 

15-469 

15-474 

8-137 

8-''36 

8-140 

8-139 

8-138 

13-405 

13-402 

9-186 
*11-265 

12-345 

14-437 
*17-541 

9-192 

8-116 

8-153 

9-197 

9-193 

9-185 

15-469 

8-131 

16-501 

8-117 

16-505 

9-188 
*9-185 
*12-347 
*16-514 

9-184 
*13-410 

9-170 
#8-116 


13-414 

15-475 

15-475 

*9-193 

•12-335 

*16-507 


15-472 

#12-323 
#13-383 
#16-501 
#15-459 
#14-434 


*9-187 
11-277 
12-348 

*14-4?9 
17-548 
10-238 

12-350 
10-243 
10-239 
10-231 
16-507 
8-146 

8-141 
16-512 
10-234 
*9-193 
*12-365 
*1 7-539 
*9-200 
17-538 
10-216 


9-194 

11-279 

*12-348 

15-465 

11-270 

14-442 
11-302 
11-276 
11-263 
16-514 
8-148 

*8-155 

11-266 
*10-231 
*13-385 
*17-547 

10-230 
*17-555 

11-261 


9-195 

11-282 

12-353 

*1 5-467 

12-334 

15-487 
12-361 
11-288 
12-330 
17-530 
*8-154 

9-171 

12-365 
*10-239 
*13-388 

*10-246 

12-324 


10-232 
11-289 
12-355 
15-474 

13-392 


13-408 
12-335 
12-347 

9-173 

10-217 

14-440 
*11-263 
*13-395 

11-262 

13-391 


*10-233 
11-294 

*1 2-364 
15-478 

17-546 


13-416 
13-395 
13-385 

10-219 

12-328 

15-468 
*1 1-276 
*14-436 

*11-305 

15-460 


10-240 
11-297 
13-386 
16-508 


16-511 
17-547 
13-388 

n-271 

13-383 

17-542 
•11-288 
*15-464 

12-325 

16-504 


10-241 
12-331 
13-389 
16-515 


16-518 
14-436 
12-340 
14-434 

•12-330 
•15-469 

•12-366 

17-537 


*10-231 

•10-239 

*11-263 

*11-276 

•11-288 

•12-327 

•12-330 

•12-347 

*12-365 

*13-385 

•13-388 

•13-395 

•14-436 

♦15-464 

•16-514 

*17-539 

»17-547 

11-264 
12-336 
13-396 
17-540 


17-551 
15-464 
13-403 
15-462 


*12-335 
*16-507 

13-406 
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ON  29-JUN-85   AT   03:12 


E     5 

PAGE   2 

CREF       OA.OO 


STMRDV  000A34  RG 

STMVCT  000000  RG 

SVECTl  =    »»..*«      GX 

t$VEC!  =    •*♦-*•     GX 


REFEFfENCFS 

7-254 
*6-86 
6-99 
5-120 


#8-268 


V'jcr 
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58 
59 
60 
61 

$XLBR 

-  RELFASE  LIBRARY  REFERENCE 

INPUTS: 

62 

RO=LIBRARY  DESCRIPTOR 

BIAS 

63 
64 
65 

R2=-LIBRARV  DESCRIPTOR 

ADDRESS 

OUTPUTS: 

66 

R0,R1,R2=DESTROYFD 

67 

68  000000 

;XLBR:: 

69  000000 

005046 

CLR 

-(SP) 

;  NO  lib;   Y  to  DE-ALLOCATE 

70  000002 

005046 

CLR 

-(SP) 

;  NO  DE-ALlOCATION  SIZE 

71  OOOOOA 

CALL 

$GETLB 

;  READ  IN  LIBRARY  BLOCK 

72  000010 

060201 

ADD 

R2,R1 

;  POINT  AT  OUR  DESCRIPTOR 

73  000012 

005767 

OOOOOOG 

TST 

.MGMGE 

;  MAPPED  TARGET  SYSTEM? 

74  000016 

100403 

BHI 

10$ 

;  IF  MI,  NO 

75  000020 

105361 

OOOOOOG 

DECB 

LS.USE(RI) 

;  DECREMENT  USE  COUNT 

76  000024 

000402 

BR 

20$ 

17   000026 

005361 

OOOOOOG 

10$: 

DEC 

LB.USE(RI) 

;  DECREMENT  USE  COUNT 

78  000032 

001046 

20$: 

BNE 

50$ 

;  IF  NE,  STILL  SOME  ACTIVE  REFERENCES 

T^   000034 

005011 

CLR 

(R1) 

;  ZERO  THE  FIRST  WORD  OF  DESCRIPTOR 

30  000036 

016116 

OOOOOOG 

MOV 

LS.ADR(R1),(S 

■•)  ;  SAVE  LIBRARY  BIAS  AND  SIZE  FOR  LATER 

81  000042 

016166 

OOOOOOG  000002 

MOV 

L8.SIZ(R1),2(SP)  ; 

82  000050 

160201 

SUB 

R2,R1 

;  POINT  AT  START  Of  32.  WORD  BLOCK 

83  000052 

026700 

OOOOOOG 

CMP 

$NTLPT,RO 

;  WAS  DESCRIPTOR  WITHIN  NETLDR  DATA  BLOCK? 

84  000056 

001434 

BEQ 

50$ 

;  IF  EQ,  YES 

85  000060 

005361 

000002 

DEC 

2(R1) 

;  ADJUST  DESCRIPTOR  COUNT  FOR  THIS  BLOCK 

86  000064 

001031 

BNE 

50$ 

;  IF  NE,  BLOCK  IS  SI^ILL  ACTIVE 

87  000066 

011146 

MOV 

(R1),-CSP) 

;  SAVE  POINTER  TO  NEXT  BLOCK 

88  000070 

010046 

MOV 

RO.-CSP) 

;  SAVE  BIAS  OF  THIS  BLOCK 

89  000072 

012701 

000001 

MOV 

#1,R1 

;  ASSUME  MAPPED  TARGET 

90  000076 

005767 

OOOOOOG 

TST 

.MGMGE 

;  CORRECT  ASSUMPTION? 

91  000102 

100002 

BPL 

25$ 

;  IF  PL,  YES 

92  000104 

012701 

000100 

MOV 

#100, R1 

;  UNMAPPED  ALLOCATION  SIZE 

93  000110 

25$: 

CALL 

$DEA18 

;  DE-ALLOCATE  LIBRARY  BLOCK 

94  000114 

012602 

MOV 

(SP)+,R2 

;  RESTORE  OUR  BIAS 

95  000116 

016700 

OCjOCQC 

MOV 

$NTLHB+.CXLBR 

,R0  ;  GET  FIRST  LIBRARY  BLOCK  BIAS 

96  000122 

020002 

CMP 

R0.R2 
40i 

;  IS  OURS  THE  FIRST? 

97  000124 

001004 

BNE 

;  IF  NE,  NO 

98  000126 

012667 

ooooooc 

MOV 

(SP)+,$NTLHBt 

.CXLBR  ;  SET  NEW  FIRST  LIBRARY  BLOCK  BIAS 

99  000132 

000410 

BR 

55$ 

100  000134 

011100 

30$: 

MOV 

(RD.RO 

;  GET  NEXT  LIBRARY  BLOCK  BIAS 

101  000136 

40$: 

CALL 

$GETLB 

;  READ  IN  LIBRARY  BLOCK 

102  000142 

021102 

CMP 

(R1),R2 

;  DOES  THIS  BLOCK  POINT  AT  OURS? 

103  000144 

001373 

BNE 

30$ 

;  IF  NE,  NO 

104  000146 

012611 

MOV 

(SP)t,(Rl) 

;  RESET  POINTER  TO  OUR  VALUE 

105  000150 

50$: 

CALL 

$PUTLB 

;  RE-WRITE  LIBRARY  BLOCK 

106  000154 

012600 

55$: 

MOV 

(SP)+,RO 

;  GET  LIBRARY  BIAS 

107  000156 

012601 

MOV 

(SP)+,R1 

;  AND  SIZE 

108  000160 

001402 

BEQ 

60$ 

;  IF  ZERO,  ALL  DONE 

109 
110 

.IF  DF 

R$$MPL 

.-LMPOl] 

111 

CALL 

DEL18V 

;  DEALLOCATE  LIBRARY  VECTOR  BLOCK       ;[MP01] 

112 
113 
114  000162 

.ENDC 

;[MP01] 

CALL 

$DEA18 

;  DE-ALLOCATE  LIBRARY 

Nr 

Nl 

M 
Nl 
Nl 
Nl 
Nl 
Nl 
Nl 
Nl 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
N 
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E  7 


NNN 

NNN 

nTTTTTTTTTTTTT 

NNN 

NNN 

TTTTTTTTTTTTTTT 

NNN 

NNN 

TTTTTTTTTTTTTTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

NNNNNN 

NNN 

TTT 

NNNNNN 

NNN 

TTT 

NNNNNN 

NNN 

TTT 

NNN   NNN 

NNN 

TTT 

NNN   NN^ 

NNN 

TTT 

NNN   NNN 

NNN 

TTT 

NNN 

MNNNNN 

TTT 

NNN 

NNNNNN 

TTT 

NNN 

MNNNNN 

TTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

NNN 

NNN 

TTT 

ni. 
m: 
hi: 


111 

111 
III 


Till 
1111 
1111 


1111 
1111 
1111 


nil 
nil 
nil 


nil 
nil 
nil 


1111 
1111 
nil 


1111 
nil 
mi 


nil 
nil 
nil 


nil 
nil 
ini 


MMM  MHM 

MMM  MMM 

MMM  MMM 
HMMMMM  MMMMMM 
HMMMMM  MMMMMM 
MMMMMM   MMMMMM 

MMM  MMM   MMM 

MMM  MMM   MMM 

MMM  MMM   MMM 

MMM  MMM 

MMM  MMM 

MMM  MMM 

MMM  MMM 

MMM  MMM 

MMM  MMM 

MMM  MMM 

■"■■M  MMM 

'  MMM 

Mi'li*!  MMM 

MMM  MMM 

MMM  MMM 


••FILE»*ID*»NT1CEX 
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SYMBOL  CROSS  REFERENCE 
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CREf   04.00 


SYMBOL  VALUE 


L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPAR 

MPCSR 

M$$EXT 

M$$MGE 

NTILIN 

NTLPT 

PDVID 

PDVNM 

PDVTA 

PIRQ 

PMODE 

°R0 

PR1 

PR2 

PR3 

PRA 

PR5 

PR6 

PR7 

PS 

PUMR 

R$$MPL 

RSSIID 

R$$11M 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SWR 

SSSBAS 

S.COST 

S.FLG 

5.LEN 

S.NMST 

S.Ol^NR 


000006 
000010 
000000 
000016 
000022 
000022 
000020 
OOOOH 
000021 
000013 
172100 
177746 
000000  G 
000000 
000110  RG 
«♦»«♦*  GX 
**.»♦«  GX 
*♦*»**  GX 
GX 


=  177772 
=  030000 
=  000000 
=  000040 
=  000100 
=  000140 
=  000200 
=  000240 
=  000300 
=  000340 
=  177776 

=  *****  * 
=   ****** 


=  000000 

-  ****** 

=  000200 
=  000100 
=  000004 
=  000040 
=  OOOC20 
=  000010 
=  000001 
=  000002 
=  000040 
=  177570 
=   ****** 

000001 
000000 
000004 
000002 
000003 


GX 


REFERENCES 

#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-74 
#5-74 
#5-78 

5-74 

6-138 

7-228 

7-204 

7-191 

7-190 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 

7-260 

5-67 

8-300 

5-74 

5-75 

5-75 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-74 

5-90 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 


7-230 
#7-138 


7-237 


N' 
M/ 
W 
C/ 

o: 
it 

Nl 
N' 
01 
PI 
R! 
Ri 
S/ 
SI 

s» 

SI 


5-74 
5-75 
5-88 


5-74 


5-74 


5-96 


7-222 


7-242 


7-254 


7-273 


6-135  7-216 


5-90 
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MACRO  CROSS 

t^EfEREMCE 

CREf   04.00 

MACRO  MAME 

REFERENCES 

CALL 

6-123 

6-179 

6-18? 

D1R$ 

#5-59 

6-U9 

6-151 

EMSG$ 

#5-59 

6-189 

NHWDFS 

#5-59 

5-61 

NTLERS 

#5-59 

5-88 

OFFt 

#5-7A 

#5-75 

PDVDFS 

#5-59 

5-63 

resr: 

#5-59 

6-190 

6-198 

RETURN 

6-1A3 

6-199 

SAVRG 

#5-59 

6-119 

6-161 

SLTDFS 

#5-59 

5-62 

SVTKS 

#5-59 

5-74 

5-75 

SUSTKS 

6-123 
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H.EFLM 

00000'. 

NF$SHU= 

000004 

H.EF5V 

OOOOAO 

NF$T1M= 

000200 

H.FCS 

000050 

NF.ACC= 

299901 

H.FORT 

000052 

NF.BCP= 

000040 

H.FPSA 

0000A2 

NF.END= 

000200 

H.FPSL= 

000062 

NF.EVT= 

000002 

H.FOVA 

00003A 

NF.LLI= 

000004 

H.GARD 

000072 

NF.LV2= 

000100 

H.HDLN 

000002 

NF.SL1= 

000400 

H.IPC 

000016 

NF.SHC= 

000020 

H.IPS 

OOOOU 

NF.SUP= 

000010 

H.ISP 

000020 

NSACO 

000000 

H.LUN 

000076 

NSACTL 

000032 

H.NLUN 

000074 

IISADJI 

000072 

H.NML 

000061 

N$ADJ2 

000074 

H.OPv'A 

000022 

NSCACH 

000062 

H.ODVL 

00002A 

N$CIR 

000034 

H.OVLV 

00005A 

N$CRC 

000120 

H.PFVA 

000032 

NSDLA 

000020 

H.RCVA 

000036 

N$DLY 

000014 

H.RRVA 

000062 

NSELEN 

000054 

H.5PRI 

000060 

N$ENC 

000042 

H.TKVA 

000026 

NSERRC 

000022 

H.TKVL 

000030 

NSFLG 

000005 

H.VEXT 

000056 

NSFNC 

000006 

H.WND 

000044 

NSGENQ 

000052 

H.X25 

000064 

N$GTM 

000015 

I$$RAR= 

000000 

N$HC1 

000052 

;t$RDN= 

000000 

N$HC2 

000056 

KISARO= 

172340 

NSHIGH 

000033 

KISAR6= 

172354 

NSLLT 

000026 

K$$CNT= 

177546 

NSLLTM 

000024 

K$$CSR= 

177546 

NSLVC 

000036 

K$$LDC= 

000000 

NSLVI 

000002 

K$$TPS= 

000074 

N$LV2 

000010 

LDSLP  = 

000000 

MtMBXQ 

000050 

LONACP 

000014R 

002  NSMHCI 

000036 

LVLl   = 

002000 

N$MHC2 

000044 

L$$ASG= 

000000 

N$PLD 

000016 

L$$DRV= 

000000 

NSPLLT 

000030 

LS$P11= 

000001 

NSPRI 

000076 

L$$11R= 

000000 

NSROAI 

000022 

WPAR  = 

172100 

N$R0A2 

000030 

MPCSR  = 

177746 

NSRTHX 

000014 

M$$CRB= 

000124 

NSRTMI 

000014 

M$$CRX= 

000000 

N$RTH2 

000015 

M$$FCS= 

000000 

N$RT1 

000000 

«$$MGE  = 

000000 

N$RT2 

000006 

M$$NET= 

000000 

N$SLA 

000016 

M$SOVR= 

000000 

NSSNOD 

000012 

NF$ACC= 

100000 

NSTCTL 

000112 

NF$BLK= 

000100 

N$TIM 

000004 

NF$DMO= 

000010 

N$TLC 

000100 

NF$EVT= 

0400C0 

NSTNC 

000114 

NF$MOU= 

000040 

NSTRC 

000106 

NF$RST= 

000002 

NSTTCB 

000110 

^F$sc^= 

000020 

N$VCB 

000010 

N$VER 

NiXLEN 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP- 

N$$NLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

PDVID  = 

PDVTA  = 

PF$BLK= 

PF$CLC= 

PF$DLM= 

PF$EIP= 

PF$EN8= 

PF$FAI= 

PFSFMIr 

PF$FM2= 

PF$OFF= 

PF$RH1= 

PF$RM2= 

PF$RVR= 

PF$STA= 

PF$SVC= 

PF$UP  = 

PIRQ  = 

PLDADR 

PLDLEN 

PMODE  = 

PR$6ED= 

PR$BEU= 

PR$BRD= 

PR$BRU= 

PR$DWN= 

PR$LCC= 

PR$MOP= 

PRSUP  = 

PRO   = 

PR1 

PR2   = 

PR3 

PR4 

PR5 

PR6   = 

PR7   = 

PS 

PS$CHR= 

PS$FAI= 

PS$NTI= 

PS$OFF= 

PSSSTRr- 

PS$UP  = 
PS$VER= 
PS$WT  = 
PT$BRO= 


000066 

000124 

000001 

000001 

000001 

000001 

OOuCOl 

000010 

000001 

000001 

»♦»♦**  GX 

**«*»*  (3x 

020000 

010000 

100000 

000002 

000001 

004000 

000100 

000200 

000000 

000020 

000040 

000010 

000004 

040000 

000004 

177772 

OOOOOOR 

000002R 

030000 

000200 

00010c 

000040 

000020 

000002 

000010 

000004 

000001 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000016 

000014 

000006 

000000 

000002 

000012 

000010 

000004 

000200 
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PT$DRT= 
PT$END= 
PT$LV1= 
PT$LV2= 
PT$PH3= 
PT$XAR= 
PX$8LK= 
PX$DLM= 
PX$SVC= 
P$CHN 
P$CNT 
P$CTR 
PSDRCT 
PSDRTR 
P$FLG 
P$FUD 
PSICCB 
PSIPL 
P$LCD 
P$LEN 
P$LST 
PSNRNI 
PSOCCB 
P$PFQ 
PSPKSZ 
PSRMXI 
P$RMX2 
PSRPRI 
002  PSRTIM 
002  PSSTAI 
P$STA2 
P$riM 
PSTSCT 
PSTSIZ 
P$TYP 
P$$P45= 
P$$WRD= 
Q$$OPT= 
RCP1NM 
RCP2NM 
RF.CTL= 
RF.LD1= 
RF.LD2= 
RF.TIM= 
RF.TMO= 
RF.WFC= 
RF.WTD= 
RF.WTM= 
RF.UTS= 
R$$DER=: 
R$$K11= 
R$$SND= 
R$$11M= 
R.UNGC= 
R.UNPC= 
R.UNPN 
R.UNPR= 


000100 

R.UNRM= 

000004 

R.UNRU= 

000002 

R.UNSM= 

000001 

R.UNSU= 

000010 

R.UNTN= 

000020 

SRSTD  = 

000040 

SWR   = 

000200 

S$$WRG= 

000100 

S$$YSZ= 

000004 

S1.DEC= 

000005 

S1.DPR= 

000034 

S1.DSI= 

000015 

S1.ESC= 

000036 

S1.IBF= 

000012 

S1.IBY= 

000030 

S1.08Y= 

000046 

S1.PTH= 

000014 

S1.RES= 

000002 

S1.RNE= 

C00052 

S1.RNF= 

000000 

S1.RSP= 

000040 

S1.RST= 

000050 

S1.TNE= 

000006 

S1.TSY= 

000044 

S1.USI= 

000016 

S2.BEL= 

000020 

S2.BRQ= 

000042 

S2.CR  = 

000003 

S2.CT0= 

000022 

S2.CTS= 

000023 

S2.ELF= 

000010 

S2.FLF= 

000026 

S2.IRQ= 

000024 

S2.0BF= 

000001 

S2.0RQ= 

000000 

S2.PCU= 

000000 

S2.RCU= 

000010 

S2.SPQ= 

000004R 

002  S2.WAL= 

00001  OR 

002  S2.WRA= 

000003 

S2.WRB= 

000040 

S3.ACR= 

000100 

S3.CTC= 

177400 

S3.FDX= 

000400 

S3.1CE= 

000200 

S3.MHE= 

000020 

S3.NEC= 

000030 

S3.PPT= 

000010 

S3.PTH= 

000000 

S3.RAL= 

000001 

S3.RES= 

000000 

S3.RUB= 

000000 

S3.TAB= 

000015 

S3.TME= 

000014 

S3.TSY= 

000006 

S3.8BC= 

000012 

S4.ABD= 

000022 
000024 
000016 
000020 
000002 
****** 

177570 
000000 
007600 
001000 
000400 
004000 
000002 
002000 
000200 
000100 
000010 
010000 
000020 
020000 
000004 
000001 
040000 
000040 
100000 
020000 
000020 
002000 
040000 
100000 
001000 
000400 
000200 
004000 
000100 
010000 
000001 
000040 
000010 
000006 
000002 
000001 
000004 
000200 
001000 
000400 
000020 
020000 
004000 
000010 
010000 
040000 
000002 
002000 
000040 
000100 
100000 


GX 
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155 
156 
157 
158  000164 

20$: 

.ENDC 

116503 

000014 

Move 

L.N3TA(R5),R3 

159  000170 

001516 

BEQ 

50$ 

160  000172 

010246 

MOV 

R2.-(SP) 
(r5',R2 

161  000174 

011202 

MOV 

162  000176 

006302 

ASL 

R2 

165  000200 

005046 

CLR 

-(SP) 

164  000202 

010546 

MOV 

R5,-(SP) 

165  000204 

010346 

MOV 

R3,-(SP) 

166  000206 

116567 

000012  1775'.^ 

M0V8 

L.CTL(R5),CTLNUM 

167  000214 

105067 

17, iA? 

CLRB 

STANUM 

168  000220 

062705 

000022 

ADD 

#L.MPF,R5 

169  000224 

152715 

000100         30$: 

BITS 

#SF.ENA,(R5) 

170  000230 

171 

172  000232 

001461 

BEQ 

40$ 

011246 

MOV 

^R2),-(SP) 

173  000234 

000516 

SWAB 

(SP) 

174  000236 

005001 

CLR 

R1 

175  000240 

111601 

Move 

(SP),R1 

176  000242 

005726 

TST 

(SP)  + 

177  000244 

067701 

OOOOOOG 

ADD 

aPDVTA.RI 

178  000250 

011101 

MOV 

(R1),R1 

179  000252 

022761 

114224  000004 

CMP 

#''RXPT,Z.NAM(R1) 

180  000260 

181 

182  000262 

001050 

BNE 

36$ 

016701 

OOOOOOG 

MOV 

$DriECL,R1 

183  000266 

132761 

000040  000005 

BITB 

*NF$M0U,N$FLG(R1) 

184  000274 

001001 

BNE 

31$ 

185  000276 

186 

187  000300 

000436 

BR 

40$ 

017701 

OOOOOOG       31$: 

MOV 

aDECPT.RI 

188  000304 

005761 

000060 

TST 

D$NN(R1) 

189  000310 

001014 

BNE 

36$ 

190  000312 

005767 

177466 

TST 

ACTCIR 

191  000316 

001407 

BEQ 

^5J 

192  000320 

142765 

000100  000000 

BICB 

#Sf.ENA,S.FLG(R5) 

193  000326 

EMSG$ 

12 

194  000334 

195 

196  000336 

000417 

BR 

40$ 

005267 

1^7442        35$: 

INC 

ACTCIR 

197  000342 

010567 

177432         36$: 

MOV 

R5,STAADD 

198  000346 

CALL 

ENALIN 

199  000352 

103410 

BCS 

40$ 

200  000354 

012766 

100000  000004 

MOV 

#LF.ACT,4($P) 

201  000362 

152715 

000200 

BISB 

#SF.ACT,(R5) 

202  000366 

112765 

000000  000002 

MOVB 

#LN.0N,S.NMST(R5) 

203  000374 

022525 

40$: 

CMP 

(R5)+,(R5)t 

204  000376 

062702 

000002 

ADD 

#2,R2 

205  000402 

105267 

177374 

INCB 

STANUM 

206  000406 

005316 

DEC 

'SP) 

207  000410 

001305 

BNE 

30$ 

208  000412 

005726 

TST 

(SP)  + 

209  000414 

012605 

MOV 

(SP)+,R5 

210  000416 

052665 

000000 

BIS 

(SP)+,L.FLG(R5) 

211  000422 

012602 

MOV 

(SP)+,R2 

GET  It   OF  STATIONS  ON  THIS  LINE 

IF  EQ,  NOT  A  MIJlTI-DROP  LINE 

SAVE  REVERSE  MAPPING  TABLE  POINTFR 

GE^  POINTFR  TO  REVERSE  MAPPING  TABLE/2 

GET  REAL  POINTER 

INITIALISE  BIT  TO  SET  IN  LINE  FLAGS 

SAVE  SLT  POINTER 

SAVE  COUNT  OF  STATIONS 

SAVE  CONTROLLER  NUMBER 

START  WITH  STATION  NUMBER  ZERO 

POINT  TO  MULTI-DROP  FLAGS  TABLE 

SHOULD  THIS  STATION  BE  ENABLED? 

NO 

GET  REVERSE  MAPPING  VALUE 
GET  OWNER  LLC  INDEX 


CLEAN  UP  STACK 

GET  OWNER  LLC  PDV  ADDRESS 

OWNER  XPT  ? 
IF  NO  -  BRANCH 

COPr  ECL  DATA  BASE  ADDRESS 

IS  NETWORK  ON  ? 

IF  VES  -  BRANCH 

IF  NO  -  DO  NOT  ENABLE  CIRCUIT 

GET  OECNET  HOME  BLOCK  ADDRESS 

ROUTING  NODE  ? 

IF  YES  -  BRANCH 

IF  NO  -  ANY  OTHER  LINES  ENABLED  ? 

IF  NO  -  BRANCH 

IF  YES  -  DISABLE  LINE 

PRINT  MSG 

CONTINUE 

COUNT  ANOTHER  XPT  CIRCUIT  ENABLED 

SAVE  STATION  TABLE  ADDRESS 

ENABLE  THE  LINE 

BR  IF  LINE  NOT  OWNED  BY  SPECIFIED  LLC 

WE  WILL  MAKE  THE  LINE  ACTIVE 

MARK  THE  STATION  ACTIVE 

MARK  THE  MANAGEMENT  STATE  AS  'ON' 

MOVE  ON  TO  NEXT  STATION 

MOVE  ON  TO  NEXT  LINE 

INCREMENT  STATION  NUMBER 

REDUCE  COUNT  OF  STATIONS  TO  GO 

LOOP  TILL  ALL  CHECKED 

REMOVE  COUNT  FROM  STACK 

RECOVER  SLT  ADDRESS 

POSSIBLY  MARK  THE  LINE  ACTIVE 

RECOVER  REVERSE  MAPPING  TABLE  ADDRESS 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

Z.AVL 

0000  K 

#5-64 

Z.DAT 

000016 

#5-64 

Z.DSP 

000000 

#5-64 

5-64 

Z.FLG 

000010 

#5-64 

7-115 

8-139 

8-151 

Z.LEN 

=  000016 

#5-64 

Z.LLN 

000006 

#5-64 

Z.M«.' 

000020 

#5-64 

Z.NAM 

000004 

#5-64 

7-121 

8-150 

9-194 

Z.PCB 

000012 

#5-64 

Z.SCH 

000007 

#5-64 

$ERR30 

000002 

R 

#6-80 

8-165 

$ERR31 

000042 

R 

#6-81 

7-127 

SNERDD 

=   ****♦« 

GX 

6-80 

$NER50 

-   ****** 

GX 

6-81 

SNIERA 

~      ****** 

GX 

»7-126 

•8-156 

•8-157 

•8-158 

♦8-159 

•8-160 

♦8-163 

SNIERR 

-   ****** 

GX 

6-80 

6-81 

tNIFLG 

=      ****** 

GX 

7-118 

8-145 

9-196 

SNIMFL 

000000 

RG 

#7-1  0 

SNINTL 

=:  ****** 

GX 

7-122 

8-152 

9-201 

SNTLFC 

=  ****** 

GX 

»7-117 

•7-120 

•7-121 

7-124 

7-126 

•8-144 

•8-147 

•8-148 

•8-149 

*8-150 

8-154 

8-156 

8-158 

8-160 

•9-194 

•9-195 

•9-198 

•9-199 

•9-200 

SSAVRG 

=  ****** 

GX 

9-187 

.BASES 

=  140000 

#5-66 

NTIMFL 
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391 

392 

39?  000156 

394  000164 

395 

396 

397  000166 

398 

399  000170 

400  000174 

401  000176 

402  000204 

403  000216 

404  000224 

405  000230 
406 

407 
408 
409 
410 
411 
412 
413 
414 

415  000232 

416  000240 
417 

418 

419 

420  000242 

421 

422 


032767  000400  000204' 
001027 


000454 

105777  000676' 
001413 


103427 


40$: 


50$: 


032767  000400  000204' 
001001 


000426 


.If  NDF  R$$11S 

BIT  #LS.CX5,$NIFNC 

BNE  60$ 

.ENDC 


BR 


90$ 


423  000244 

105777 

000676' 

60$: 

TSTB 

424  000250 

001413 

BEQ 

425  000252 

DIR$ 

426  000260 

WTSE$S 

427  000272 

DIR$ 

428  000300 

70$: 

CALL 

429  000304 

103401 

BCS 

430  000306 

000404 

BR 

431 

432 

.ENDC 

433 

434  000310 

012767 

Mini     000204'  J6$: 

MOV 

435  000316 

000402 

BR 

436  000320 

437 

438  000324 

005067 

000204' 

90$: 

CLR 

100$: 

.If  NDF 

439  000324 

DSAR$S 

440  000332 

005067 

000226' 

CLR 

441  000336 

005767 

000120' 

TST 

442  000342 

001403 

BEQ 

443  000544 

CALL 

444  000350 

000403 

BR 

445 

446  000352 

110$: 

Dlfi$ 

447  000560 

120$: 

CALL 

TSTB  aLGSTT 

BEQ  50$ 

DIR$  *$NIMRK 

WTSE$S  #MR<TEF 

DIR$  #$NIEVC 

CALL  $NILON 

BCS  80$ 

.IF  NDF  S$$8AS 

.IF  DF  R$$11S 
BIT     #LS.UNF,$NIFNC 
BEQ     90$ 
MOV     aT<ii.B,RO 
BIC     #T2.FXD,T.ST2(R0) 
MOV     #»R...,T.NAM+2(R0) 

.1<T  ;uF  R$$11S 
BIT     #LS.CX5,$NIFNC 
BNE     60$ 

.ENDC  ;DF  R$$11S 
.ENDC   ;NDF  S$$BA5 

BR     90$ 

.IF  NDF  R$$11S 
aLGSTT 
70$ 

#$NJMRK 
#MRKTEf 
#$NIEVC 
$NIX25 
80$ 
90$ 


#-1,$NIFNC 

100$ 

$NIFNC 


$n:flg 

$NIAST 
110$ 
PUTAST 
120$ 

#NTISEN 
NTIRDX 


IS  IT  SET  X25  ON  ALSO? 
BR  If  VC? 


;  ELSE  FINISH  UP 

;ARE  ANY  LOGGING  SINKS  ENABLED? 

;IF  EO,  NO 

;WAIT  TWO  SECONDS  FOR  EVL 

•TRy  TO  START  EVENT  COLLECTOR 
.-FUNCTION  -  SET  EXECUTOR  ON 
;BR  If  ERROR 

;  DON'T  PERMIT  UNFIX  ON  SERVER  BASE 

;  IS  THE  UNFIX  SUB-FUNCTION  SET  ? 

;  ..NO 

;  GET  OUR  TCB  ADDRESS 

;  CLEAR  THE  FIXED  BIT 

;  CHANGE  INSTALLED  NAME  TO  "NTI..." 

;  IS  IT  X25  STATE  ON  ALSO? 
;  BR  IF  YES 


;ELSE  EXIT  WITH  SUCCESS 


ARE  ANY  LOGGING  SINKS  ENABLED? 

IF  EQ,  NO 

WAIT  TWO  SECONDS  FOR  EVL 

TRy'tO  START  EVENT  COLLECTOR 
FUNCTION  -  SET  MODULE  X25-SERVER 
BR  IF  ERROR 
FINISH  UP 


INDICATE  NTINIT  FUNCTION  fAILED 
AND  fINISH  UP 
INDICATE  SUCCESS 


DISABLE  AST  RECOGNITION 

CLR  FLAGS  AND  BUSY  INDICATION 

NOTIFY  USERS  VIA  AST? 

BR  If  NO 

ELSE  NOTIfY  USER  VIA  AST 

AND  CONTINUE 

SEND  COMPLETION  TO  THE  REQUESTOR 
GET  NEXT  FUNCTION  OR  EXIT 
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ABTIM 

ALOCB 

AS.DEL= 

AS.EXT= 

A5.RED= 

AS.WRT= 

A$$CHK,= 

A$$rPS= 

A$$PR!= 

A$$TRP-- 

A.IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TC8 

A.TCBL 

BUFUMP= 

CALLX 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT 

CC.LLC= 

CEACC 

CE.ABO= 

CE.[)AO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.lTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 


STP= 
CE.TME= 
CE.TMC=: 
CE.UNS= 
CF.CHN= 
CF.?PM= 
CF.DyN= 
CF.EIS= 
CF.EOM= 
CF.FRK;  = 
CF.HDR- 
CF.LB  = 
CF.LI^J= 
CF.LOG= 
CF.MDM= 
CF.SOM= 


000640RG 

000620RG 

000010 

OOOOOA 

000001 

000002 

000000 

000000 

000000 

000000 

000003 

OOOOK 

000011 

000012 

000000 

000002 

000010 

00000^ 

000006 
172354 

00065ARG 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000664RG 

000200 

000672RG 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000002 

000004 

000010 

000004 

100000 

000020 

100000 

000002 

000020 

000001 

000010 


002 
002 


CF.SYN= 

CF.TIM= 

CF.TRN: 

CLKHD 

CMODE  = 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.L1N= 

CM.L00= 

CM.XL0= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2fR= 

CS.ABO= 

CS.BR0= 

CS.BUF= 

002  CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 

002  CS.EN8= 
CS.ERR= 

002  CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.ROV= 
CS.RSN= 
CS.SHU= 
CS.SID= 
CS.STR= 
CS.SUC= 
CS.TMO= 
CS.XUR= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
C.ADD 
C.BID 
C.BUF 
C.BUF1 
C.BUF2 
C.CNT 
C.CNTI 
C.CNT2 
C.FLG 
C.FLG1 


000040 

000400 

000100 

000''34RG 

140000 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

00000? 

OOOOOh 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000C2O 

000020 

000030 

000022 

000022 


002 


C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

CSTS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPLl 

C.XPT 

C.XSVC 

C.XTC 

C.X25 

DEACB 

DECPT 

DEVHD 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

EXEVEC 

E$$XPR= 

FC.CCP= 

FC.CTL^ 

FC.KCP= 

FC.KJL= 

FC.MAN= 

FC.MLD= 

FC.PCT: 

F  C .  PWR: 

FC.RCE^ 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FE.CEX= 

FMASK 

FNDPDV 

FS.AST= 

FS.CIB= 

FS.CRA: 

FS.DIS= 

FS.DVC^ 

FS.ENB: 

FS.EXI= 

FS.GET^ 

FS.HLT= 

FS.INI= 

FS.K1L= 

FS.LCL= 


.006 
000000 
090011 
000004 

5595^2 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

000622RG 

000700RG 

000642RG 

177514 

000000 

000001 

000000 

000000 

000606R 

000000 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

^*  GX 
000610RG 
000450RG 
000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 


FS.LTM= 
FS.MNT= 
FS.MSN= 
FS.REA= 
FS.REr= 
FS.RE2= 
FS.RLB= 
FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STPr 
FS.STR= 
FS.TRM= 
002  FS.WL8= 
002  FS.XKL= 
002  FS.X0F= 
FS.XON= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
002  G$$TTK= 
G$$URD= 
HEADR 
IE.ACT= 
IO.WVB= 
I$$RAR= 
I$$RDN= 
K1SAR0= 
K1SAR6= 
KSAR6 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDPWF 
LD$LP  = 
002  LF.ACT= 
LF.BRO= 
LF.BWT^ 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 


001000 

004000 

OUOOO 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000000 

000000 

000000 

000000 

000626RG 

»**»*»  GX 

******  GX 

000000 

000000 

172340 

172354 

000612RG 

177546 

177546 

000000 

000074 

000644RG 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 


LF.X2P= 

LGSTT 

LUAL 

LLCRS 

LLCTA 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP-- 

LN.0PE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

002  LR.CIR 
LR.CTL 
LR.EFN 
LR.LIN 
LR.PRM 
LR.PRO 
LR.STS 

002  LR.TCB 
LR.UNT 
LS.AST= 
LS.CEX= 
LS.CIR= 

002  LS.CXO= 
LS.CX5= 
L$.DLM= 
LS.ECH= 
LS.FDX^ 
LS.HDX^ 
LS.L1N= 
LS.LMC= 
LS.NTI= 
LS.ON  = 
LS.OPT= 
LS.PRO= 
LS.PWF= 
LS.TOP= 
LS.UNF= 
LS.X25= 


000000 

000676RG 

000706RG 

000666RG 

000710RG 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000006 

000006 

000014 

000004 

000010 

000010 

000014 

000015 

000012 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 

000005 

100000 

000001 

000010 

010000 

000400 

004000 

001000 

004000 

010000 

000005 

000007 

004000 

000011 

000400 

000002 

040000 

002000 

020000 

000012 


002 
002 
002 
002 


NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:02 
Symbol  table 


Page  17-2 


F  15 


NTITIM  M«RO  v05.05b  Sirurday  29-Jun-85  03:28  Page  ^ 


E  16 


1 
2 
3 
t, 
S 
6 
7 
8 
9 
10 
11 
1? 
13 
U 
15 
16 
17 
■'8 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   NTITIM 
.IDEM  /V05.0C/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  C0RPOi?ATI0N,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  ITOER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIARILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCkIPTION; 

NTINIT  -  START  COMM  EXEC  TIMERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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016703     000010' 
001001 

010367     000112' 

005023 

011300 

005023 

011301 

042701     000003 

132767  000001     000200' 

00U11 

142767  000001  000200' 

016701  000176' 

016700  0001 74' 
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164A 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 

1654  005452 

1655  005456 

1656  005462 

1657  005464 

1658  005466 

1659  005472 

1660  005474 

1661  005476 

1662  005500 

1663  005502 

1664  005506 

1665  005512 

1666  005520 

1667  005522 

1668  005530 

1669  005534 
1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 
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005540 


005544 
005546 
005550 
005552 
005554 
005556 
005560 
005562 
005566 
005572 
005576 


011346 

005023 

006026 

103047 

005046 

005046 

152316 

152366  000002 

005063  177776 

012667  000116' 

001421 


;  INPUTS: 

R3=LINE 

TABLE  ADDRESS 

;•  OUTPUTS: 

R0,R1,R2,R3=DESTP0YED 

XLT16: 

CALL 

FLT16 

<LT: 

MOV 

UBA,R3 

BNE 

120$          ; 

CRASH 

120$: 

MOV 

R3,UPTR 
(R3)  + 

CLR 

MOV 

(R3),R0 

CLR 

(R3)  + 

HOV 

(R3),R1 

BIC 

#3,R1 

CALL 

.DEA16 

BITB 

#PR.LTA,PRLTA 

BEQ 

140$ 

BIC8 

#PR.LTA,PRLTA 

MOV 

IC8SZ,R1 

HOV 

ICBSAV.RO      ; 

.IF  DF 

R$$,v|PL 

TST 

.MPRO 

BLT 

130$ 

CALL 

DEICP 

BR 

140$ 

130$: 

BIT 

#DF.DAS,$DFLAG  , 

BEQ 

135$ 

CALL 

$DEAIC 

BR 

140$ 

135$: 

ADD 

#4,R1 

SUB 

#4,R0 

.IFTF 

CALL 

.DEA16 

.ENDC 

140$: 

MOV 

(R3),-(SP) 

CLR 

(R3)  + 

ROR 

(SP)  + 

BCC 

200$ 

CLR 

-(SP 

CLR 

-(SP) 

BISB 

(R3)+,(SP) 

BISB 

(R3)+,2(SP) 

CLR 

-2(R3! 

MOV 

(SP)t, COUNT 

BEQ 

180$ 

FIND  16  BIT  LINE  TABLE 

WAS  UNLOAD  ENTRY  FOUND? 

IF  NE,  YES 

LINE  TABLE  NOT  FOUND  IN  UNLOAD  DATA! 

SAVE  POINTER  TO  IT 

SKIP  THE  PDV  INDEX 

GET  LINE  TABLE  ADDRESS 

ZERO  IT  (CLEARS  C-BIT) 

GET  LINE  TABLE  SIZE 

CLEAR  EXTRANEOUS  BITS 

DE-ALLOtATE  LINE  TABLE 

PARTITION  LINE  TABLE? 

NO  IF  EQUAL 

REASONABLE  HERE  (I  THINK  ID 

SIZE  OF  ICB 

..AND  IT'S  ADDRESS 


MULTIPROCESSOR  SYSTEM  ? 

IF  IF  NO  -  BRANCH 

IF  YES  DEALLOCATE  -  ICS'S 

CONTINUE 

D-SPACE  SYSTEM  ? 

IF  NO  -  BRANCH 

DEALLOCATE  ICB'S 

CONTINUE 


ADJUST  FOR  LINK  WORD  AND  FIELD 


DO  DEALLOCATE 


SAVE  LINE  TABLE  SIZE 

ZERO  IT 

ANY  SUB-ALLOCATIONS? 

IF  CC,  NO 

CALCULATE  ALLOCATION  COUNT 

AND  LIBRARY  COUNT 


ZERO  THE  COUNTS 

GET  NUMBER  OF  ALLOCATIONS 

IF  ZERO,  NO  WORK  TO  DO 


;[MP01] 

;[MP01] 
;[MP01] 
;[MP01] 
;[MP01] 
.-CMPOI] 
;[MP01] 
;CMP01] 
;[MP01] 
;[MP01] 

.-CMPOI] 
;WP01] 


;CHP01] 


VUNL  -  VNP  UNLOAD  ROUTINES 
XLT16  -  DEALLOCATE  LINE  TABLE 
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SYMBOL  VALUE 


SPDVNM 
SPDVTA 
SPNAME 
tPRAVL 
SPUTAD 
SPUTRC 
SRADDR 


=  »»»*♦♦  Gx 
000000  RG 

=:  **«*-t*   GX 

-    ******  GX 
=  «*»«*«  GX 


SRBLCK 

SRDBLH 

SRSIZE 

SSAVAL 

SSClBLH 

$SLTA 

SSLTMA 

SSLTNM 

$UNBLK 

SUNBSZ 

SVFLAG 

SVUNB 

SXLBR 

SXLIN 

SXLINK 

SXPAR 

SXPRO 

SXPSI 

SXSNA 

$$ 

$$$ 

$$$$ 

.CXALL 

.CXCSR 

.CXLEN 

.CXPCS 

.CXUNL 

.CXVEC 

.DEAPR 

.DEA16 

.NETPF 

.NSO 

.NS'' 

.NS2 

.NS3 

.NSA 

.NS5 

.NS6 

.NS7 

.PLGTH 

.SBPCB 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

***  V** 

0C1320 

****** 
***** * 
000132 

****** 
****** 

177777 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

RG 
GX 
GX 

RG 
GX 
GX 


003600  R 

00366A  R 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

006U4  R 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

9-412 
9-413 

#6-111 

♦24-1816 
20-1226 
17-1050 

*  7-208 

•11-524 
21-1263 

•21-1538 

•21-1502 

•21-1334 

•18-1090 
10-441 

•21-1336 
12-559 
15-860 
15-861 
20-1209 
23-1732 
8-314 
20-1213 
23-1721 

#12-556 
7-231 
8-349 

#8-260 
21-1350 
21-1353 
13-627 

#17-1067 

#13-627 

#13-628 
21-1359 
20-1205 
21-1360 
21-1379 
22-1598 
7-203 
24-1819 
23-1664 
21-1394 
6-166 
6-167 
6-168 
6-169 
6-170 
6-171 
6-172 
6-173 
8-322 
21-1371 


21-1301 
9-420 

•24-1817 

23-1756 

21-1271 

•8-322 

•14-700 

•21-1264 

•21-1547 

•21-1531 

•21-1335 

•21-1312 

20-1204 

•21-1337 

14-649 

19-1174 

19-1175 

20-1225 


8-353 

21-1352 
21-1355 
13-627 

#17-1068 
13-628 

#17-1068 


23-1734 
7-224 


8-354 


14-793 

24-1823 
23-1776 
21-1394 
•8-334 
•15-827 
•21-1271 
•21-1567 
•21-1555 
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21-1300 


vu 

DE 


21-148'i 

10-442 

•15-836 

•21-1323 

23-1740 

•21-1574 


•10-453 

•17-962 

•21-1394 

•23-1745 

•23-1742 


•10-466 
•17-1002 
•21-1467 
•23-1775 
23-1744 


•10-479 

•17-1046 

•21-1496 

•24-1814 

•23-1774 


•10-485 
•17-1050 
•21-1509 
•25-1849 


•10-497 
•18-1116 
•21-1517 
•25-1853 


•22-1595       •23-1739 


20-1211 
21-1286 
21-1287 


21-1367 


•21-1292 


21-1373         21-1380 


#13-627  #13-628  17-1066  17-1066       #17-1066         17-1067         17-1067 

20-1235         20-1235  #20-1235  #20-1236 

#17-1066         17-1068  #20-1235  20-1236 
#20-1236 


♦23-1736         23-1741         23-1746 
25-1686         23-1707       #24-1804 


24-1814 
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CREF       04.00 


VI 
DE 


VUNPjI  - 
DEADST  - 

2^9 

250 

251 

252 

253 

25A 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 
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h 

***  DEADST  -  Deallocate  destination  descriptor  blocks 
INPUTS: 


000552 
000556 
000562 
000600 
000604 
000610 

000614 
000616 
000620 
000630 
000636 


000640 
000656 
000662 
000666 
000672 
000674 
000676 
000702 
000704 


000706 
000724 
000730 


000734 
000740 
000742 
000744 
000750 
000752 
000754 

000756 
000762 

000764 


016746 
005067 


012600 
001462 

032767 
001423 


R3  -  Address  of  listhead 


OUTPUTS 


The  destination  descriptor  blocks  are  deallocated 


DEADST: 


OOOOOOG 
OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 


CALL 

SAVMAP 

GETRV 

MOV 

CLR 

PUTRC 

MOV 

BEQ 

CEACCS 

BIT 

BEQ 


SSAVAL 

R3,#2 

$8FR,-(SP) 

$6FR 


(SP)+,RO 

50$ 

R0,R2 

#PF.XDF,$PFLAG 

30$ 


Save  all  registers 

Save  mapping 

Read  in  listhead 

Stack  address  of  first  block 

and  zero  listhead 

Write  updated  listhead 

Get  unmapped  address  of  next  block 
If  EQ,  end  of  list 
Convert  to  mapped  address 
Check  for  extended  data  format 
Branch  if  not  extended  format 


Compute  total  length  of  extended  fields 


016746 
012701 
012702 
112203 
060301 
02022  <' 
101773 
000413 


016746 
012701 


116703 
006303 
060301 
116703 
006203 
005503 
060301 


000714 


OOOOOOG 

000032 

000022G 


000027G 


OOOOOOG 
000032 


000030G 
000031 G 


20$: 


GETAD 

MOV 

MOV 

MOV 

MOVB 

ADD 

CMP 

BLOS 

BR 


R2 


R2,#D$GLEN 

$BFR,-(SP) 

#D$GLEN,R1 

*$8FR+D$DSL 

CR2)+,R3 

R3,R1 

R2,#$BFRtD$ACL 

20$ 

40$ 


Read  fixed  part  of  block 

Save  link  to  next  block 

Get  fixed  length  of  block 

Address  first  length  field 

Read  length  field 

Add  to  total  block  length 

Check  if  last  length  field  added 

Check  remaining  fields 


Compute  length  of  old-format  fields 

iO$:  GETAD   R2,#D$FLEN     ;  Read  fixed  part  of  block 

MOV     $8FR,-(SF)      ;  Save  link  to  next  block 
MOV     #D$FLEN,R1      ;  Get  fixed  length  of  block 

Add  length  of  call  mask/value  and  DTE  field: 

40$ 


50$: 


MOVB 

ASL 

ADD 

MOVB 

ASR 

ADC 

ADD 

CALL 
BR 

RESMAP 


$8FR+D$DATL,R3  ;  Get  length  of  call  mask/data 

R3  ;  Double,  since  two  fields  of  same  Length 

R3,R1  ;  Increase  length  to  deallocate 

$BFRtD$DTEL,R3  ;  Get  number  of  digits  in  DTE  number 

R3  ;  Compute  bytes  occupied  by  DTE  number 

R3 

R3,R1  ;  Increase  length  to  deallocate 


$DEPOL 
10$ 


Deallocate  destination 
and  go  again 

Restore  mapping 


;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD0013 
;CTD00n 
;CTD0013 
;CTD00i: 
;CTD001] 
;CTD0013 
iCTDOOU 
;CTD001] 
;[TD001] 
;CTD00n 
.•CTD001] 
;CTD001] 
;[TD001] 
;CT000n 
;[TD001] 
iCTDOOn 
;CTDOO  I 
;CTD001J 
;CTD001] 
;[TD001] 
;[T0001] 
;CTD001] 
;CTD001] 
;[TD001] 
.■CTD001] 
;[TD001] 
.-CTDOOI] 
.-CTDOOn 
;[TD001] 
; CTDOOI] 
;[TD001] 
.-CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;CTD001] 
;  CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
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VUNPSI     CREATED  BY  MACRO  OH   17-JUL-85  AT  12:15 
MACRO  CROSS  REFERENCE 


F  i, 
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CREF   04.00 


MACRO  NAME 

A5L$ 
CALL 


CEACCS 

CHNDFS 

CUGDFS 

DSTDFS 

DTEDFS 

GETAO 

GETRV 

PHBDFS 

PUTAD 

PUTRC 

PVCDFS 

RAND 


RDTDFS 

RESMAP 

RESRG 

RETURN 

RNWDFS 

SAVMAP 

SAVRG 

SVCDFt 

SWTCHI 

SWTCHO 

TCBDFS 

TRADFS 

VNPDBG 

XCBDF$ 

X29DF$ 


REFERENCES 

#5-58 

8-119 

8-139 

10-216 

11-270 

12-361 

14-440 

16-514 
#5-59 
#5-58 
#5-57 
#5-57 
#5-57 
#5-59 
#5-59 

15-469 
#5-57 
#5-59 
#5-59 
#5-57 
#9-185 
#10-239 
#12-330 
#13-388 
#15-468 
#17-542 
#5-57 
#5-82 
#5-58 

8-156 
#5-57 
#5-78 
#5-58 
#5-58 
#5-59 
#5-59 
#5-58 
#5-58 
#5-60 
#5-57 
#5-58 


12-356 

8-120 

8-140 

10-225 

11-276 

12-365 

14-442 

16-518 

9-192 

5-62 

5-63 

5-64 

5-65 

9-193 

9-185 

16-507 

5-66 

9-188 

5-67 

9-185 

10-239 

12-330 

13-388 

15-468 

17-542 

5-68 

9-200 

12-359 

9-201 

5-74 

9-184 

12-338 

5-69 

12-327 

5-72 

5-73 

8-116 

5-70 

5-71 


15-475 

8-123 

8-153 

10-231 

11-288 

13-385 

15-460 

17-537 

10-238 


10-239 
10-231 
16-514 


10-234 

#9-188 

#11-263 

#12-335 

#13-395 

#15-469 

#17-547 

10-246 
12-360 
1C-247 

10-230 
12-343 

12-331 


8-126 

9-170 

10-234 

11-302 

13-388 

15-464 

17-539 

11-270 


11-276 
11-263 
17-539 


11-266 

9-188 

11-263 

12-335 

13-395 

15-469 

17-547 

11-305 
13-409 
11-306 

11-262 
13-407 


8-128 

9-179 

10-238 

12-324 

13-391 

15-468 

17-542 

12-334 


11-288 
12-3:.0 


12-365 

#9-193 

#11-266 

#12-347 

#14-436 

#16-507 


12-366 
15-485 
12-367 

12-525 
15-471 


8-130 

8-135 

8-136 

8-137 

8-138 

9-185 

9-188 

9-192 

9-193 

9-197 

10-239 

10-243 

11-261 

11-263 

11-266 

12-330 

12-334 

12-555 

12-347 

12-350 

13-392 

13-395 

15-408 

13-416 

14-436 

15-469 

15-487 

16-504 

16-507 

16-511 

17-546 

17-547 

17-551 

13-392 

17-546 

12-335 

13-395 

17-547 

12-347 

13-385 

13-388 

14-456 

15-464 

14-440 

15-468 

17-542 

9-193 

#10-231 

10-231 

#10-254 

10-234 

11-266 

#11-276 

11-276 

#11-288 

11-288 

12-347 

#12-565 

12-565 

#15-585 

13-385 

14-436 

#14-440 

14-440 

#15-464 

15-464 

16-507 

#16-514 

16-514 

#17-539 

17-559 

13-410 

17-555 

15-486 

17-552 

13-417 

14-443 

15-488 

16-520 

17-556 

13-406 

17-538 

15-472 

17-550 

»FiLE«*ID««VVCT 
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CREF   04.00 


MACRO  NAME 

REFERENCES 

ASR$ 

#5-57 

CALL 

6-120 

7-254 

8-280 

CALLR 

#5-58 

;MSG$ 

#5-57 

EMSGSR 

#5-57 

GETAD 

#5-57 

GETRV 

#5-57 

NTLERS 

#5-57 

=UTAD 

#5-57 

PUTRC 

#5-57 

6-120 

^AND 

#6-120 

6-120 

?ESRG 

#5-58 

6-130 

RETURN 

6-131 

7-255 

8-282 

SAVRG 

#5-58 

6-86 

SWTCMi 

#5-58 

SUTCHO 

#5-57 

6-117 

6-129 

9-331 


'»F!LE««ID«*VXIT 
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115  000166 

116 

117 


60$: 


RETURN 


Nl 

Nl 
Nl 
Nl 
Nl 

Nl 
Nl 
Nl 
Nl 
Nl 
Nl 
Nl 
Nl 
N 
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NN      NN 

TTTTTTTTTT 

III 

in 

cccccccc 

EEEEEEEEEE 

XX      XX 

NN      NN 

TTTTTTTTTT 

III 

III 

cccccccc 

EEEEEEEEEE 

XX      XX 

NN      NN 

EE 

XX      XX 

NN      NN 

EE 

XX      XX 

NNNN    NN 

EE 

XX  XX 

NNNN    NN 

EE 

XX  XX 

NN  NN  NN 

EEEEEEEE 

XX 

NN  NN  NN 

EEEEEEEE 

XX 

NN    NNNN 

EE 

XX  XX 

NN    NNNN 

EE 

XX  XX 

NN      NN 

EE 

XX      XX 

NN      NN 

EE 

XX      XX 

NN      NN 

IIJ 

in 

cccccccc 

EEEEEEEEEE 

XX      XX 

NN      NN 

III 

III 

cccccccc 

EEEEEEEEEE 

XX      XX 

LL 

SSSS5SSS 

TTTTTTTTrT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

-L 

ss 

_L 

ssssss 

LL 

ssssss 

LL 

ss 

.L 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL        SSSSSSSS 


TT 


Tl 
Ul 
0 
U 
Ul 
X' 

z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
z 
s 

! 

$ 
$ 
i 

$ 

! 

1 
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CREF   0^.00 


SYMBOL  VALUE 


TPS 

UBMPR 

UISARO 

UISAR1 

UMRPT 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INl 

ZF.KMX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SERRIO 

SNICEX 

SNICSR 

SNIERR 

S.MFLG 

SNIMFL 

SNINTL 

SNITIM 

SMUi'^R 

$NTLFC 

.BASES 

.CXCSR 


GX 


17756A 
170200 
1776A0 
1776A2 
****** 
****** 
001000 
000001 
OOAOOO 
000002 
100000 
0^0000 
000020 
OOOOOA 
000100 
020000 
000010 
000400 
OOOOAO 
002000 
010000 
000200 
000000 
1OC0O0 
140000 
00001 A 
000016 
'00000 

;0010 

u00016 
000006 
000020 
000004 
000012 
000007 
000000  R 
000000  RG 
GX 


-  ****** 
=  ****** 


=  ****** 


-  ****** 
=  140000 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 


REFERENCES 

#5-74 
#5-74 
#5-74 
#5-74 

7-246 

5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-75 
#5-90 
#6-135 

7-268 

5-90 
»6-147 

6-149 

6-140 

6-151 

7-250 
♦6-139 
#5-74 

7-234 


5-75 


7-193 


Nl 

Nl 
Nl 
Nl 

N: 

N: 
N 
N 
N 
N 
N 
N 
U 
N 


7-197 

5-75 

7-193 


7-203 
7-195 

6-156 


6-155 
7-279 

6-142 
7-231 


6-145 
7-234 


*6-154 


NTICEX 
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•♦FILE«MD*«NTILOig 


NN      NN 

TTTTTTTTTT 

11 

Ill 

000000 

NN      NN 

NN      NN 

TTTTTTTTTT 

11 

III 

000000 

NN     NN 

NN      NN 

00 

00 

NN      NN 

NN      NN 

T 

00 

00 

NN      NN 

NNNN    NN 

00 

00 

NNNN    NN 

NNNN    NN 

00 

00 

NNNN    NN 

NN  NN  NN 

I 

DO 

00 

NN  NN  NN 

NN   NN  NN 

I 

00 

00 

NN  NN  NN 

NN    NNNN 

1 

00 

00 

NN    NNNN 

NN    NNNN 

00 

00 

NN    NNNN 

NN      NN 

00 

00 

NN      NN 

NN      NN 

00 

00 

NN      NN 

NN      NN 

M 

HI 

LLLLLLLLLL 

(lOOOOO 

NN      NN 

NN      NN 

I! 

HI 

LLLLLLLLLL 

000000 

NN      NN 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

S5 

_L 

ss 

-L 

ss 

.L 

ss 

LL 

SS5SSS 

LL 

SSSSS3 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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S4.AN1= 

S^.AVO= 

SA.BLK= 

S4.DEC= 

S4.DL0= 

SA.EDT= 

S^.HFF= 

S4.HFL= 

SA.HHT= 

SA.HSY= 

S^.RGS= 

S4.SfC= 

S4.VFL= 

55.ABP= 

S5.BCC= 

S5.DA0= 

S5.HPC= 

S5.HP0= 

S5.ITI= 

S5.0XF= 

S5.RP0= 

S5.SW1= 

S5.TMM= 

S5.VER= 

S5.X0F= 

S5.X0N= 

S6.E10= 

S6.RDI= 

56.RLU= 

TPS 

TSFLAG 

T$LIF 

TSLIFL 

TSLIFO 

TSLIFS 

TSLIN 

TSLIPS 

TSLLD 

TSLLDC 

rSLLDL 

TSLLDO 

TSLLDS 

T$LLEN 

rSLOPR 

TSLTCL 

T$LTIM 

TSLTPR 

TSLTPS 

TSNAPL 

TSMFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNl 

TSNRPL 

T$NRUL 


OOOAOO 
001000 
002000 
004000 
000100 
-10000 
u00020 
000007 
OOOOAO 
000200 
020000 
OAOOOO 
000010 
1 00000 
020000 
040000 

oooou 

000020 
000100 
000040 
002000 
000001 
000002 
010000 
000004 
00001 c 
000400 
100000 
001000 
177564 
000044 
000013 
000013 
000013 
000013 
000000 
000006 
0000  2 
000045 
000012 
000012 
000012 
000046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 


T$NVR 

TSRPRI 

T$SVC 

T$T5 

T$T6 

T$$KHG= 

T$$MIN= 

UBMPR  = 

UC.ALG= 

UC.ATT= 

UC.K1L= 

UC.LGH= 

UC.NPR= 

UC.PWF= 

UC.QUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UISAR0= 

U1SAR1= 

UM.CLI= 

UM.DSB= 

UM.NBR= 

UM.OVR= 

US.A80= 

US.BSP= 

US.BSY= 

US.F0R= 

US.FRK= 

US.KPF= 

US.LAB= 

US.MDE= 

US.MDM= 

US.MNT= 

US.OFL^ 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.WCK= 

UU.AB0= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL- 

UU.RCT= 

UU.RDY= 

UU.SER= 


000001 

000040 

000034 

000030 

000032 

000000 

000000 

170200 

000200 

000010 

000004 

000003 

000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

177640 

177642 

000036 

000200 

000400 

000001 

000001 

000002 

000200 

000040 

000002 

000001 

000004 

000002 

000020 

000100 

000001 

000004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000400 

000100 

000004 

000010 

002000 

000020 

000002 

000200 

000001 


UU.SIO= 

UU.SPC= 

U.AC8 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 

U.8UF 

U.C8F  = 

U.CLI 

U.CNT 

U.COTQ 

U.CTCB 

U.CTL 

U.CTVP 

U.CUI 

U.CW2 

U.CU3 

U.CW4 

U.CYL  = 

U.DC8 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.MUP 

U.OUN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SU8  = 

U.TChP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 


001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
00003b 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 


U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJ1= 

U2.DZ1= 

U2.ESC= 

U2.HFF=: 

U2.HLD= 

U2.L0G= 

U2.LWC= 

U2.L3S= 

U2.L8S= 

U2.NEC= 

U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

VF$RCV= 

VF$XMT= 

V$FLG 

VSLEN 

V$RCV 

V$XMT 

V$$CTR= 

V.CULT 

V.GENQ 

V.HBXQ 

V.TIME 

V.TIMR 

V.TRCT 

V.ULT 

V.ULTE 

V.VBL  = 

U.BATT 

W.BFPD 

W.8HVR 


000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 
000120 
000070 
000020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
004000 
000010 
020000 
100000 
000004 
000200 
000002 
010000 
100000 
040000 
020000 
000100 
100000 
040000 
000000 
000022 
000002 
000012 
001000 
000004 
000016 
000012 
000003 
000002 
000000 
000006 
000010 
000022 
000006 
000014 
000004 


W.BLGH 

U.BLPD 

W.BLVR 

W.BNPD 

U.80FF 

W.BPCB 

W.8SIZ 

X$$DBT= 

ZF.C0U= 

ZF.DDM= 

ZF.DIA= 

ZF.DIC  = 

ZF.DVP= 

ZF.INI= 

ZF.KHX=: 

ZF.LLC= 

ZF.LMC= 

ZF.*1AN= 

ZF.HFL= 

ZF.MTM= 

ZF.HUX= 

ZF. PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 


.DSP 

.FLG 

.LEN 

.LLN 
Z.MAP 
Z.NAM 
Z.PCB 
Z.SCH 
$DBECL= 
$DBXPT= 
$ERR11 
$ERR15 
$ERR17 
$ERR18 
$ERR19 
$HEADR= 
$MUL  = 
$NIERR= 
SNILON 
$N1MFE= 
$NIXPT= 
$$$OST= 
$$$T1  = 
$$$T2  = 
.BASEB= 
.$$$$.= 


000020 

000016 

000002 

000015 

000012 

000000 

000010 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

******  GX 

******  GX 

0OOO52RG 

000142RG 

000202RG 

000256R 

00031 6RG 

******  GX 

******  GX 

******  6X 

OOOOOORG 

******  GX 

******  GX 

000010 

000002 

000046R 

140000 

000034 


002 
002 
002 
002 
002 


002 
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212  000424 

213 

214  000426 

000461 

BR 

60$ 

032765 

002000 

000000 

50$: 

BIT 

#LF.ENA,L.FLG(R5) 

215  000434 

001455 

BEQ 

60$ 

216  000436 

011246 

MOV 

(R2),-(SP) 

217  000440 

000316 

SWAB 

(SP) 

218  000442 

005001 

CLR 

Rl 

219  000444 

111601 

MOVB 

(SP),R1 

220  000446 

005726 

TST 

(SP)  + 

221  000450 

067701 

OOOOOOG 

ADD 

aPDVTA.Ri 
(R1),r1 

222  000454 

011101 

MOV 

223  000456 

022761 

114224 

000004 

CMP 

*''RXPT,Z.NAM(R1) 

224  000464 

225 

226  000466 

001030 

BNE 

56$ 

016701 

OOOOOOG 

MOV 

$DSECL,R1 

227  000'.72 

132761 

000040 

000005 

BITS 

#NF$M0U,N$FLG(R1) 

228  000500 

001001 

BNE 

51$ 

229  000502 

250 

231  000504 

000432 

BR 

60$ 

017701 

OOOOOOG 

51$: 

MOV 

SDECPT.Rl 
D$NNfR1) 

232  000510 

005761 

000060 

TST 

233  000514 

001014 

BNE 

56$ 

234  000516 

005767 

177262 

TST 

ACTCIR 

235  000522 

001407 

BEQ 

55$ 

236  000524 

042765 

002000 

000000 

BIC 

#Lf  .ENA,L.FLG(R5) 

237  000532 

EMSG$ 

12 

238  000540 

239 

240  000542 

000413 

BR 

60$ 

005267 

177236 

55$: 

INC 

ACTCIR 

241  000546 

56$: 

CALL 

ENALIN 

242  000552 

103406 

BCS 

60$ 

243  000554 

052765 

100000 

000000 

BIS 

*LF.ACT,L.FLG(R5) 

244  000562 

245 

246  000570 

112765 

000000 

000020 

MOVB 

#LN.0N,L.NMST(R5) 

062702 

000002 

60$: 

ADD 

#2,R2 

247  000574 

005316 

DEC 

(SPJ 

248  000576 

001402 

BEQ 

65$ 

249  000600 

CALLR 

ENAC 

250 

251  000604 

252 

253  000606 

005726 

65$: 

TST 

(SP)  + 

70$: 

RETURN 

AND  RETURN  TO  COMMON  CODE 

SHOULD  THIS  LINE  BE  ENABLED? 

NO 

GET  REVERSE  MAPPING  VALUE 

CALCULATE  OWNER  LLC  INDEX 


CLEAN  UP  STACK 

GET  LLC  PDV  ADDRESS 

XPf? 

IF  NO  -  BRANCH 

COPY  ECL  DATA  BASE  ADDRESS 

IS  NETWORK  ON  7 

If  YES  -  BRANCH 

IF  NO  -  DO  NOT  ENABLE  CIRCUIT 

GET  DECNET  HOME  BLOCK  ADDRESS 

ROUTING  NODE  ? 

IF  YES  -  BRANCH 

OTHER  LINES  ENABLED  ? 

IF  NO  -  BRANCH 

DISABLE  LINE 

PRINT  MSG 

CONTINUE 

COUNT  ANOTHER  LINE  ENABLED 

ENABLE  THE  LINE 

BR  IF  SPECIFIED  LLC  DOES  NOT  OWN  LINE 

SET  LINE  ACTIVE 

SET  MANAGEMENT  STATE  TO  'ON' 

NEXT  SYSTEM  LINE  NUMBER 
REDUCE  SYSTEM  LINE  COUNT 
ANY  MORE  TO  SCAN? 
IF  YES  -  CHECK  NEXT  CIRCUIT 


;N0 


CLEAN  UD  THE  STACK 
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MACRO   CROSS  REfERENCE  CREF        0^.00 

8-152  8-165  9-201 


6-81 


MACRO  NAME 

REFERENCES 

CALL 

7-122 

8-U1 

EMSGt 

#5-58 

8-165 

EMSGtR 

#5-58 

7-127 

NHWDFt 

#5-58 

5-66 

NTLDFS 

#5-58 

5-67 

NTLER$ 

#5-58 

6-80 

PDVDFS 

#5-58 

5-6A 

RESRG 

#5-59 

8-166 

RE1URN 

8-170 

9-208 

SAVRG 

#5-59 

8-16A 

SLTDFS 

#5-58 

5-65 

SOB 

7-129 
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A48  000364 

'.1,9   000372 

A50 

A51 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 


ENARIS 

CALLR   NTIGRQ 

.IFF    ;NDF  R$$11S 

.IF  DF  S$$8AS 
DSARSS 


TST 
8EQ 
CALL 
BR 


SNIAST 
110$ 
PUTAST 
120$ 


110$: 
120$: 


DIR$    #NT]SEN 
ENAR$S 
.ENDC 

EXIT$S 

.ENDC 


;ENA8LE  AST'S  AGAIN 
.-PROCESS  NEXT  REQUEST 


DISABLE  AST  RECOGNITION 
NOTIFY  USERS  VIA  AST? 
BR  IF  NO 

ELSE  NOTIFY  USER  VIA  AST 
AND  CONTINUE 

;SEND  COMPLETION  TO  THE  REQUESTOR 
.-ENABLE  AST'S  AGAIN 


NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:02  Page  10 
MAIN  CONTROL 


G  14 


NTINIT 
SymboL 

LS.11D= 
LX.CEX= 
LX.L1N= 
LX.PRO= 
LS$ASG= 
L$$DRV= 

L$$pn  = 

L$$11R= 

L.C05I 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPAR  = 

MPCSR  = 

MRKTEF= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

M.BFVH 

M.BFVL 

M.KTAE= 

M.KTEF= 

l*I.KTMG= 

M.KTUN= 

M.LGTH= 

m.lnk; 

M.UMRA 
M.UMRN 
M.UMVH 
M.UMVL 
NTIBSC 
NTIBSV 
NTIERB 
NTIERN 
NTIGRQ 
NTINIT 
NTIRCV 
NTIRCX 
NTIRDA 
NTIRDT 
NTIRDX 
NT  I  SEN 
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004000  G 

OOOOO-i  G 

000006  G 

000005  G 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

OOOOU 

000021 

000013 

172100 

177746 

000001 

000124 

000000 

000000 

000000 

000000 

000000 

000011 

000012 

000010 

00CC02 

000004 

000006 

000014 

000000 

000002 

000004 

000010 

000006 

000224R 

000212R 

000243R 

000230R 

000060R 

OOOOOOR 

000124R 

000016R 

001042R 

001100R 

001072R 

000I72RG 


NTLPT 

N$$ACC= 

N$$BUF= 

NS$LOV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

POVID 

PDVNM 

PDVTA 

PIRQ  = 

PMODE  ^ 

PRO   = 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7   = 

PS 

PSIPT 

PS.APR= 

PS.CH<= 

PS.CKP= 

PS.CKR= 

PS.COM= 

PS.DEL= 

PS.DRV= 

PS.FXD= 

PS.LIO= 

PS.NSF= 

PS.OUT= 

PS.PER= 

PS.PIC= 

ps.srs= 

PUMR 
PUTAST 
P$$P45= 
P$$WRD= 
P.BLKS 
P. BUSY 
P. IOC 
002  P.LNK 
002  P. MAIN 
002  P.NAM 
002  P. OWN 
P.PRI 
P.REL 
002  P. SIZE 
002  P.STAT 
P.  SUB 
P.SWSZ 
P.TCB 
002  P. WAIT 


000652RG 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000704RG 

000702RG 

00071 2RG 

177772 

030000 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000670RG 

000007 

010000 

040000 

020000 

000200 

000010 

000020 

004000 

001000 

000400 

100000 

002000 

000100 

000040 

000624RG 

001222R 

000000 

000000 

000016 

000024 

000003 

000000 

000012 

000004 

000026 

000002 

000014 

000016 

000030 

000010 

000022 

000026 

000020 


002  QASTT 

000632RG 

002  TKPS 

g00636RG 
000630RG 

Q$$0PT= 

000010 

TKTC.I 

R$$DER= 

000000 

TKlOw 

000662RG 

R$$K11= 

000001 

TPS   = 

177564 

R$$SND= 

000000 

TS.8U  = 

171700 

R$$11M= 

000000 

TS.CKP= 

000200 

R.QSGC= 

000015 

TS.CKR= 

000100 

R.QSPC= 

000014 

TS.EXE= 

100000 

R.QSPN= 

000006 

TS.HLD= 

002000 

OlJ  R.QSPR= 

000012 

TS.MSG= 

020000 

002  R.QSTN= 

000002 

TS.NRP= 

010000 

002  R.VDBA= 

000006 

TS.OUTr 

000400 

R.VDTN= 

000002 

TS.RDN= 

040000 

R.VX8A= 

000006 

TS.RUN= 

004000 

R.VXTN= 

000002 

TS.STP= 

001000 

SF.ACT= 

000200 

T$$KMG= 

000000 

SF.ENA= 

000100 

T$$MIN= 

000000 

SF.LPB= 

000004 

T.ACTL 

000052 

SF.MFL= 

000040 

T.ASTL 

000016 

SF.PAC= 

000020 

T.ATT 

000062 

SF.REA= 

000010 

T.CPC8 

000004 

SF.SER= 

000001 

T.DPRl 

000040 

SF.SVC= 

000002 

T.EFLG 

000022 

002  SF.UNL= 

000040 

T.IOC 

000003 

SLTMA 

000646RG 

002  T.LBN 

000041 

SLTNM 

000650RG 

002  T.LDV 

000044 

SPARE  = 

000010 

T.LNK 

000000 

SP.E1P= 

000001 

T.MXSZ 

000050 

SP.ENB= 

000002 

T.NAM 

000006 

SP.LOG= 

000004 

T.OFF 

000066 

SRSTD 

000616RG 

002  T.PCB 

000046 

SWR   = 

177570 

T.PRI 

000002 

S$$WRG= 

000000 

T.RCVL 

000012 

S$$YSZ= 

007600 

T.RRFL 

000072 

S.8MSK 

177776 

T.SAST 

000054 

S.8MSV 

177774 

T.SRCT 

000071 

S.CON 

000010 

T.STAT 

000032 

S.COST 

000001 

T.ST2 

000034 

002  S.CSR 

000012 

T.ST3 

000036 

S.CTM 

000006 

T.TCBL 

000030 

S.DABA= 

000006 

T.TIO 

000057 

S.DAEF= 

000010 

T.TKSZ 

000060 

S.DATN= 

000002 

T.UCB 

000026 

S.DMCS 

000020 

T1SCL 

000674RG 

S.FLG 

000000 

T100C 

000656RG 

S.FRK 

000016 

TIOOQ 

000660RG 

S.ITM 

000007 

T2.AB0= 

000100 

S.LEN 

000004 

T2.AST= 

100000 

S.LHD 

000000 

T2.CAF= 

000400 

S.NMST 

000002 

T2.CHK= 

020000 

S.OWNR 

000003 

T2.CKD= 

010000 

S.PKT 

000014 

T2.DST= 

040000 

S.PRI 

000004 

T2.FXD= 

002000 

S.RCNT 

177772 

T2.HLT= 

000200 

S.ROFF 

177773 

T2.REX= 

001000 

S.STS 

000011 

T2.SEF= 

004000 

S.VCT 

000005 

T2.SPN= 

000004 

002  T2. STP= 
002  T2.WFR= 
002  T3.ACP= 
T3.CAL= 
T3.CLI= 
T3.GFL= 
T3.MCR= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM:^ 
T3.R0V= 
T3.RST= 
T3.SLV= 
T3.SWS= 
UBMPR  = 
UISARO= 
U1SAR1= 
UMRPT 
VECLN  = 
VF.LIB= 
V$$CTR= 
V.AOD 
V.BIAS 
V.FLG 
V.LEN 
V.LNK 
V.PDV 
V.SIZ 
X$$DBT= 
ZF.COU= 
ZF.DDM= 
ZF.D1A= 
ZF.DLC= 
ZF.DVP= 
ZF.INl^ 
ZF.KHX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL= 
ZF.MTM= 
002  ZF.MUX= 
002  ZF.PSE= 
002  ZF.SLI= 
ZF. TIM= 
ZF.X3P= 
ZS.ASN= 
ZS.BSY= 
Z.AVL 
Z.DAT 
Z.DSP 
Z.FLG 
Z.LEN  ^ 
Z.LLN 
Z.MAP 


000020 

000001 

100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

170200 

177640 

177642 

000614RG 

000043  G 

000001 

001000 

000006 

000004 

000002 

000012 

000000 

000004 

000010 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 


002 
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NTPIM 

MACRO  V 

05.03b 

DAH 

55 

56 

57 

58 

59 

60 

61 

62 

000000 

63 

000000 

6A 

65 

66 

67 

68 

69 

000001 

70 

000002 

71 

72 

000000 

000000 

73 

7i, 

75 

76 

77 

78 

000002 

.SBTTL  DATA 

LIBRARY  MACROS 

.MCALL  NHWDF$,CLKOf$ 


NHWDFS 
CLKDFS 

1  LOCAL 

DATA 

]\ 

l\ 

TIFLG: 

.WORD   0 

;  START 

OF  PURE  CODE 

.PSECr 

;HARDWARE  DEFINITIONS 

.•DEFINE  CLOCK  QUEUE  ENTRY  OFFSETS 


50  MSEC  CLOCK  BLOCK  QUEUED 
1  SEC  CLOCK  BLOCK  QUEUED 


TIMER  BLOCK  FLAG  WORD 
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1701  005600 

1702  005602 

1703  00560A 
170A  005606 

1705  005610 

1706  0056U 

1707  005616 

1708  00j622 

1709  005624 

1710  005626 

1711  005630 

1712  00563A 

1713  005640 

1714  005642 

1715  005646 

1716  005650 

1717  005652 

1718  0C5654 

1719  C:.5656 
1720 

1721  005660 

1722  005664 

1723  005670 
1724 

1725  005672 

1726  005700 

1727  005702 

1728  005706 

1729  005710 

1730  005712 

1731  005714 

1732  005720 

1733  005724 

1734  005730 

1735  005736 

1736  005740 

1737  0057^6 
1738 

1739  005750 

1740  005756 

1741  005762 

1742  005766 
1743 

1744  005772 

1745  005776 

1746  006002 
1747 

1748  006006 

1749  006012 

1750  006020 
1751 

1752  006022 

1753  006026 
1754 

1755  006030 

1756  006036 

1757  006042 


011300 
005023 
011301 
005023 
032701 
001003 

000404 
000241 
006001 

005367 
001357 
012667 
001411 
011300 
005023 
011302 
005023 


005.67 
001367 

022767 
001061 
022703 
001402 
005713 
001054 
016700 
016701 

026767 
001004 
016767 
000472 

012767 
012703 
016713 
005067 

012703 
005067 
016713 


026767 
001403 

016713 
000767 

016767 

000434 


000001 


000116' 
000116' 


150$: 


160$: 

170$: 
180$: 
190$: 


000116' 

000014'  000112'  200$: 
000112' 

000006'        210$: 
OOOOOOG 

OOOOOOC  000006' 

000012'  OOOOOOC 

000100  OOOOOOG  220$: 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOC 

230$: 
OOOOOOG  000006' 

OOOOOOG 

000012'  OOOOOOG  240$: 


MOV 

CLR 

MOV 

CLR 

BIT 

BNE 

CALL 

BR 

CLC 

ROR 

CALL 

DEC 

BNE 

MOV 

BEQ 

MOV 

CLR 

MDV 

CLR 

CALL 

DEC 

BNE 

CMP 

BNE 

CMP 

BEQ 

TST 

BNE 

MOV 

MOV 

CALL 

CMP 

BNE 

MOV 

BR 

MOV 
MOV 
MOV 
CLR 

MOV 
CLR 
MOV 

GETAD 

CMP 

BEQ 

MOV 
BR 

MOV 

PUTAD 

8R 


GET  ALLOCATION  ADDRESS 

ZERO  IT 

GET  ALLOCATION  SIZE 

ZERO  IT 

16  BIT  ALLOCATION? 

IF  NE,  NO 

DE-ALLOCATE  SUB-ALLOCATION 

DISCARD  16/18  BIT  FLAG 

DE-ALLOCATE  SUB-AL' nCATION 

DO  IT  <ALLOCATION  .-JNT>  TIMES 

GET  NUMBER  OF  LIBRARIES 
IF  ZERO,  NO  WORK  TO  DO 
GET  LIBRARY  BLOCK  BIAS 
ZERO  IT 

GET  LI8RARV  BLOCK  ADDRESS 
ZERO  IT 

RELEASE  LIBRARY  REFERENCE 
DO  IT  <LIBRARY  COUNT>  TIMES 


(R3),R0 
(R3)  + 
(fi3),R1 
(R3)  + 
#1.R1 
160$ 
.DEA16 
170$ 

R1 

$DEA18 

COUNT 

150$ 

(SP)+, COUNT 

200$ 

(R3),R0 

(R3)  + 

(R3),R2 

(R3)  + 

$XLBR 
COUNT 
190$ 

#8L0CK+2,UPTR  ;  WAS  OUR  LINE  TABLE  THE  FIRST  ENTRY? 

250$  ;  IF  NE,  NO 

#6L0CK+100,R3  ;  DID  IT  FILL  THE  ENTIRE  32.  WORD  BLOCK? 

210$  *  IF  EG  YES 

(ft3)  ;  ANYTHING  SIGNIFICANT  IN  REST  OF  BLOCK? 

250$  ;  IF  NE,  YES 

UBIAS,RO  ;  GET  UNLOAD  BLOCK  ADDRESS 

$UNBSZ,R1  ;  AND  SIZE 

$DEA18  ;  DE-ALLOCATE  UNLOAD  BLOCK 

.CXUNL+$NTLHB,UBIAS  ;  WAS  OUR  BLOCK  FIRST  IN  LIST  ? 

220$  ;  NO 

BLOCK,. CXUNL+$NTLHB  ;  POINT  AT  NEXT  BLOCK 

300$  ;  DONE 

#100,$RSIZE     ;  ASSUME  UNMAPPED  ALLOCATION  SIZE 
#$RADDR,R3     ;  SET  UNMAPPED  I/O  POINTER 
.CXUNL+$NTLHB,(R3)  ;  ... 
SRBLCK         ;  ... 

#$RBLCK,R3      ;  POINT 

$RADDR         ;  NO  OFFSET  WITHIN  BLOCK 

.CXUNLt$NTLHB,(R3)  ;  ... 


VUN 

SYM 

SYM 

.TL 
.TS 
..P 


$BFP,UBIAS 
240$ 

$BFfi,(R3) 
230$ 

BLOCK, $BFR 

300$ 


READ  IN  BLOCK  IMAGE 

DOES  THIS  BLOCK  POINT  AT  US 

YES 

SET  NEW  BIAS/ADDRESS 
AND  LOOP 

POINT  AT  NEXT  BLOCK 
REWRITE  IMAGE 
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XLT16  -  DEALLOCATE  LINE  TABLE 
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vu^ 


VUNL                 CREATED  BY  MACRO     OH   16-SEP-85   AT  07:31 

SYMBOL    CROSS   REFERENCE 

SYMBOL      VALUE  REFERENCES 

TLGTH     =   ...*♦*     GX           21-126^         21-1271  25-18A9 

.TSKHD      =   ..**«♦     GX            25-18^9  ^   ^^, 

.PDV           000202  R  #6-188           •8-370  412-573 
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PAGE   7 

CREF       OA.OO 


vu 

DE 


«U-744 


U-753 


*H-766 


^',-77', 


18-1U9 


24-1810 


VUNL                 CREATED  BY      MACRO     ON   16-SEP-85   AT   07:31 
Mircn   roncic   oFFFDFwrF  
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CREF        04.00 


Vl 
XI 
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306  000770 


RETURN 


rCTDOOl] 
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vv 

vv 

vv 

cccccccc 

',  mi 

TTTT 

vv 

vv 

vv 

vv 

cccccccc 

TTTTTl 

[Ml 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 

vv 

vv 

cc 

vv 

vv 
vv 
vv 

vv 

vv 
vv 
vv 

cc 
cccccccc 
cccccccc 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

.L 

ss 

-L 

ss 

-L 

ss 

.L 

ss 

-L 

ssssss 

_L 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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TT 

rTTTTTTT 

vv 

vv 
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mill 

TTTTTTTTTT 

vv 

vv 
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vv 

vv 

XX      XX 

vv 

vv 
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vv 

vv 
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vv 

vv 

XX 

vv 

vv 

XX 

vv 

vv 
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vv 
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vv 

XX      XX 

vv 

vv 
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vv 
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vv 
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IJIIII 

LL 
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TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 
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VXIT   -  VNP  EXIT   ROUTINES 
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119 

120 

121 

122 

123 

12A 
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13^ 
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HO 

Kl 

H2 

U3 

KA 

U5 
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148 
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.SBTTL  DELJBV  -  DEALLOCATE  LIBRARY  VECTOR  BLOCK 

DELIBV  -  DEALLOCATE  LIB.'iARY  VECTOR  BLOCK 

INPUTS: 

RO  -  LIBRARY  BIAS 

OUTPUTS: 

LIBRARY  VECTOR  BLOCK  DEALLOCAfED  IF  PRESENT 


DELIBV: 


5$: 


7$: 

10$: 

15$: 

18$: 
20i: 


000001 


.IF  DF   R$$HPL 


;CMP01] 


CALL 

MOV 

MOV 

MOV 

BEQ 

CEACC$ 
GETAD 

BIT 
BEQ 

CMP 
BEQ 

MOV 
MOV 
BNE 

RETURN 

CMP 
BNE 
MOV 
BR 

MOV 
MOV 
CALL 

MOV 
CALL 

RETURN 

.ENDC 

.END 


$SAVAL 

R0,R4 

#$NTLH8+.CXVEC,R1 

(R1),R0 

20$ 

R0,R2 
R2,#V.LEN 


SAVE  REG'S 

COPY  BIAS 

;  GET  VECTOR  BLOCK  ADDRESS 

GET  FIRST  BLOCK 

IF  NONE  -  BRANCH 

MAP  TO  BLOCK 
READ  BLOCK 


#VF.LIB,$BFR+V.FLG  ;  LIBRARY  VECTOR  BLOCK 


7$ 

$BFR+V.BIAS,R4 
10$ 

R0,R1 

$BFR,RO 

5$ 


#$NTLHB+.CXVEC,R1 
15$  ; 

$BFR,(R1) 
18$ 

R1,-(SP) 
RO,-(SP) 
$XLINK 

#V.LEN,R1 
$DEPOL 


IF  NO  -  BRANCH 

;  IS  IT  OUR  VECTOR  BLOCK  ? 
IF  YES  -  BRANCH 

CURRENT  BLOCK  BECOMES  PREVIOUS  BLOCK 

GET  NEXT  BLOCK 

CONTINUE 


;    IS  PREVIOUS  BLOCK   THE   LISTHEAD   ? 

IF   NOT  -  BRANCH 

IF  YES  -  UPDATE  LISTHEAD 

CONTINUE 

COPY  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 
COPY  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 
UNLINK  VECTOR  BLOCK 

DEALLOCATE  VECTOR  BLOCK 


;[MP01] 
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5-  53    DATA 

6-  106    GET  CEX  FUNCTION 

7-  160    LOCAL  INITIALIZATION 
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NTICEX  CREATED  BV     MACRO     ON  29-JUN-85   AT   03:25 

MACRO   CROSS   REFERENCE 


MACRO  NAME 

REFERENCES 

CALL 

6-140 

6-148 

^-U2 

7-250 

7-270 

7-279 

CCBDFS 

#5-65 

5-72 

CLEFSS 

#5-64 

DHBDFS 

#5-65 

5-76 

D1R$ 

#5-64 

EMSGSR 

#5-64 

6-156 

NHWDF$ 

#5-65 

5-74 

NTLERt 

#5-64 

5-90 

PDVDFS 

#5-65 

5-75 

RETURN 

6-152 

7-210 

7-235 

RQST$ 

#5-64 

SCATS 

#5-64 

SLTDF$ 

#5-65 

5-73 

SWSTKS 

7-202 

7-227 

WTSEtS 

#5-64 

6-151 
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CREF       04.00 
6-155 


7-1  f 


7-202 


7-204 


7-207 


7-227 


7-281 
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NTILON  -  NTINIT  'EXECUTOR  ON'  R  MACRO  V05.03b  Saturday  29-Jun-85 
Table  of  contents 


^3:26 


s- 

5A 

MACROS 

6- 

81 

LOCAL  DATA 

/- 

107 

ERROR  MESSAGES 

K- 

124 

SET  EXECUTOR  ON 

9- 

300 

FNDPLI  -  GET  PLI'S  PDV  INDEX 
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Symbol  table 


.  ABS. 

177776 

000 

(RW,1 

,GRI 

ARS 

OVR) 

000650 

001 

(RU,I 

,1  CL 

,RH 

CUN) 

DATA 

000372 

002 

(RW.D 

,LCL 

HtL 

CUNJ 

Errors 

detected: 

0 

«*♦  Assembler  statistics 


Work   file  reads:  123 

Work   tile  wr  i tes :  126 

Size  of  work  file:  29428  Words   (  115  Pages) 

Size  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-11M/PLUS 


SY:5nLONlv2![°32?°34]NTILON/CR/-SP=SY:[1  J]RSXMCM.SMlVML,[130,i10]NETLI8/ML,[I30J0]RSXMCM/PA:1,C132J0]N 
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255 
256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 

269  000610 

270  0006K 

271  000616 

272  000620 

273  00062A 

274  000626 

275  000630 

276  00063A 

277  000636 
278 

279 

280  000640 

281  000646 

282  000650 
283 

284 

285  000654 

286  000660 
287 

288  000662 

289  000666 

290  000672 

291  000674 

292  000700 

293  000704 

294  000710 

295  000714 

296  000722 

297  000730 
298 

299  000734 

300  000746 
301 

302  000750 

303  000752 

304  000760 
305 

306  000762 

307  000764 
508  000770 


.SBTTL  ENABLE  A  LINE 

**-ENALIN-ENABLE  A  LINE  IF  OWNED  BY  SPECIFIED  LLC 

IF  SO,  ENABLE  THE  LINE  BY  QUEUEING  A  CCB  TO  THE  PROPER  LLC 

INPUTS: 

RO   -   PDV  ADDRESS  OF   ASSOCIATED   DDM 

R2   -  POINTER   TO  LINE'S  ENTRY    IN   THE   REVERSE  MAPPING   TABLE 

OUTPUTS: 

START  FUNCTION  QUEUED  TO  OWNING  LLC 


010005 
005001 
156201 
111203 
001455 
017700 
060100 
011000 


032765 
001402 


016000 
001440 


103420 
005064 
110164 
110364 
005064 
012764 
012764 


103005 
000740 
000261 


ENALIN: 


000001 
OOOOOOG 

002000     000010 

000016 


000014 
000007 
000006 
000004 
000004 
001006 


10$: 
15$: 


000012 
000010 


20$: 
30$: 


35$: 
401: 


SAVRG 

MOV 

CLR 

BISB 

MOVB 

BEQ 

MOV 

ADD 

MOV 


<R0,fi5> 

R0,R5 

R1 

1(R2),R1 

(R2).R3 

35$ 

aPDVTA,RO 

RI.RO 

(RO),RO 


.IF  NDF  R$$11S 


#ZF.PSE 

10$ 

DLMSET 


BIT 
BEQ 
CALL 
.ENDC 

MOV 
BEQ 

SWSTK$ 

CALL 

BCS 

CLR 

MOVB 

MOVB 

CLR 

MOV 

MOV 

CALLR 

RETC 
RETURN 


BCC     40$ 

WSIG$S 

BR     15$ 

SEC 

RESRG   <R5,R0> 
RETURN 


,Z.FLG(R5) 


Z.DAT(RO),RO 
35$ 

30$ 

aCCBGT 

20$ 

C.8UF1(R4) 

R1,C.STA(R4) 

R3,C.LIN(R4) 

C.NSP(R4) 

#STRT,C.STS(R4) 

#FC.CTLIFS.STR,C.FNC(R4) 

SLLCRS 

RO 


SAVE  R3,R5 

GET  PDV  ADDRESS  OF  DDM 

GET  OWNING  LLC  PDV  INDEX 

get' CHANNEL  It 
IF  ZERO,  BAD  CHANNEL 
POINT  TO  PDV  INDEX  TABLE 
ADD  OFFSET  FOR  SPECIFIED  LLC 
POINT  TO  LLC'S  PDV 


IS  THIS  A  DLM  CIRCUIT? 

BR  IF  NO 

SET  UP  DATA  LINK  MAPPING  PARAMETERS 


;GET  POINTER  TO  LLC'S  DATABASE 
;IF  ZERO,  LLC  NOT  LOADED! ! 1 

ENTER  SYSTEM  STATE 

TRY  TO  ALLOCATE  A  CCB 

IF  CS,  ALLOCATION  FAILURE 

CLEAR  FLAGS  WORD 

SET  UP  PDV  AND 

CHANNEL  #  TO  TURN  ON 
CONTROL  IS  RETURNED  TO  AUX 
TURN  ON  THE  LINE 
SET  UP  FUNCTION  CODE 
QUEUE  CCB  TO  LLC 


•  ♦.-1 


;  SET  USER  C-BIT 

;  LEAVE  SYSTEM  STATE 

IF  CC,  REQUEST  QUEUED 
ALLOCATION  FAILURE  ...  WAIT  A  BIT 
THEN  TRY  AGAIN 

INDICATE  LINE  NOT  ENABLED 
RESTORE  R5,R3 
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1 
2 
3 

5 
6 

7 
8 
9 

10 
11 
12 
13 
U 
15 
16 

yi 

18 
19 
20 
21 
22 
23 
2k 
25 
26 

n 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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.TITLE  NTIMFL 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  MARKED-FOR-LOAD  SCAN 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  Vl.O 
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.SBITL     VECSET   -   SET  UP  PROCESS  VECTOR   TABLE 

VECSET    -   SET   UP  PROCESS   VECTOR   TABLE 

INPUTS: 

.CXVEC  -  LIST  OF  VECTOR  BLOCKS 

OUTPUTS: 

PROCESS  VECTOR  TABLES  TRANSLATED 


VECSET: 


5$: 


6$: 
9$: 


10$: 


.IF  DF   R$$MPL 


SWSTKS 
SAVMAP 
MOV 
MOV 

Bio 

MOV 
CLR 


MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

RESMAP 

MOV 
BNE 

MOV 

MOV 
MOV 
CALL 
MOV 


20$ 

aNTLPT,aKSAR6 

140000+. CXVEC, R5 

15$ 

RS.VECLHD 

UOOOO+.rxVEC 

R5,-(SP) 
aCEACC 
(SP)+,R5 
V.ADD(R5),R3 
#160000, R3 
#140000, R5 
V.SIZ(R5),R2 
V.PDV(R5),R4 


#Vf .LIB,V.FLG(R5) 

6$ 

R4,aKSAR6 

9$ 


ENTER  SrSTEM  STATE 
SAVE  MAPPING 
MAP  TO  NTL  HOME  BLOCK 
;  GET  VECTOR  BLOCK  ADDRESS 
IF  NONE-  BRANCH 

SAVE  LISTHEAD  FOR  DEALLOCATION 
INIT  VECTOR  BLOCK  LISTHEAD 

SAVE  UNMAPPED  POOL..  ADDRESS 

GET  MAPPED  VIRTUAL  ADDRESS 
COPY  TABLE  ADDRESS  OF  PROCESS 
BIAS  FOR  APR6 

COPY  TABLE  LENGTH 

GET  PDV  ADDRESS  OR  LIBRARY  TABLE  BIAS 

SAVE  MAPPING  TO  VECTOR  BLOCKS 

;  LIBRARY  VECTORED  BLOCK  ? 
IF  NO  -  BRANCH 
MAP  TO  LIBRARY 
CONTINUE 


Z.DSP(R4),aKSAR6  ;  MAP  TO  PROCESS 


a#112,R1 

(R1),R1 
(R1),-(SP) 
#120600, -(SP) 
aMPPRO 


(R5),R5 
5$ 

VECLHD,R5 

R5,-(SP) 
(SP),-(SP) 
aCEACC 
(SP)+,R5 


COPY  BIAS  OF  EXEC  ROUTINE  WHICH 

CALLS  THE  VECTOR  TRANSLATE  ROUTINE 

GETTING  TO  ACTUAL  BIAS 

PUT  BIAS  ON  STACK  FOR  $MPPRO 

MAP  THRU  APR5 

CALL  DIRECTIVE  COMMON  ROUTINE  THE  LONG  WAY 

RESTORE  MAPPING  TO  VECTOR  BLOCKS 

GET  NEXT  BLOCK 
IF  MORE  -  BRANCH 

DEALLOCATE  BLOCKS  (AUX  VECTOR  TABLE  IS 

NOW  SET  UP) 

COPY  UNMAPPED  ADDRESS 

SAVE  UNMAPPED  ADDRESS 

MAP  TO  BLOCK 

COPY  VIRTUAL  ADDRESS  OF  BLOCK 
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Z.NAM 

000004 

$ERR04 

000462R 

002 

$N  FLG 

000226RG 

002 

$PUMR  = 

GX 

.BASEB= 

UOOOO 

/.PCS 

000012 

$ERR12 

000520RG 

002 

$N  FNC 

000204RG 

002 

$QASTT= 

GX 

.CXALL 

000062 

G 

Z.SCH 

000007 

$FMASK= 

»*»«»»  GX 

SN  L0N= 

«*»»*«  GX 

$SLTMA= 

GX 

.CXCSR 

000004 

G 

tABTIM= 

••♦♦»♦  GX 

$HEADR= 

»«*•»•  GX 

SNIMRK 

000070R 

002 

$SLTNM= 

GX 

.CXLBR 

22S8§S 

G 

$ALOCB= 

••••*•  GX 

$LDPWf= 

».**.»  GX 

SNINTL 

000376RG 

$SRSTD= 

GX 

.CXLB1 

000030 

G 

$CALLX= 

».».«.  GX 

$LGSTT= 

»*»»•.  GX 

SNJPRM 

000122R 

002 

$TKPS  = 

GX 

.CXLB2 

000044 

G 

$CBDMG= 

•»t***  GX 

$LLCAL= 

»»•»••  GX 

SNIRDB 

000032RG 

002 

$TKrCB= 

GX 

.CXLEN 

000064 

G 

$CfBGT= 

.,,...  GX 

$LLCRS= 

«••••*  GX 

SNIRNL 

000134RG 

002 

$TK100= 

GX 

.CXPC8 

222S96 

G 

$CEACC= 

*»«***  GX 

$LLCTA= 

.*«*.*  GX 

JNIRTN 

000026RG 

002 

$T1$CL= 

GX 

.CXSYM 

000010 

G 

$CLKHO= 

»•»»»«  GX 

SNERDD 

0010KRG 

SNISNL 

000152RG 

002 

$t100C= 

GX 

.CXUNL 

000024 

G 

$C5TA  = 

*♦*»♦*  GX 

SNERDN 

000772RG 

SNIXPT 

000002RG 

002 

$11000= 

GX 

.CXVEC 

000026 

G 

SDBECL 

000004RG 

002 

$NER50 

000750RG 

$N]X25= 

»»♦»♦*  GX 

$UMRPT= 

GX 

.CXVSM 

000016 

G 

SDBXPT 

000006RG 

002 

SNIAST 

00C120R 

002 

SNTL^C 

000164RG 

002 

$$$   = 

000062 

.NTGCD 

000000 

$DEACB= 

»»*•«»  GX 

$NICEX= 

♦»*»»*  GX 

$NTLPr= 

•*»*•»  GX 

$$$ARG= 

000002 

.NTPCB 

000000 

G 

$DECPT= 

.•«*»•  GX 

SNIECL 

OOOOOORG 

002 

$PDVID= 

...»».  GX 

$$$0ST= 

000012 

.NTUMR 

000002 

G 

$DEVHD= 

••«**«  GX 

SNIERA 

000010RG 

002 

$PDVNM= 

«»***«  GX 

$$$T1  = 

000006 

.SBPCB 

000066 

G 

SERRO? 

000352R 

002 

SNIERR 

000576RG 

SPDVTA^ 

»**»»*  GX 

$$$$  = 

000000 

.$$$$.= 

000034 

$ERR03 

000'i30R 

002 

SNIEVC 

000102RG 

002 

$PS1PT= 

.»*»..  GX 

.  ASS. 

177776 
001334 

000 
001 

(RW,I,GBL,ABS,QVR) 
(RW,],LCL,REL,CON) 

DATA 

0007U 

002 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

»•«  Ass 

embler  statistics 

Work   f 

ile  reads 

117 

Work   f 

i le  writes 

109 

Size  of 

work  file 

25359  Words 

(  100  Pages 

) 

Size  of 

core  pool 

17608  Words 

(  67  Pages) 

Operating  system 

RSX- 

11M/PLUS 

DB2:NTINIT?Tk?[132!?34]NT!NIT/CR/-SP=DB2:ri,nRSXMCM.SML/|v|L,C130,110]NETL!B/ML,[130,10]RSXMCM/PA:1,[152,10]NTINIT 


NTINIT 
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80 
81 
82 


84 
85 
86 
87 
88 
89 
90 
91 
92 
9? 
94 
95 
96 
97 
98 
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.SBTTL  START  CEX  TIMERS 


SNITIM  -  START  CEX  TIMERS  IF  NOT  ALREADV  STARTED 
INPUTS: 

np*;e 

OUTPUTS: 

If  THE  TIMERS  ARE  ALREADY  IN  THE  CLOCK  QUEUE,  THEN  THIS  IS  A 

NO-OP,  ELSE  THE  TIMERS  ARE  STARTED. 
RO  IS  DESTROYED. 


000002  016700  OOOOOOG 
000006 


$NITIM::M0V 

SWSTKS 


000012 
99  000020 

100  000022 

101  000024 

102  000030 

103  000032 

104  000040 
105 

106  000042 

107  000046 

108  00005C 

109  000056 
110 

111  000060 

112  000064 

113  000072 

114  000074 

115  000100 

116  000106 

117  000110 
118 

119  000114 


011000 

001416 

026700  OOOOOOG 

001004 

052767  000001   177740 

000767 

026700  OOOOOOG 

001364 

052767  000002  177722 

000760 


032767  000001  177706 
001002 

032767  000002  177672 
001002 


10$: 


12$: 


20$: 


25$: 


30$: 


MTPS 

MOV 

BED 

CMP 

BNE 

BIS 

BR 

CMP 
BNE 
BIS 
BR 

MTPS 

BIT 

BNE 

CALL 

BIT 

BNE 

CALL 

RETURN 


CLKHD,RO 

30$ 

#PR7 

(R0),R0 

20$ 

TIOOCRO 

12$ 

#T5,TIfLG 

10$ 

T1SCL,R0 
10$ 

#Tl,TIfLG 
10$ 

#0 

#T5,IIFLG 

25$ 

T50IN 

*T1,TIFLG 

30$ 

TISIN 


;P0INT  AT  THE  CLOCK  QUEUE 

;•  ENTER  SYSTEM  STATE 

;;;*  DISABLE  INTERUPTS 

;;;*  POINT  AT  NEXT  BLOCK 

;;;*  IF  EQ,  END 

;;;♦  ENTRY  FOR  50  MSEC  TIMER? 

;;;*  IF  NO  -  BRANCH 

;;;•  IF  YES  -  SET  50  MSEC  FLAG 

;;;♦  CONTINUE 

;;;*  ENTRY  FOR  1  SEC  TIMER? 

;;;*  IF  NE,  NO  -  CHECK  NEXT  BLOC 

;;;*  IF  YES  -  SET  1  SEC  FLAG 

;;;*  CONTINUE 

;;;*  RE-ENABLE  INTERRUPTS 

;»  START  50  MSEC  TIMER  ? 

;*  IF  NO  -  BRANCH 

;»  START  50  MSEC  TIMER  (LOCAL  CODE) 

;»  START  1  SEC  TIMER  ? 

;♦  IF  NO  -  BRANCH 

;*  START  1  SEC  TIMER  (LOCAL  CODE) 

;•  RETUt,N  TO  USER  AND  THEN  TO  CALLER 


NTITIM  MACRO  V05.03b  Saturday  29-Jun-85  03:28 
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1758 

1759  00604A 

1760  006050 

1761  006052 

1762  00605A 

1763  006056 
176^  006060 

1765  006062 

1766  006066 

1767  006070 

1768  006072 

1769  006074 

1770  006076 

1771  006100 

1772  006102 

1773  006102 

1774  006110 

1775  006116 

1776  006122 
1777 

1778  006134 

1779  006142 
17S0 

1781 


012700  000112' 

020003 

001413 

010001 

160301 

006201 

016702  000112' 

012322 

005301 

001375 

005022 

020002 

001375 


016767  000006"  OOOOOOG 
005067  OOOOOOG 


250$: 

MOV 

#BL0CK+100,R0   ; 

CMP 

R0,R3 

BEQ 

286$ 

MOV 

RO.RI 

SUB 

R3,R1 

ASR 

R1 

MOV 

UPTR,R2 

260$: 

MOV 

(R3)+,(R2)+ 

DEC 

R1 

BNE 

260$ 

■?n)%: 

CLR 

(R2)  + 

CMP 

R0.R2 

BNE 

276$ 

280$: 

SWTCHO 

#BLOCK 

MOV 

uaiAS,$RBLCK 

CLR 

$RADDR 

PUTAD 

,#100 

300$: 

SUTCHO 
RETURN 

GET  END  OF  BLOCK  ADDRESS 

ARE  WE  THERE  NOW? 

IF  EQ,  YES 

CALCULATE  SIZE  REMAINING  IN  BLOCK 

COPY  REST  OF  BLOCK  ONTO  WHAT  USED  TO  BE 
OUR  LINE  TABLE  ENTRY 


ZERO  THE  REST  Ol-  THE  BLOCK 


USE  BLOCK  BUFFER 

SET  BIAS  FOR  MAPPED  SYSTEM 

CLEAR  OFFSET 

REWRITE  UNLOAD  BLOCK 

USE  DEFAULT  BUFFERS 


VUNL  -  VNP  UNLOAD  ROUTINES 
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CREF   OA.OO 


MACRO  NAME 

ADJDFS 
ANBDFS 
ASR$ 

CALL 


REFERENCES 


CALLR 

CEACCS 

CRASH 

CTRDFS 

DHBDFS 

ECDDBS 

ERBLKS 

ERMSGS 

ERRPTS 

FLTDFS 

GETAO 

GETRC 

GETRV 


NKRDFS 

OBJPFS 

PCBDFS 

PLBDFS 

PUTAD 

PUTRC 

RAND 


RESRG 

RETURN 


RNBDFS 

SAVRG 

SCBDFS 


#5-62 

5-77 

#5-60 

5-81 

#5-59 

10-449 

10-463 

0-476 

10-493 

11-531 

17-1031 

7-207 

7-208 

7-231 

7-234 

8-322 

8-334 

8-349 

8-353 

^-^^L 

8-379 

8-382 

8-383 

10-441 

10-442 

10-452 

10-453 

10-465 

10-466 

10-472 

10-478 

10-479 

10-485 

10-489 

10-496 

10-497 

10-502 

11-524 

11-533 

12-563 

12-576 

12-58A 

12-589 

13-618 

13-626 

14-652 

14-654 

14-686 

14-700 

14-737 

14-739 

K-743 

4-747 

14-749 

14-751 

14-752 

14-759 

14-765 

14-769 

14-777 

14-808 

15-827 

15-836 

17-962 

17-1007 

17-1020 

17-1043 

17-1050 

17-1065 

18-1117 

20-1204 

20-1213 

20-1226 

20-1234 

21-1262 

21-1264 

21-1271 

21-1281 

21-1284 

21-1294 

21-1308 

21-1309 

21-1323 

21-1332 

21-1340 

21-1345 

21-1346 

21-1348 

21-1352 

21-1355 

21-1361 

21-1367 

21-1373 

21-1380 

21-1390 

21-1394 

21-1429 

21-1431 

21-1469 

21-1484 

21-1494 

21-1496 

21-1499 

2  -1509 

21-1515 

21-1517 

21-1528 

21-1538 

21-1545 

21-1547 

21-1552 

21-1565 

21-1567 

2  -1571 

22-1601 

23-1654 

23-1664 

23-1686 

23-1707 

23-1711 

23-1721 

23-1733 

23-1748 

23-1756 

23-1776 

24-1814 

24-1819 

24-1826 

25-1849 

25-1856 

#5-60 

8-266 

14-657 

21-1369 

21-1375 

#5-59 

7-207 

21-1494 

21-1515 

21-1545 

21-1565 

8-393 

8-394 

12-597 

12-598 

14-692 

14-786 

14-787 

15-852 

17-1063 

17-1064 

21-1460 

23-1657 

#5-61 

5-85 

#5-61 

5-87 

#5-61 

5-83 

#5-60 

#8-262 

#12-558 

13-628 

17-1068 

20-1236 

#21-1255 

#5-60 

#8-262 

#12-558 

13-627 

17-1066 

17-1067 

20-1235 

#21-1255 

#5-60 

#8-262 

#12-558 

13-626 

17-1065 

20-1234 

#21-1255 

#5-60 

5-80 

#5-59 

7-208 

18-1117 

21-1496 

21-1517 

21-1547 

21-1567 

22-1601 

23-1748 

#5-61 
#5-59 

8-322 

8-334 

10-442 

10-453 

10-466 

10-479 

10-485 

10-497 

11-524 

14-700 

15-827 

15-836 

17-962 

17-1007 

21-1264 

21-1323 

21-1469 

21-1509 

21-1538 

24-1814 

25-1849 

25-1856 

#5-70 

5-71 

#5-60 

5-79 

#5-61 

5-88 

#5-61 

•^-84 

#5-59 

20-1226 

23-1756 

23-1776 

#5-59 

17-1050 

21-1271 

21-1394 

21-1484 

#7-208 

7-208 

#8-322 

8-322 

#8-334 

8-334 

#10-442 

10-442 

#10-453 

10-453 

#10-466 

10-466 

#10-479 

10-479 

#10-485 

10-485 

#10-497 

10-497 

#11-524 

11-524 

#14-700 

14-700 

#15-827 

■  5-827 

#15-836 

15-836 

#17-962 

17-962 

#17-1007 

17-1007 

#17-1050 

17-1050 

#18-1117 

18-1117 

#20-1226 

20-1226 

#21-1264 

21-1264 

#21-1271 

21-1271 

#21-1323 

21-1323 

#21-1394 

21-1394 

#21-1469 

21-1469 

#21-1484 

21-1484 

#21-1496 

21-1496 

#21-1509 

21-1509 

#21-1517 

21-1517 

#21-1538 

21-1538 

#21-1547 

21-1547 

#21-1567 

21-1567 

#22-1601 

22-1601 

#23-1748 

23-1748 

#23-1756 

23-1756 

#23-1776 

23-1776 

#24-1814 

24-1814 

#25-1849 
#5-62 
7-222 

25-1849 

#25-1856 

25-1856 

7-236 

8-388 

9-424 

10-504 

11-534 

12-592 

13-621 

14-781 

14-795 

14-809 

15-850 

15-879 

17-1058 

18-1166 

19-1188 

20-1228 

21-1259 

21-1455 

21-1485 

21-1503 

21-1532 

21-1556 

21-1576 

22-1642 

23-1779 

24-1829 

25-1861 

#5-60 

5-82 

#5-62 

#5-59 

5-76 

;UNL 
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308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323  000772 

32^^  000772 

325  000776 

326 

327  001002 

328  001010 

329  0010U 

330  001020 

331  001036 

332  00104'i 

333  001050 

334  001052 

335  001062 

336  001100 
337 

338  001106 


.SBTTL  XLDTE  -  DEALLOCATE  LOCAL  DTE  BLOCK 


XLDTE  -  DEALLOCATE  LOCAL  DTE  DESCRIPTOR  BLOCK 

INPUTS: 

NONE 

OUTPUTS: 

LOCAL  DTE  DESCRIPTOR  BLOCKS,  CHANNEL  HASH  TABLES,  AND 
OUTGOING  CHANNEL  LISTS  ARE  DEALLOCATED 


XLDTE: 


016705  OOOOOOG 
062705  000002 


016700  000000' 
001467 


016767  OOOOOOG  000000' 


10$: 


CALL 
SAVHAP 

SWTCHI 

MOV 

ADD 

GETRV 

SWTCHI 

MOV 

BEQ 

CEACCS 

GETAD 

MOV 


339  001110 

012700 

000122 

MOV 

340  001114 

032767 

OOOOOOG  OOOOOOG 

BIT 

341  001122 

001402 

BEQ 

342  001124 

012700 

000134 

MOV 

343  001130 

12$: 

SAVRG 

344 

345  001132 

016700 

000034G 

15$: 

MOV 

346  001136 

001417 

BEQ 

347  001140 

GETRV 

348  001156 

016767 

OOOOOOG  000034G 

MOV 

349  001164 

012701 

000006 

MOV 

350  001170 

CALL 

351  001174 

352 

353  001176 

000756 

BR 

016700 

000050G 

20$: 

MOV 

354  001202 

001405 

BEQ 

355  001204 

016701 

000032G 

MOV 

356  001210 

ASLS 

357 

358  001214 

060116 

25$: 

ADD 

359  001216 

30$: 

RESRG 

360  001220 

RESRG 

361  001222 

CALL 

362  001226 

365 

364  001230 

G00706 

BR 

005067 

OOOOOOG 

40$: 

CLR 

$SAVAL 


#LSTHBF 
$PSIPT,R5 
#H$LDTE,R5 
R5,#2 

LSTHBF,RO 

40$ 

R0,R4 

R4,#L$LEN 

$8FR,LSTHBF 

<R0> 

*L$LEN,RO 

#PF.PSV,$PFLAG 

12$ 

*L$GLEN,RO 

<R0> 

L$CHLS+$BFR,RO 

20$ 

R0,#2 

$8FR,L$CHLS+$8FR 

#K$LEN,R1 

$DEA16 

15$ 

L$CHT6t$BFR,R0 
30$ 

L$CTENt$BFR,R1 
2,R1 

R1,(SP) 

<R1> 

<R0> 

$DEPOL 

10$ 

$BFR 


Save  all  registers 
Saue  previous  mapping 

USE  LOCAL  BUFFER  FOR  LISTHEAD 
GET  PSI  HOME  BLOCK  ADDRESS 
POINT  TO  LISTHEAD 
READ  IN  LISTHEAD 
USE  DEFAULT  BUFFER 
GET  NEXT  BLOCK  IN  LIST 
BR  IF  END  OF  LIST 
CONVERT  TO  MAPPED  ADDRESS 
Read  fixed  part  of  descriptor 
Save  link  address 

Save  RO  (unmapped  address  of  block) 

Get  length  of  basic  descriptor 

Check  it  descriptor  extension  present 

Branch  if  not  present 

Get  length  of  e''*?nded  descriptor 

Stack  length  to  aeallocate 

GET  OUTGOING  CHANNELS  LIST  ADDRESS 

BR  IF  NONE 

Read  in  listhead  (rest  of  $BFR  unchanged) 

SAVE  LINK  TO  NEXT 

GET  LENGTH  OF  OUTGOING  CHANNELS  LIST 

DEALLOCATE  THE  BLOCK 

GO  AGAIN 

GET  HASH  TABLE  ADDRESS 

BR  IF  NONE 

GET  NUMBER  OF  ENTRIES  IN  HASH  TABLE 

CALCULATE  SIZE  (4  BYTES  PER  ENTRY) 

INCLUDE  LENGTH  OF  HASH  TABLE  IN  DEALLOCATION 

GET  LENGTH  TO  DEALLOCATE 

RETRIEVE  ADDRESS  OF  LOCAL  DTE  DESCRIPTOR 

DEALLOCATE  SLOCK 

00  FOR  NEXT  BLOCK 

CLEAN  UP  LISTHEAD 


;CTD001] 
;CTD001] 


;CTD001] 
.-CTDOOI] 
;nTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
,•♦♦-5 


;[TD001] 
;**-1 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VVCT  -  VNP  VECTOR  SETUP  ROUTINES 
.IDENT  /V05.00/ 
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.TITLE  VXIT  -  VNP  EXIT  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TERMINATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-11M/5  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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VXI^ 


VNP  EXIT  ROUTINES 
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Symbol   table 


A$$CHIC=  000000 

G$$TSS=  000000 

L$$P11= 

000001 

N$$PEM= 

S52S51 

V.SIAS 

000004 

A$$CPS=  000000 

G$$TTK=  000000 

L$$11R=: 

000000 

P$$P45= 

000000 

V.FLG 

000002 

A$$PR!=  000000 

G$$WRD=  000000 

M$$CRB= 

000124 

P$$WRD= 

000000 

V.LEN 

00U012 

r\  A  A  A  A  r\ 

AS$TRP=  000000 

I$$RAR=  000000 

M$$CRX= 

000000 

0$$OPT= 

99SS19 

V.LNK 

000000 

C$SC<P=  000000 

I$$RDN=  000000 

M$$FCS= 

000000 

R$$DER= 

000000 

V.PDV 

000004 

C$$ORE=  OOOAOO 

K$$CNT=  177546 

M$$MGE= 

000000 

R$$K11= 

000001 

V.SIZ 

000010 

CS$RSH=  17756^ 

K$$CSR=  177546 

M$$NET= 

000000 

R$$SND= 

000000 

X$$DBT= 

000000 

0$$BUG=  1775U 

K$$LDC=  000000 

M$$0VR= 

000000 

R$$11M= 

000000 

$DEA18= 

******  GX 

D$SISK=  000000 

K$$TPS=  000074 

N$$ACC= 

000001 

S$$WRG= 

000000 

$GETLB= 

******  GX 

D$Sl11=  000001 

LB.ADR=  ******  GX 

N$$BUF= 

000001 

S$$YSZ= 

29^^22 

$NTLHB= 

******  GX 

D$$YNC=  000000 

LB.SIZ=  *♦**♦»  GX 

N$$LDV= 

000001 

T$$KMG= 

000000 

$NTLPT= 

******  GX 

D$$YNM=  000000 

LB.USE=  ******  GX 

N$$MCP= 

000001 

T$$MIN= 

000000 

$PUTLB= 

******  GX 

E$$XPR=  000000 

LDSLP  =  000000 

N$$MLL= 

000001 

VF.LIB= 

000001 

$XLBR 

OOOOOORG 

F$tLVL=  000001 

L$$ASG=  000000 

N$$MOV= 

oOOOlO 

V$$CTR= 

001000 

.CXL8R= 

******  GX 

G$$TPP=  000000 

L$$DRV=  000000 

N$$NCT= 

000001 

V.ADD 

000006 

.MGMGE= 

******  GX 

.  ABS.  000012 

000 

(RW,I,GBL,ABS,OVR) 

000170 

001 

(RW,I,LCL,REL,CON) 

Errors  detected: 

0 

♦*•  Assembler  statistics 

Work  file  reads 

0 

Work   file  writes 

0 

Size  of  work  file 

9457 

Words   (  37  Pages) 

Size  of  core  pool 

KA40  Words  (  55  Pages) 

Operating  system 

RSX- 

IIM/PLUS 

DB2:VXLb!t47;[132??34JVXLB/CR/-SP=DB2:[1  JJRSXMCM.SML/ML,C130J10]NETLI8/ML,[130J0JRSXMCM/PA:1,[132J0]VXLB 


VXLB 
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.TITLE 
.IDENT 


NTICEX 
/V05.00/ 


COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  "SET  CEX"  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  ','3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-HM  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNET-HM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 


NTICEX 
DATA 


MACRO  V05.05b  Saturday  29-Jun-85  05:25  Page  5 


I  7 


H  8 
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.TITLE   NTILON  -  NTINIT  'EXECUTOR  ON'  ROUTINE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  "SET  EXECUTOR  STATE  ON"  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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MACROS 


NTILON     CREATED  BV  MACRO 
SYMBOL  CROSS  REFERENCE 


ON  29-JUN-85  AT  03:26 


SYMBOL  VALUE 


ALOCB 

AREAMK 

ASSIGN 

A. LULU 

BUFUMP 

CMODE 

DEACB 

DECPT 

DSNBRA 

DSNLN 

ESNBR 

ESNBS 

ESNCR 

E$NCS 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNK 

E$NML 

ESNMR 

E$NMS 

ESNNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

FNDPDV 

FNDPLl 

HEADR 

H.LUN 

I$$AS 

KISARO 

KISAR6 

LONACP 

LVLI 

MPAR 

MPCSR 

M$$MGE 

NFSMOU 

NF.END 

Nf.L\l2 

N$FLG 

N$PLD 

NSPRI 

N$$VCT 

PDVID 

PDVTA 

PIRO 

PLDADR 

PLDLEN 


GX 


GX 
GX 


=  176000 
000042 
=  000002 
=  172354 
=  KOOOO 

-   **♦♦ *• 

000054 
000050 
OOOOK 
000020 
000034 
000036 
000044 
000050 
000012 
000000 
000040 
000024 
000030 
000002 
000042 
000005 
000010 
000046 
000004 
000006 
-  ♦**♦*♦ 

000610  R 

=   ****** 

000076 
=  ****** 

=  172340 

=  172354 

000014 

=  002000 

=  172100 

=  177746 

=  000000 

=  000040 

=  000200 

=  000100 

000005 

000016 

000076 

-  *+**** 
=  *♦**+♦ 
=   ****** 

=  177772 
000000  R 
000002  R 


GX 
GX 


GX 
GX 
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CREF   04.00 


REFERENCES 

8-213 
#6-86 
#6-105 

6-105 
#5-66 
#5-66 

8-288 

8-157 

8-247 
♦8-158 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 

8-141 
#9-315 

8-164 

8-165 

5-66 
#5-66 
#5-66 
#6-104 
#6-87 
#5-66 
#5-66 

5-66 

8-272 

8-175 

8-181 

8-272 

8-200 
•8-262 

9-320 

9-317 

8-155 
#5-66 
#6-97 
#6-98 


8-254 
8-150 


8-202 
8-249 
8-203 


-216 
-217 


8-246 


5-70 
8-265 


*8-204 


«8-233 
•8-234 


-207 


-286 
-287 


•8-229 


8-236 


NTILON 
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310 
311 
312 
313 
3U 
315 
316 
317 
3^8 
319 
320 
321 
322 
523 
32^ 
325 
326 
327 

328  000772 

329  000772 
530  000776 
351  001000 
332  001004 

535  001006 

554  001020 

555  001022 

536  001024 

557  001050 

558  001052 

559  001054 

540  001056 

541  001040 

542  001042 
545  001046 

544  001052 

545  001060 

546  001064 

547  001070 
348  001100 

549  001102 

550  001104 

551  001106 

552  001110 

553  001114 

554  001120 

555  001122 
356  001150 
557  001136 

358  001140 

359  001146 

560  001152 

361  001156 

362  001160 
365  001162 
564  001164 

365  001170 

366  001172 


.SBTTL  DLMSET  -  SET  UP  COUNTER  BLOCK  FIELDS  FOR  DLM  CIRCUITS 


DLMSET  -  SET  UP  COUNTER  BLOCK  FIELDS  FOR  DLM  CIRCUITS 

INPUTS: 

STAADD  -  ADDRESS  OF  STATION  TABLE 

RO  -  XPT'S  PDV  ADDRESS 

R2  -  ADDRESS  OF  REVERSE  MAPPING  TABLE  ENTRY 

OUTPUTS: 

DLM  FLAGS  AND  SVC  DESCRIPTOR  ADDRESS  OR  PORT  NUMBER  (PVC)  STORED 

IN  COUNTER  BLOCK 
COUNTER  BLOCK  IS  ALLOCATED  IF  IT  DOES  NOT  ALREADY  EXIST 


011204 

017702  OOOOOOG 

001006 

000506 

010003 

062705  000020 

005046 

110416 

006516 

062605 

011304 

016000  000016 

016003  000100 
016000  000104 

005710 
100407 
020410 
001405 
062700  000046 

000444 

052760     000200     000044 

132777     000002     176642 

001435 

052760  000100  000044 

062702  000036 
011202 
001416 
010246 

012602 

126267  000002  176605 


DLMSET: 


10$: 


20$: 


50$: 


40$: 


.IF  NDF  R$$11S 

SWSTK$  60$ 

MOV  (R2),R4 

MOV  aPSIPT,R2 

BNE  10$ 

RETC  R2 

BR  60$ 

MOV  R0,R5 

ADD  *Z.MAP,R5 

CLR  -(SP) 

MOVB  R4,(SP) 

ASL  (SP) 

ADD  (SPH,R5 

MOV  (R3),R4 

SAVMAP 

MOV  Z.DAT(RO),RO 

MAP  N$TLC+2(R0) 

MOV  N$TLC(R0),R5 

MOV  N$TLC+4(r6),R0 

BIAS  RO 

TST  (RO) 

BMI  50$ 

CMP  R4,(R0) 

BEQ  50$ 

ADD  #T$LLEN,RO 

SOB  R5,20$ 

BR  50$  ., 

BIS  #P)($DLM,T$FLAG(RO) 

BITB  #SF.SVC,aSTAADD  ; ; 

BED  50$  ;: 

BIS  #PX$SVC,T$FLAG(R0) 

SAVMAP 

ADD  #H$SVC,R2 

MOV  (R2),R2 

BEO  45$ 

MOV  R2,-(SP) 

CALL  aCEACC 

MOV  (SP)+,R2 

CMPB  S$CTL(R2),CTLNUM 


ENTER  SYSTEM  STATE 

GET  CHANNEL  NUMBER  AND  PDV 

GET  POINTER  TO  PSl  HOME  BLOCK 

BR  IF  HOME  BLOCK  EXISTS 

ELSE  SET  USER  C-BIT 

AND  EXIT 

POINT  TO  XPT'S  PDV 

POINT  TO  FORWARD  MAPPING 

GET  CHANNEL  NUMBER 

MAKE  IT  A  WORD  INDEX 

POINT  TO  SLN  AND  STATION  NUMBER 

GET  SLN  AND  STATION  NUMBER 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  XPT'S  DDB 

MAP  TO  CIRCUIT  COUNTERS 

GET  NUMBER  OF  COUNTERS 

GET  ADDRESS  OF  FIRST  COUNTER  BLOCK 

BIAS  COUNTER  BLOCK  ADDRESS 

HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 

BR  IF  NO  -  USE  IT 

ELSE  IS  THIS  THE  CORRECT  ENTRY? 

BR  IF  YES 

POINT  TO  NEXT  COUNTER  BLOCK 

CHECK  ALL  COUNTER  BLOCKS 

EXIT 

;;  SET  FLAG  TO  INDICATE  DLM 

IS  THIS  AN  SVC? 

BR  IF  NO 

;;  ELSE  INDICATE  SVC 

SAVE  CURRENT  MAPPING 

GET  FIRST  SVC  DESCRIPTOR  ADDRESS 

GET  NEXT  BLOCK  IN  LIST 

BR  IF  NOT  FOUND 

GET  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

IS  THIS  THE  CORRECT  SVC  DESCRIPTOR? 
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.SBTTL  MACRO  DEFINITIONS 
MACRO  CALLS 

.MCALL  EMSG$R,NTLER$,NHWDF$,PDVDF$,SLTDF$,NTL[)f$,EMSG$ 

.MCALL  SAVRG.RESRG 


000000 

ooocoo 
oo:ooo 

000000 


CONSTANTS   AND   OFFSETS 

PDVDfS 
SLTDFS 
NHWDF$ 
NTLDFS 


DEFINE  PDV  OFFSETS 

DEFINE  SLT   OFFSETS 

DEFINE  HARDWARE   OFFSETS 

DEFINE  NTL    CONTROL   BLOCK   OFFSETS 
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NTINIT  MACRO  V05.05b  Thursday  05-Sep-85  11:02 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

NETWORK  INITIALIZATION  COLD  START 

MAIN  CONTROL 

VECSET  -  SET  UP  PROCESS  VECTOR  T^8LE 

NTL  COMMUNICATION 

FIND  PDV  INDICES  OF  NSP  PROCESSES  (ECL  AND  XPT) 

ERROR  MESSAGE  PROCESSOR 

RCV  DATA  AST 

RCV  DATA  SUBROUTINE  ,    ,   ,  , 

PUTAST  -  PUT  COMPLETION  AST  IN  CALLER  TASK'S  AST  QUEUE 


s- 

S4 

h- 

8A 

?- 

1S9 

8- 

^S9 

y- 

^^A 

10- 

Afi4 

11- 

S« 

v- 

S6H 

M- 

61^ 

1S- 

Ik! 

16- 

n? 

M- 

8i1 
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VECSEI    -   SET    UP  PROCESS  VECTOR    TABLE 


H  U 


525  MOV     (SP)t,RO       ;  COPY  UNMAPPED  ADDRESS  FOR  SDEACX 

527  MOV     (R5),-(SP)      ;  SAVE  NEXT  BLOCK  ADDRESS 

528  MOV     *V.LEN,R1      ;  GET  VECTOR  BLOCK  LENGTH 

529  CALLX   $DEACX,AUX     ;  DEALLOCATE  BLOCK 

530  MOV     (SP)+,R5       ;  GET  NEXT  BLOCK 

531  BNE     10$ 

533  15$:    RESMAP  ;  RESTORE  MAPPING 

53^  20$:    RETURN 

555 

536  .ENDC 

537 
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SYMBOL    CROSS  REFERENCE  CREF        04.00 


17-859 


SYMBOL 

VALUE 

REFERENCES 

ABTIM 

000640  RG 

#7-224 

ALOCB 

000620  RG 

#7-216 

3UFUMP 

=   172354 

#5-77 

CALLX 

000654  RG 

#7-235 

CCBGT 

000664  RG 

#7-239 

CEACC 

000672  RG 

#7-242 

CF.DDM 

=  000002 

#5-74 

CF.DYN 

=  000004 

#5-74 

CF.EIS 

=  000010 

#5-74 

CF.FRK 

=  100000 

#5-74 

CF.LOG 

=  000020 

#5-74 

CF.MDM 

=  000001 

#5-74 

CF.TIM 

=  000400 

#5-74 

CKHD 

000634  RG 

#7-222 

CMODE 

=  140000 

#5-77 

DEACB 

000622  RG 

#7-217 

DECPT 

000700  RG 

#7-245 

DEVHD 

000642  RG 

#7-225 

EXEVEC 

000606  R 

#7-202 

FE.CEX 

=    »«««»♦     GX 

9-365 

FMASK 

000610  RG 

#7-203 

FNDPDV 

000450  RG 

#12-585 

HEADR 

000626  RG 

#7-219 

IE. ACT 

=    **»»«♦     GX 

6-125 

lO.UVB 

=   »«»♦»*     GX 

13-689 

I$$AS 

=   *t***  * 

5-72 

KISARO 

=   172340 

#5-77 

KISAR6 

=   172354 

#5-77 

KSAR6 

000612  RG 

#7-204 

LOPWF 

000644  RG 

#7-226 

LF.ACT 

=   100000 

#5-76 

LF.BRO 

=  000400 

#5-76 

LF.BWT 

=  000007 

#5-76 

LF.ENA 

=  002000 

#5-76 

LF.LPB 

=  001000 

#5-76 

LF.MDC 

=  000100 

#5-76 

LF.MFL 

=  004000 

#5-76 

LF.MTP 

=^^  000020 

#5-76 

LF.PAC 

=  000200 

#5-76 

LF.RDY 

=  040000 

#5-76 

LF.REA 

=  010000 

#5-76 

LF.SER 

=  000040 

#5-76 

LF.TIM 

=  000010 

#5-76 

LF.UNL 

=  020000 

#5-76 

LF.X2P 

-  000000 

#5-76 

LGSTT 

000676  RG 

#7-244 

LLCAL 

000706  RG 

#7-248 

LLCRS 

000666  RG 

#7-240 

1  LCTA 

000710  RG 

#7-249 

LN.CLO 

=  000000 

#5-76 

LN.DLiM 

=  000005 

#5-76 

LN.LOA 

=  000004 

#5-76 

7-252 
9-365 

5-72  5-75  5-77 

7-204 


9-399  9-423 
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TISIN  -   INSERT    1    SECOND   TIMER   FORK  BLOCK 

121 

12? 

125 

12^, 

125 

126 

127 

128 

129 

130 

131 

132 

133 

15A 

13S 

136 

137 

138 

139 

HO 

HI   000116 

K2  000116     016700     OOOOOOG 

K3  000122     017702     OOOOOOG 

HA  000126     000^07 

K5  000130 

H6  000130     005777     OOOOOOG 

■\l,7  000134     00U11 

1A8  000136     016700     OOOOOOG 

U9  000U2     017702     OOOOOOG 

150  000H6  005001 

151  000150  012704  000006 

152  000154 

153  000160 
15A 


Page  7 


.S8TTL 
.S8TTL 


T1SIN 
T501N 


H  16 


INSERT  1  SECOND  TIMER  FORK  SLOCK 
INSERT  50  MSEC  TIMER  FORK  BLOCK 


**♦  -  T1SIN  -  INSERT  1  SECOND  TIMER  FORK  BLOCK 
•*•  -  T50IN  -  INSERT  50  MSEC  TIMCR  FORK  BLOCK 

THIS  ROUTINE  IS  USED  TO  INSERT  ENTRIES  ON  THE  CLOCK  QUEUE,  WITHOUT  CHANGING 
THE  PREDEFINED  APR5  VALUE  STORED  IN  THE  CLOCK  BLOCK.  THIS  ROUTINE  IS  ONLY 
NEEDED  ON  MAPPED  SYSTEMS. 


THIS  ROUTINE  SHOULD  BE  CALLED  AT  SYSTEM  STATE 

INPUTS: 

NONE. 


TO  INHIBIT  TASK  SWITCHING 


OUTPUTS: 

SPECIFIED  CLOCK  BLOCK  IN  INSERT  IN  CLOCK  QUEUE 


TISIN: 


T50IN: 


10$: 


20$: 


.ENABL  LSe 


MOV 

TISCL.RO 

MOV 

aTKPS,R2 

BR 

10$ 

TST 

51T100Q 

BEQ 

20$ 

MOV 

TIOOCRO 

MOV 

5)TK100,R2 

CLR 

Rl 

MOV 

#6,R4 

CALLR 

CLINS 

RETURN 

.DSA8L 

LS8 

GET  ADDRESS  OF  CLOCK  QUEUE  EN 
GET  #  OF  CLOCK  TICKS  PER  SECO 
JOIN  COMMON  CODE 

ANYTHING  IN  THE  50  MSEC  TIMER  QUEUE  ? 
IF  EQ,  NO  ..  DON'T  START  THE  TIMER 
ELSE,  GET  ADDRESS  OF  CLOCK  QUEUE  ENTRY 
GET  #  OF  CLOCK  TICKS  IN  50  MSEC 
NO  HIGH  ORDER  #  OF  TICKS 
SET  SYSTEM  REQUEST  INDICATOR 
INSERT  CLOCK  BLOCK  IN  QUEUE 


NTITIM  MACRO  V05.03b  Saturday  29-Jun-85  03:28 
CLINS  -  INSERT  ENTRY  ON  CLOCK  QUEUE 
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VUNL   -  VNP   'JNLOAD  ROUTINES 
t/EA1b  -   DEMLOCATF    16  BIT 


1785 
178A 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
179A 
1795 
1796 
1797 
1798 
■'799 
1800 
1801 
1802 
1803 
180A  0061A4 

1805  006U4     010346 

1806  006146     0104A6 
1807 

1808  006150     022700 

1809  006154     101034 

1810  006156     016702 

1811  006162     001433 

1812  006164     010204 

1813  v06166     016202 

1814  '    6172 

1815  00o210  062704 

1816  006214  011467 

1817  006220  042767 

1818  006226  016767 

1819  006234 
1820 

1821 
1822 

1823  006240  016714 

1824  006244  000402 
1825 

1826  006246 

1827  006252  0,260'. 

1828  006254  012603 

1829  006256 
1830 


I  1 
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.SBTTL   .DEA16  -  DEALLOCATE  16  BIT 

***  -  .DEA16  -  16  BIT  DE-ALLOCATION  ROUTINE 

THIS  ROUTINE  IS  CALLED  TO  ALLOW  BOTH  NORMAL  AND  PARTITION  ALLOCATIONS  TO 
BE  RELEASED.  IF  THE  ALLOCATION  CAME  FROM  THE  PROCESS'  PARTITION  SPACE,  THE 
LOCATION  "..PDV"  WILL  CONTAIN  THE  PDV  ADDRESS  FOR  THE  PROCESS  DE-ALLOCATION 
OR  ZERO  IF  THE  ALLOCATION  IS  TO  BE  DISCARDED  (I.E.,  THE  PROCESS  PARTITION 
IS  ABOUT  TO  BE  RELEASED  SO  THE  DE-ALLOCATION  NEED  NOT  BE  HOUSEKEPT). 


VUN 

MAC 

MAC 

SWl 
SWl 
TCE 
VEC 
VNF 
XP[ 


INPUT: 


RO  =  ALLOCATION  ADDRESS 

Rl  =  ALLOCATION  SIZE 

..PDV  =  PDV  ADDRESS  FOR  THE  PROCESS  OR  ZERO 


OUTPUT: 


.DEA16: 


R0,R1,R2  =  DESTROYED 
R3,R4,R5  =  PRESERVED 


MOV     R3,-(SP) 
MOV     R4,-(SP) 


120000 
000202' 

OOOOOOG 

OOOOOOG 
OOOOOOG 

160000  OOOOOOG 
000014G  OOOOOOG 


CMP 

SHI 

MOV 

BEQ 

MOV 

MOV 

GETRV 

ADD 

MOV 

BIC 

MOV 

CALL 


#120000, RO 

30$ 

..PDV,R2 

40$ 

R2,R4 

Z.PCB(R2),R2 

R2,.PLGTH 

*Z.AVL,R4 

(R4),$PRAVL 

#1 60000, $PRAVL 

$8FR+P.PEL,$BIAS 

.DEAPR 


SAVE  R3 
SAVE  R4 

IS  ALLOCATION  FROM  PARTITION  SPACE  ? 
IF  HI,  NO  -  DE-ALLOCATE  NORMALLY 
GET  PDV  ADDRESS 
IF  EQ,  DISCARD  DE-ALLOCATION 
COPY  PDV  ADDRESS 

GET  PCS  ADDRESS  FOR  THIS  PROCESS 
READ  IN  THE  PCS 

POINT  TO  PROCESS  ALLOCATION  WORD  IN  PDV 
SETUP  FREE  SPACE  POINTER 
IGNORE  MAPPING  REGISTER  SELECT  BITS 
;  GET  THE  BIAS  FOR  THIS  PROCESS 
DF-ALLOCATE  BACK  TO  PARTITION  SPACE 


OOOOOOG 


UPDATE  THE  PROCESS  ALLOCATION  POINTER  IN  THE  PDV 


MOV 
BR 


$PRAVL,(R4) 
40$ 


30$: 
40$: 


CALL  $DEA16 

MOV  (SP)+,R4 

MOV  (SP)+,R3 
RETURN 


RESTORE  PROCESS  ALLOCATION  POINTER 
AND  LEAVE 

DE-ALLOCATE  NORMALLY 
RESTORE  R4 
RESTORE  R3 


VUNL  -  VN''    UNLOAD  ROUTINES 
.DEA16  -  DEALLOCATE    16  BIT 
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VUNL  CREATED  BY 

MACRO   CROSS   REFERENCE 


MACRO     ON   16-SEP-85   AT   07:31 


I     2 

PAGE   9 

CREF       OA.OO 


Xi 


MACRO  NAME 

REFERENCES 

SWTCH! 

*5-59 

18-1089 

18-1165 

SWTCHO 

#5-59 

17-1047 

20-1225 

TCBDFS 

#5-61 

5-78 

VECDFS 

#5-62 

5-89 

VNPBPT 

#8-261 

8-262 

#12-557 

XPDDBS 

#5-61 

5-86 

21-1508 
20-1227 


21-1510 
23-1773 


21-1537 
23-1778 


21-1539         22-1596         22-1641 


12-558         #21-1254         21-1255 


•♦FILE»»ID*«VUNPS1 


J    2 


I  3 

VUNPSI  -  VNP  UNLOAD  ROUTINES  fO  MACRO  V05.0?b  Wednesday  17-Jul-85  12:U 
XlDTE  -  DEALLOCATE  LOCAL  DTE  BLOCK 


565  001234 

366  001252 

367  001256 
^68 


50$: 


PUTRC 

RESflAP 

RETURN 


R5,#2 


Page  12-1 


WRITE  UPDATED  LISTHEAD 
RESTORE  PREVIOUS  MAPPING 
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VUNPSl  -  VNP  UNLOAD  ROUTINES  FO  MACRO  V05.03b  Wednesday  17-Jul-85  12:U 
XPORT  -  DEALLOCATE  PORT  TABLE  AND  CIRCUIT  BLOCKS 
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VVCT  -  VNP  VECTOR  SETJP  ROUTINE  MACRO  V03.03b  Saturday  29-Jun-85  03:1:^  Page  5 


03:1. 


54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64  000000 

65 

66 

67 

68 

69  000000 

70  000040 

71  000000 


LIBRARY  MACROS 


.MCALL  ASR$,EMSG$,EMSG$R,NTLER$,SWTCHO,PUTRC,PUTAD,GETRV,GETAD 
.MCALL   SAVRG,RESRG,CALLR,SWTCHI 


LOCAL  DATA 
If* 

.PSECT  DATA.D 
BUFFER  FOR  WRITING  VECTOR  TO  LOU  CORE 


VCTBUF:  .BLKW   20 
KRBB:    .BLKB   60 
.PSECT 


;  ALLOW  ROOM  FOR  UP  TO  8  VECTOR  PAIRS 
;  INTERNAL  KRS  BUFFER 


J 


J  A 
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VXl'  -  VNP  EXIT  ROUTINES 


55 

56 

57 

58 

59 

60 

61 

62 

63 

M 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75  OOCOOO 

76 

77 

78 

79 

80  000000 

81  000000  005001 
82 

83 
84 

85  000002  005767 

86  000006  001002 

87  000010 
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**-$VXIT 

IF  THE  USER  TYPES  *Z  AT  TI:  THEN  A  NORMAL  EXIT  IS  TAKEN 
BY  JUMPING  TO  $VXIT.  OPEN  FILES  ARE  CLOSED  AND  ANY  UNUSUAL 
CONDITIONS  ARE  REPORTED  TO  THE  USER.  THINGS  ARE  NOT  ALWAYS 
SO  NEAT  AND  CLEAN.  A  PANIC  EXIT  CAN  BE  TAKEN  ANYWHERE, 
ANYTIME  BY  JUMPING  TO  SPANIC. 


INPUTS: 

NONE 

OUTPUTS: 

EXITSS  WITH  CONDITION  MESSAGES  TO  TI: 


.MCALL  EXITSS, CLOSES, GETRC,GETRV,PUTRC,SWTCHO,SWTCHI,PUTAD 
.MCALL  ERMSGS,ERBLKS,ERRPTS,DH8DFS 


DH8DFS 
.ENABL  LC 


SVXIT: 


OOOOOOC 


89  000014 

<50  000022 
''  000024 

92 

93 

94 

95  000030 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 

106  000030 

107  000036 

108  000056 

109  000064 

110  000076 

111  000104 


032767 
001002 


OOOOOOG  OOOOOOG  13S: 


CLR     R1 
FIRST  BE  SURE  FILE  IS  OPEN 


TST  SYSFDB+F.FNBtN.FID 

BNE  13S 

CALLR  SOS 

BIT  #VF.INI,SVFLAG 

BNE  14S 

CALLR  10S 


;  REWRITE  RSX11M.SYS  VALUES  THAT  ARE 
14S 


;  DEFINE  HOME  BLOCK  OFFSETS 


;  CLEAR  FATAL  ERROR  FLAG  TO  PRVENT  LOOPS 


;  IS  FILE  ALREADY  CLOSED  ? 

;  IF  NO  -  BRANCH 

;  IF  YES  -  JMP  50$ 

;  DID  INITIALIZATION  COMPLELTE 

;  IF  YES  -  BRANCH 

;  IF  NO  -  JMP  10S 

STORED  IN  ROOT  SECTION 


.IF  DF 
SWTCHO 
PUTRC 

BIT 

BEQ 

SWTCHO 

PUTRC 

.ENDC 

SWTCHO 

PUTRC 

SWTCHO 

PUTRC 

SWTCHO 

PUTRC 


RSSMPL 

#$CTLST 

.CTLST,*2 

#DF.POL,SDFLAG 

IS 

#SPOLHD 

.P0LHD,#2 


#SFMASK 

.FMASK,*2 

*SDEVHD 

.DEVHD 

#SPARHD 

.PARHD 


UPDATE  SCTLST 


SECONDARY  POOL  SUPPORTED 
IF  NO  -  BRANCH 
RESET  BUFFER 
UPDATE  IMAGE 


;[MPOn 
;[MP01] 


[MP01] 
[MP01] 
[MP01] 
[MP01] 
CMPOI] 


UPDATE  SFMASK 
UPDATE  SDEVHD 
UPDATE  SPARHD 
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VXLB 

CREATED  BY 

MACRO  OM  6 

-SEP-85 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

LB. ADR 

; 

****** 

fix 

5-80 

.B.SIZ 

r: 

****** 

GX 

5-81 

lB.USE 

~ 

****** 

GX 

•  5-75 

*5-77 

nSMPL 

- 

****** 

5-110 

6-130 

$DEA18 

= 

****** 

GX 

5-93 

5-114 

SGETLB 

- 

****** 

GX 

5-71 

5-101 

SNTLHB 

r 

****** 

GX 

5-95 

*5-98 

SNTLPT 

- 

****** 

GX 

5-83 

SPUTLB 

r: 

****** 

GX 

5-105 

SXLBR 

000000 

RG 

#5-68 

.CXLBR 

r 

****** 

GX 

5-95 

*5-98 

.MGMGE 

= 

****** 

GX 

5-73 

5-90 
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NTICEX 
DATA 


MACRO  V05.05b  Saturday  29-Jun-85  03:25  Page  5 

.SSTTL  DATA 


I  7 


53 
54 
55 
56 
5' 
5« 
59 
60 
61 
62 
63 

65 
66 
67 
68 
69 
70 
71 

72  000000 

73  000000 

74  000000 

75  000000 

76  000000 
77 

78       000000 

79 

80 

81 

82 

83  000000 

84 

85 

86 

87 

88 

89 

90  000000 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 


AT  THE  MOMENT,  ASSUME  THAT  IF  MEMORY  MANAGEMENT  IS  IN  EFFECT,  THAT 
THE  MACHINE  IS  AN  11/70  (ONLY  AFFECTS  UMR  LOADING  CODE). 


LIBRARY  MACROS 

.MCALL 
.MCALL 


DIRS,  CLE F$S,UTSE$S,RQST$,SDAT$,EMSG$R,NTLER$ 
NHUDF$,PDVDF$,DHBDF$,SLTDF$,CCBDF$ 


.IF  OF   R$$MPL 

.MCALL  0LRDF$,QIOW$S,ALUN$S 

OLRDFS 

.ENDC 

CCSDFS 
SLTDFS 
NHWDFS 
PDVDFS 
DHBDFS 


[MP01] 
CMP01] 
CMPOl] 
CHPOn 


H$$EXT   ==  0 

LOCAL  (IMPURE)  DATA 
.PSECT  DATA,D 


ERROR  MESSAGES 

.IF  NDF,R$$11S 

.ENABL      LC 
NTLERS     ,10,NONE,$NIERR,,,<Clearing   Systeni> 
.DSABL      LC 
.ENDC 


;DEFINE    CCB  OFFSETS 

.-DEFINE  SLT  OFFSETS 

;HARDWARE  REGISTER  DEFINITIONS 

.-DEFINE  PDV  OFFSETS 

.-DEFINE  DECNET  HOME  BLOCK  OFFSETS 

;  ASSUME  UMR  SUPPORT 


000030  000030 


INIFUN:  .WORD    FS. INI  I F C .PCT 


;  PROCESS  INIT  FUNCTION  CODE 


000000 


.IF  DF   R$$MPL 
STATUS:  .BLKW   2  ;  I/O  STATUS  FOR  HRC...  INIT 

NTLERS  ,11,N0NE,$N1ERR,,,<HRC...  RECONFIGURATION  FAILURE> 

.ENDC 


START  OF  PURE  CODE 
.PSECT 


[MP01] 
CMPOl] 
CMPOl] 
CMPOl] 


NTICEX  MACRO  V05.03b  Saturday  29-Jun-85  03:25 
SET  CEX  FUNC1I0N 
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NUCSR  MACRO  V05.05b  Saturday  29-Jun-85  03:25 
Table  of  contents 


I  8 


54    DATA 

96    CSR  CHECK 
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NTILON  - 

NTINIT  'EXEC 

MACROS 

5'. 

55 

56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

000000 

66 

000000 

67 

000000 

68 

000000 

69 

000000 

70 

000000 

71 

000000 

72 

000000 

73 

000000 

7A 

000000 

75 

000000 

76 

000000 

11 

000000 

78 

000000 

79 

000000 

I  9 
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.SBTTL  MACROS 


LIBRARY  MACROS 

.MCALL  DIRS, RUNS, EMSG$,EMSG$R,NTLER$,NHWDF$,RETC,WSIG$S 

.MCALL  ALUNl,PLBDfS,XPDDBS,ECDDB$,PDVDF$,CTRDF$,MAP,BIAS 

.MCALL  RESMAP,SAVMAP,ADJDf$,NSFDFS,CALLX,CACDF$,DH8DF$ 

.MCALL  DVBDFS,OCBDFS,UCBDFS,HDRDF$,CCBDFS 

CCBDFS  .-DEFINE  FUNCTION  CODE  SYMBOLS 

NHWDFS  .-HARDWARE  REGISTER  DEFINITIONS 

PLBDFS  .-DEFINE  PLB  OFFSETS 

XPDDBS  ;DEFINE  TRANSPORT  DATABASE  OFFSETS 

ECDDBS  .-DEFINE  ECL  DATABASE  OFFSETS 

PDVDFS  .-DEFINE  PDV  TABLE  OFFSETS 

CTRDFS  .-DEFINE  NSP  COUNTER  OFFSETS 

NSFDFS  ;DEFINE  NETWORK  FLAGS 

ADJDFS  .-DEFINE  ADJACENCY  DATA  BASE  OFFSETS 

CACDFS  .-DEFINE  NI  CACHE  DATA  BASE  OFFSETS 

DHBDFS  .-DEFINE  DECNET  HOME  BLOCK  OFFSETS 

DVBDFS  ;VCB  DEFINITIONS 

DCBDFS  .-DCS  DEFINITIONS 

UCBDFS  ;UCB  DEFINITIONS 

HDRDFS  ;TASK  HEADER  OFFSETS 
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SYMBOL    CROSS   REFERENCE 
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PAGE   2 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

PMODE 

=  030000 

#5-66 

PRO 

=  000000 

#5-66 

PRl 

=  000040 

#5-66 

PR2 

=  000100 

#5-66 

PR5 

=  ooouo 

#5-66 

PR4 

=  000200 

#5-66 

PR5 

=  0002AO 

#5-66 

PR6 

=  000300 

#5-66 

PR7 

=  000340 

#5-66 

PS 

=  177776 

#5-66 

P$LEN 

000052 

8-205 

8-223 

RCP1NM 

000004  R 

#6-101 

8-177 

RCP2NM 

000010  R 

#6-102 

8-184 

R$$MPL 

=      * t*»** 

5-66 

5-66 

5-66 

8-163 

R$$110 

=      ****** 

5-66 

5-70 

R$$11M 

=  000000 

5-70 

R$$11S 

=    ****** 

5-70 

6-96 

8-198 

8-283 

R.UNTN 

=  000002 

6-104 

SRSTD 

=   »,««*»      GX 

8-178 

8-185 

SWR 

=   177570 

#5-66 

S$$BAS 

=   ****** 

7-112 
7-116 

7-112 

7-113 

7-113 

TPS 

=   177564 

#5-66 

TSFLAG 

000044 

#5-71 

TSIIF 

000013 

#5-71 

TSLIFL 

000013 

#5-71 

TSLIFO 

000013 

#5-71 

TSLIFS 

000013 

#5-71 

TSLIN 

000000 

#5-71 

TSLIPS 

000006 

#5-71 

TSLLD 

000012 

#5-71 

TSLLDC 

000045 

#5-71 

TSLLDL 

000012 

#5-71 

TSLLDO 

000012 

#5-71 

TSLLDS 

000012 

#5-71 

TSLLEN 

000046 

#5-71 

TSLOPR 

000002 

#5-71 

T$LTCL 

000024 

#5-71 

TSLTIM 

000026 

#5-71 

T$LTPR 

000014 

#5-71 

TSLTPS 

000020 

#5-71 

TSNAPL 

000004 

#5-71 

T$NFE 

000000 

#5-71 

rSNLEN 

000010 

#5-71 

TSNNUL 

000002 

#5-71 

TSNOPL 

000006 

#5-71 

T$NRM 

000042 

#5-71 

TSNRPL 

000005 

#5-71 

TSNRUL 

000007 

#5-71 

T$NVR 

000001 

#5-71 

TSRPRI 

000040 

#5-71 

T$Sl/C 

000034 

#5-71 

9-313 


7-114 


7-115 


7-115 


7-116 


NTILON 


CREATED  BY     MACRO     ON  29-JUN-85  AT   03:26 
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race  C\t     r\f\ 


NTIMFE    - 
DLMSET   - 

367 
368 
369 
370 
371 
372 
373 
37^ 
375 
376 
377 
578 
379 


1    11 

DO  MARKED-FOR-ENABLE    S  MACRO  V05.03b  Wednesday  24-Jul-85   15:08 
SET   UP   COUNTER  BLOCK.    FIELDS   FOR   DLM  CIRCUITS 

001200  001366 

001202  126267     000003     176572 

001210  001362 

001212  017703     OOOOOOG 

001216 

001222  010360  000034 

001226  010260  000036 

001232 

001236 


BNE 

10$ 

CMPB 

S$STA(R2),STAN 

BNE 

40$ 

MOV 

SKSAR6,R3 

4S$: 

RE  SNAP 

MOV 

R3,T$SVC(R0) 

MOV 

R2,T$SVCt2(R0) 

SOS: 

RESMAP 

60$: 

RETURN 

Page  8-1 


;  BR  IF  NO.  TRY  NEXT  ONE 

;  IS  THIS  THE  CORRECT  ONE? 

;  BR  If  NO.  TRY  NEXT  ONE 

;  GET  APR  BIAS  OF  SVC  DESCRIPTOR  BLOCK 

;  RESTORE  PREVIOUS  MAPPING 

;  STORE  APR  BIAS  OF  SVC  DESCRIPTOR  BLOCK 

STORE  VIRTUAL  ADDRESS  OF  SVC  BLOCK 

;  RESTORE  PREVIOUS  MAPPING 


000001 


.ENDC 
.END 


NTIMFE  -  DO  MARKEO-FOR-ENABLE 
Symbol  table 
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NllMFL  MACRO  V05.05b  Saturday  29-Jun-85  03:2/ 
LOCAL  DATA 


Page  6 


1  12 


69 
70 
71 
72 

73  000000 

74  000000 
75 

76 
77 
78 
79 

80  000002 

81  0000A2 
32 

83 
8A 
85 
86 
87  000000 


.SBTTL  LOCAL  DATA 
LOCAL  DATA  (IMPURE) 


000000 


PDVFLG: 


.PSECT 
.WORD 


DATA.D 
0 


;PDV  FLAGS  FOR  DDM 


ERROR  MESSAGES 


.ENABL      LC 

NTLERS     ,30,N0NE,$N]ERR,$NERDD,,<failed   To  Load  Line   •   > 
NTLERS     ,31  ,NONE,$N]ERR,$NER50,,<FaUed   To  Load  Process   *   > 

.DSABL     LC 


START  OF  PURE  CODE 
.PSECT 


NTIMFL  MACRO  VO5.03b  Saturday  29-Jun-85  03:27 
MARKED  FOR  LOAD  SCAN 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  NTINIT 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  INITIALIZER  (NTINIT)  MAIN  CONTROL 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 


OF   ITS 


.00  27-FE8-78 

VERSION  2.0  RELEASE 


2.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-llM-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
OECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 


NTINIT  MACRO  V05.03b  Thursday  05-Sep-85 
MACRO  DEFINITIONS 


11:0?  Page  5 
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NTINIT  MACRO  V05.03b  Thursday  05 
NTL  COMMUNICAIION 

540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 

556  000376 

557  000376 

558  000404  103416 

559  000406 

560  000414 

561  000426 

562  000440 
563 

564   000442 
565 
566 


•Sep-85   11:02     Page  11 


I  U 


.SBTIL  NTL  COMMUNICATION 

SNINTL  -  SEND  DATA  TO  NTL  AND  WAIT  fOR  RESPONSE 

THIS  ROUINE  IS  ONLV  NECESSARY  ON  AN  RSX11M  OR  IAS  SYSTEM 

INPUTS: 

SNTLFC  IS  ALREADY  SET  FOR  NTL 

OUTPUTS: 

CARRY  INDICATES  SUCCESS/FAILURE 
SNTLFC  CONTAINS  RESPONSE  FROM  NTL 


SNINTL: 


10$: 


,]F  NDF  R$$11S 


DIRS 

BCS 

DIRS 

WTSESS 

CLEFSS 

RETURN 


EMSGSR  02 
.ENDC 


#SNISNL 

10S 

*$N]RNL 

*15. 

*15. 


;*-RSX11M  SYSTEM  ONLY-* 

;SEND  DATA  TO  NTL 

;BR  IF  CAN'T,  PROBABLY  NOT  INSTALLED 

.-REQUEST  NTL  TO  RUN  IF  NOT  ALREADY 

.-WAIT  FOR  NTL'S  RESPONSE 

;CLEAR  FLAG  15.  FOR  NEXT  TIME 

;  WITH  C-BIT  CLEAR 

.•NTL  PROBABLY  NOT  INSTALLED 

.-♦-END  RSX11M  CODE-» 


NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:02  Page  12 
FIND  PDV  INDICES  OF  NSP  PROCESSES  (ECL  AND  XPT) 


J  K 
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NTINI'     CREATED  Br  MACRO  DM  5-SEP-85  AT  11:0«      PAGE  2 

SYMBOL  CROSS  REFERENCE  CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

LN.LOO 

=  000003 

#5-76 

LN.OAU 

=  000003 

#5-76 

ln.off 

=  000001 

#5-76 

LN.ON 

=  000000 

#5-76 

LN.OOP 

=  OOOOO-i 

#5-76 

LN.OPE 

=  000001 

#5-76 

LN.REF 

=  000002 

#5-76 

LN.SER 

=  000002 

#5-76 

LN.5TA 

=  000017 

#5-76 

LN.SUB 

=  000360 

#5-76 

LN.TRl 

=  000006 

#5-76 

LO.CON 

000006 

G 

#5-72 

LO.CSR 

000006 

G 

#5-72 

LO.CTL 

0000  K 

G 

#5-72 

LO.LIN 

000004 

G 

#5-72 

LO.PAR 

000010 

G 

#5-72 

LO.PRI 

000010 

G 

#5-72 

LO.SCR 

oooou 

G 

#5-72 

LO.STA 

000015 

G 

#5-72 

LO.VCT 

000012 

G 

#5-72 

LR.AST 

000026 

G 

#5-72      8-305 

LR.CIR 

000002 

G 

#5-72 

LR.CTL 

OOOOOA 

G 

#5-72 

LR.EFN 

OOOOOA 

G 

#5-72 

LR.LINJ 

000002 

G 

#5-72 

LR.PR'' 

000030 

G 

#5-72      8-306 

LR.PRl 

000002 

G 

#5-72 

LR.STS 

000000 

G 

#5-72 

LR.TCB 

000002 

G 

#5-72 

LR.UNT 

000005 

G 

#5-7: 

LS.AST 

=  100000 

G 

#5-72      8-303 

LS.CEX 

=  000001 

G 

#5-72      9-361 

LS.CIR 

=  000010 

G 

#5-72 

LS.CXO 

=  010000 

G 

#5-72      9-389 

LS.CX5 

=  OOOAOO 

G 

#5-72      9-393 

LS.DLM 

=  004000 

G 

#5-72 

LS.ECH 

=  001000 

G 

#5-72 

LS.FDX 

=  OOAOOO 

G 

#5-72 

LS.HDX 

=  010000 

G 

#5-72 

LS.LIN 

=  000003 

G 

#5-72 

LS.LMC 

=  000007 

G 

#5-72 

LS.NTI 

=  OOAOOO 

G 

#5-72 

LS.ON 

=  000011 

G 

#5-72      9-367 

LS.OPT 

=  OOOAOO 

G 

#5-72 

LS.PRO 

=  000002 

G 

#5-72 

LS.PWF 

=  OAOOOO 

G 

#5-72 

LS.TOP 

=  002000 

G 

#5-72 

L5.UNF 

=  020000 

G 

*5-''2 

LS.X25 

=  000012 

G 

#5-72      9-369 

LS.11D 

=  OOAOOO 

G 

#5-72 

LX.CEX 

r.   000004 

G 

#5-72 

LX.LII^ 

=  000006 

G 

#5-72 

9-415 
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CLINS  -  INSERT  ENTRY  ON  CLOCK  QUEUE 


I  16 


156 

157 

158 

159 

160 

161 

162 

163 

16^ 

165 

166 

167 

168 

169 

170 

171 

172 

173  000162 

1'A  000162 

175  00016A 

176  000166 

177  000170 

178  000172 

179  000176 

180  000200 

181  000202 

182  000204 

183  000210 

184  000212 

185  000214 

186  000216 

187  000222 

188  000224 

189  000226 

190  000234 

191  000236 

192  000242 

193  000244 

194  000246 
195 

196 


005020 
110420 
005200 
005720 
067702 
005501 
010220 
010110 
016702 
010201 
011102 
001410 
021062 
101372 
103404 
026062 
103365 
162700 
010011 
010210 


.S8TTL   CLINS  -  INSERT  ENTRV  ON  CLOCK  QUEUE 

»«*  -  CLINS  -  INSERT  ENTRY  ON  CLOCK  QUEUE  WITHOUT  CHANGING  APRS  MAPPING  VALUE 

THIS  ROUTINE  SHOULD  BE  CALLED  AT  SYSTEM  STATE  -  TO  INHIBIT  TASK  SWITCHING 

INPUTS: 

RO  =  ADDRESS  OF  THE  CLOCK  QUEUE  ENTRY  BLOCK 
R1  =  HIGH  ORDER  HALF  OF  DELTA  TIME 
R2  =  LOW  ORDER  HALF  OF  DELTA  TIME 
R4  =  REQUEST  TYPE 

OUTPUTS: 

THE  CLOCK  QUEUE  ENTRY  IS  INSERTED  IN  THE  CLOCK  QUEUE  ACCORDING 
TO  THE  TIME  THAT  IT  WILL  COME  DUE. 


CLINS: 


OOOOOOG 


OOOOOOG 


000010 


177776  000006 
000010 


10$: 


20i: 


CLR 

(RO)t 

MOVP 

Rt.CROt 

INC 

RO 

TST 

(RO)* 

ADD 

aABriM,R2 

ADC 

Rl 

MOV 

R2,(R0)+ 

MOV 

R1,(R0) 

MOV 

CLKHD,R2 

MOV 

R2,R1 

MOV 

(R1),R2 

BEO 

20$ 

CMP 

(R0),C.TIM*2(R2) 

BHI 

10$ 

BLO 

20$ 

CMP 

-2(R0),C.T1M(R2) 

BHIS 

10$ 

SUB 

*8.,R0 

MOV 

R0,(R1) 

MOV 

R2,(R0) 

RETURN 

POINT  TO  TYPE  FIELD  AND  CLEAR  LINK 

SET  REQUEST  TYPE 

ADVANCE  TO  TC8  ADDRESS 

SKIP  TCB  LOCATION 

CALCULATE  ABSOLUTE  TIME  WHEN 

REQUEST  WILL  COME  DUE 

SET  LOW  ORDER  PART  OF  TIME 

SET  HIGH  ORDER  PART  OF  TIME 

POINT  TO  CLOCK  QUEUE  LIST  HEAD 

SAVE  ADDRESS  OF  PREVIOUS  ENTRY 

GET  ADDRESS  OF  NEXT  ENTRY 

IF  EQ,  END  OF  LIST 

ENTRY  GO  HERE  ? 

IF  HI,  NO 

IF  LO,  ENTRY  GOES  HERE 

REALLY  GO  HERE  ? 

IF  HIS,  NO 

BACK  UP  TO  FRONT  OF  BLOCK 

SET  NFW  NEXT  IN  PREVIOUS  ENTRY 

SET  NEXI  IN  NEW  ENTRY 


NTITIM  MACRO  V05.05b  Saturday  29-Jun-85  03:28 
CLINS  -  INSERT  ENTRY  ON  CLOCK  QUEUE 
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VUNL  -  VN''  UNLOAD  ROUTINES 
DEAI6  -  DEALLOCATE  16  BIT 


It 

18 

If,  54 

1835 

-.836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

■849 

1850 

1851 

1852 

1853 

1854 

1855 

18'^6 


J  1 
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.SBTTL  TSKSCH  -  SEARCH  FOR  TASK  TC8 
•*-TSKSCH-SEARCH  TCB'S  FOR  SPECIFIED  TASK 
INPUTS: 


RO 


POINTER  TO  RAD50  TASK  NAME 


OUTPUTS: 

SRADDR  -  ADDRESS  OF  TC8 
$BFR    -  IMAGE  OF  TCB 
C-BIT  SUCCESS/FAILURE 
R3,R4,R5  DESTROYED 


1859 
1860 
1861 
1862 
1863 


006260 
006260 
006300 
006304 

006310 
006316 
006320 
006322 
006326 
006332 
006334 
006342 
006344 


TSKSCH: 


012705 
011565 

016567 
000261 
001411 

021065 
001366 
026065 
001362 


000001 


OOOOOOG 
000030 

000030  OOOOOOG  10$: 


000006 
000002 


000010 


30$: 


GETRV 

MOV 

MOV 

MOV 

SEC 

BEQ 

GETRV 

CMP 

BNE 

CMP 

BNE 

RETURN 

.END 


.TSKHD,.TLGTH 

#$8FR,R5 

(R5),T.TCBL(R5) 

T.TCBL(R5),$RADDR 

30$ 

(R0),T.NAMCR5) 
10$ 

2(fiQ),T.NAM+2(R5) 
10$  ; 


READ  IN  LISTHEAD 
POINT  AT  BUFFER  BASE 
INITIALIZE  FOR  LOOP 

;  SET  TCB  ADDRESS 

ASSUME  ERROR 

NULL  TASK  (  END  OF  LIST  ) 

READ  IN  TCB 

MUST  MATCH  BOTH 

;  HALVES  OF  NAME 
C-BIT  IS  CLEAR 
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IVUNL  -  VNP  UNLOAD  ROUTINES 
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♦  ♦FiLE«MD*»VUNPSI 
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VI 
XI 


vv 

vv 

uu 

uu 

NN 

NN 

PPPPPPPP 

SSSSSSSS 

IIIJ 

n 

vv 

vv 

uu 

uu 

NN 

NN 

PPPPPPPP 

SSSSSSSS 

in 

n 

\/\/ 

vv 

uu 

uu 

NN 

NN 

PP      PP 

SS 

IJ 

vv 

vv 

uu 

uu 

m 

NN 

PP      PP 

SS 

I 

vv 

vv 

uu 

uu 

'  'f 

J    NN 

PP      PP 

SS 

I 

vv 

vv 

uu 

uu 

.^mn         NN 

PP      PP 

SS 

I 

v\/ 

vv 

uu 

uu 

NN 

NN  NN 

PPPPPPPP 

SSSSSS 

I 

v\/ 

vv 

uu 

uu 

NN 

NN  NN 

PPPPPPPP 

SSSSSS 

vv 

vv 

uu 

uu 

NN 

NNNN 

PP 

SS 

vv 

vv 

uu 

uu 

NN 

NNNN 

PP 

SS 

I 

vv 

vv 

uu 

uu 

NN 

NN 

PP 

SS 

I 

vv 

vv 

uu 

uu 

NN 

NN 

PP 

SS 

I 

vv 

uuuuuuuuuu 

NN 

NN 

PP 

SSSSSSSS 

in 

n 

vv 

uuuuuuuuuu 

NN 

NN 

PP 

SSSSSSSS 

in 

n 

SSSSSSSS 

TTTTTTrTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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XPORT   -  DEALLOCATE   PORT    TABLE    AND   CIRCUIT   BLOCKS 
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370 
371 
372 
373 
37^ 
375 
376 
377 
378 
379 
380 
381 
382 

383  001260 

384  001 26A 

385  001270 

386  001306 

387  001312 

388  001316 

389  001334 
390 

391  001 3A0 

392  001344 

393  001354 

394  001356 

395  001360 

396  001374 

397  001400 

398  001402 

399  001404 

400  001406 

401  001410 

402  001412 

403  001416 

404  001424 

405  001426 

406  001432 

407  001436 

408  001440 

409  001444 

410  001446 

411  001452 

412  001454 

413  001456 

414  001462 

415  001466 

416  001470 
A17  00147A 
418 


016703 
062703 

016700 
062703 


OOOOOOG 
000020 

OOOOOOG 
000002 


.SBTTL  XPORT  -  DEALLOCATE  PORT  TABLE  AND  CIRCUIT  BLOCKS 


XPORT  -  DEALLOCATE  PORT  TABLE  AND  ASSOCIATED  X.25  CIRCUIT  BLOCKS 

INPUTS: 

SPFLAG  -  PSI  characteristics  word 

OUTPUTS: 

THE  PORT  TABLE  AND  THE  X.25  CIRCUIT  BLOCK  IS  DEALLOCATED 


;[TD00i: 


XPORT: 


016704  OOOOOOG 


010405 
006305 

012702 
005722 
005304 
003424 
012200 
001420 
012701 
032767 
001402 
012701 


005304 
003354 
016600 
016601 
006301 


OOOOOOG 


10$: 


000106 

OOOOOOG  OOOOOOG 

000106 


15$: 


20$: 

000002        25$: 
000012 


30$: 


MOV 

ADD 

GETRV 

MOV 

ADD 

GETRV 

MOV 

CALL 

CEACC$ 

MOV 

ASL 

GETAD 

MOV 

TST 

DEC 

BLE 

MOV 

BED 

MOV 

BIT 

BEQ 

MOV 

SAVMAP 

SAVRG 

CALL 

RESRG 

RESMAP 

DEC 

BGT 

MOV 

MOV 

ASL 

CALL 

RETURN 


$PSIPT,R3 

#H$PTB,R3 

R3,#2 

$BFR,RO 

#H$NPT-H$PTB,R3 

R3,*2 

$8FR,R4 

SSAVAL 

R0,R2 

R4,R5 

R5 

R2,R5 

*$8FR,R2 

(R2)  + 

R4 

25$ 

(R2)+, 

20$ 

#X$LEN,R1 

#PF.PSV,$PFLAG 

15$ 

#X$GLEN,R1 

<R2> 

$DEP0L 

<R2> 

R4 

10$ 

R$RO(SP),RO 

R$R4(SP),R1 

R1 

$DEPOL 


,R0 


GET  ADDRESS  OF  PSI  HOME  BLOCK 
POINT  TO  PORT  TABLE  ADDRESS 
READ  IN  PORT  TABLE  ADDRESS 
GET  ADDRESS  OF  PORT  TABLE 
POINT  TO  NUMBER  OF  PORTS 
READ  IN  NUMBER  OF  PORTS 
GET  NUMBER  OF  PORTS 

SAVE  ALL  REGISTERS 

CONVERT  TO  MAPPED  ADDRESS 

GET  NUMBER  OF  PORTS 

GET  NUMBER  OF  BVTES  IN  PORT  TABLE 

READ  IN  PORT  TABLE 

POINT  TO  LOCAL  COPY  OF  PORT  TABLE 

SKIP  FIRST  ENTRY 

If'nO  CIRCUIT  BLOCKS  -  BRANCH 

GET  ADDRESS  OF  X.25  CIRCUIT  BLOCK 

BR  IF  NONE  FOR  THIS  PORT 

GET  LENGTH  OF  CIRCUIT  BLOCK 

Check  for  PSV  module 

Branch  if  not  present 

PSV  needs  longer  XCB 

SAVE  PORT  TABLE  MAPPING 

AND  ADDRESS 

DEALLOCATE  CIRCUIT  BLOCK 

RESTORE  PORT  TABLE  ADDRESS 

AND  MAPPING 

MORE  TO  CHECK? 

BR  IF  YES 

GET  UNMAPPED  ADDRESS  OF  PORT  TABLE 

GET  NUMBER  OF  PORTS 

MULTIPLY  BY  2  TO  OBTAIN  BYTE  COUNT 

DEALLOCATE  PORT  TABLE 


;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
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STMVCT  -  SETUP  INTERRUPT  VECTOR(S) 

INPUTS: 

$$VECT=VECTOR   TO  BE  USED 
$N\/ECT=NUMBER  OF    VECTORS    TO   SET  UP 
$ICBAD=ICB  ADDRESS/LINE   TABLE   ADDRESS 
$VECT1=INTERRUPT   DISPLACEMENT   VALUE(S) 

OUTPUTS: 

M  -  preserwed 


74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

SA 

85 

86  000000 

87  000002 

005767 

OOOOOOG 

88  000006 

100453 

89 

90  000010 

016701 

OOOOOOG 

91  OOOOU 

032761 

OOOOOOG  OOOOOOG 

92  000022 

001045 

93  00002A 

032767 

OOOOOOG  OOOOOOG 

94  000032 

001441 

95  00003A 

032767 

OOOOOOG  OOOOOOG 

96  000042 

001035 

97 

98  000044 

012700 

000000' 

99  000050 

012701 

OOOOOOG 

100  000054 

016702 

OOOOOOG 

101  000060 

010203 

102  000062 

006303 

103  000064 

006303 

104 

105 

106 

107 

108 

109 

no 

111  000066 

016710 

OOOOOOG 

112  000072 

062120 

113  000074 

012720 

OOOOOOG 

114  000100 

005302 

115  000102 

1.6 

117  000104 

001371 

118 

119 

120  000112 

121 

122 

123 

124 

125 

126 

127 

128 

129  000130 

STMVCT; 


10$: 


12$: 
14$: 


:SAVRG  <R4> 

TST  SFLAGI 

BMI  15$ 

MOV  $PDVA,R1  ; 

BIT  #ZF.PSE,Z.FLG(R1) 

BNE  15$ 

BIT  #FL.DDM,$FLAGS 

BEQ  15$ 

BIT  #FL.CHA,$FLAGS 

BNE  15$ 

MOV  #VCT8UF,R0 

MOV  #$VECT1,R1 

MOV  $NVECT,R2 

MOV  R2,R3 

ASL  R3 

ASL  R3 

.JF  DF  R$$MPL 

MOV  .MPR0,R4 

BPL  17$ 

ADD  #2,$K8AD 
.ENDC 

MOV  $ICBAD,(RO) 

ADD  (Rl)+,(RO)t 

MOV  *PR7,(R0)*- 

DEC  R2 

BNE  10$ 


SWTCHO  #VCT8UF 

.IF  NDF  R$$MPL 
PUTRC   $$VECT,R3 


.IFF 

TST 

BLT 

PUTAD 

BR 

PUTRC 

.ENDC 

SWTCHO 


.MPRO 

12$ 

$$VECT,R3 

14$ 

$$VECT,R3 


Save  reg 

ANY  ERRORS  YET? 

IF  MI,  YES  -  DO  NOTHING 

GET  PDV  ADDRESS 

;  IS  THIS  A  PSEUDO-DDM? 

BR  IF  YES 

ARE  WE  LOADING  A  DDM? 

IF  EQ,  NO  -  DO  NOTHING 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

YES  ..  DO  NOTHING 

GET  FCS  BUFFER  ADDRESS 

GET  VECTOR  DISPLACEMENT(S)  ADDRESS 

GET  NUMBER  OF  VECTORS 

TWICE 

C0^.  FRT  TO  A  BYTE  COUNT 


GET  NUMBER  OF  PROCESSORS 
IF  MULTIPROCESSOR  -  BRANCH 
SKIP  LINK  WORD 


.-CMPOI] 
;[MP01] 
; CMPOI] 


;  COPY  ICB/LINE  TABLE  ADDRESS 

;  ADD  APPROPRIATE  DISPLACEMENT 

;  SET  PRIORITY  7 

;  LOOP  SNVECT  TIMES 

;  POINT  AT  OUTPUT  BUFFER 

;  RE-WRITE  VECTOR(S) 

;  MULTIPROCESSOR  ? 

;  IF  NO  -  BRANCH 

;  RE-WRITE  VECTORS  (MULTIPROCESSOR) 

;  CONTINUE 

;  RE-WRITE  VECTORS 

;  POINT  BACK  AT  INPUT  BUFFER 


; CMPOI] 
; CMPOI] 
;[MP01] 
; CMPOI] 
; CMPOI] 
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112  000116 

113  000124 
IH 

115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
KO 
141 
U2 
U3 
U4 

145  000136 

146  000144 
147 

148  000152  005767  QOOOOOG 

149  000156  001424 

150  000160 

151  000200     122767 

152  000206     001010 
153 

154  000210  016700 

155  000214  012701 

156  000220 

157  000224 
158 
159 
160 

161  000230  032767 

162  000236  001402 
165  00024C 
164 
165 
166 

167  000244  032767 

168  000252  001017 


2$: 


4$: 


000040  000006G 


OOOOOOG 
000104 


005067  OOOOOOG 


OOOOOOG  OOOOOOG  5$: 


SWTCHO 
PUTRC 


#$CRAVL 
.CRAVL 


.IF  DF  R$$MPL 


#[)F.DAS,$DFLAG 
4$ 

#$ICAVL 
.ICAVL 

.MPR0,R3 

4$ 

R3 

4$ 

R3,R1 

R1 

Rl 

Rl 

#$ICAVL,R1 

R3,R2 

R2 

.K6TAB,R2 

#$CPBIA 

R2,#2 

$CP8IA,$RBLCK 

Rl 

. ICAVL, *4 

2$ 


SDECPT 

5$ 

SDECPT, *D$END 

#40,$BFR+D$LNAM 

5$ 

SDECPT, RO 
*DSEND,R1 
SDEA16 
SDECPT 


BIT 
BEQ 

SWTCHO 
PUTRC 

MOV 
BLT 
DEC 
BEQ 
MOV 

ASL 
ASL 
ASL 
ADD 
MOV 
ASL 

ADD 

SUTCHI 

GETRV 

MOV 

SWTCHO 

PUTAD 

BR 

.ENDC 

SWTCHI 
SWTCHO 

TST 

BEQ 

GETRV 

CMPB 

BNE 

MOV 

MOV 

CALL 

CLR 


REWRITE  COMEXEC  IMAGES  IF  LOADED 


UPDATE  SCRAVL 

REWRITE  RSX  POOL  LISTHEAD 


D-SPACE  ENABLED 
IF  NO  -  BRANCH 


BIT 
BEQ 
CALL 


#FE.CEX,SFMASK 

lOS 

SVIMO 


REWRITE  KB  POOL 


MULTIPROCESSOR  SYSTEM 
IF  NO  -  BRANCH 
GET  NEXT  CPU  NUMBER 
IF  NO  MORE  -  BRANCH 
COPY  CPU  NUMBER 

MULTIPLY  BY  8. 


;[MP01] 

;[MP01] 
;CMP013 

.-CMPOn 
;[MPOn 

;[MP01] 
.•LMPOI] 
;LMP013 
;CMPOn 
;[MP01] 


;CMP01] 
;CMP01] 
;CHF01] 

GET  ADDRESS  OF  INTERNAL  LISTHEAD 
COPY  CPU  NUMBER  ;CMP01] 

CREATE  WORD  INDEX  ;CMP01] 


CALCULATE  CPU  BIAS  ADDRESS 

;[HP01] 

SET  BUFFER  ADDRESS 

;[MP01] 

READ  BIAS 

;CMP01] 

SET  UP  CPU  BIAS 

;[MP01] 

SET  BUFFER  ADDRESS 

; CHP01 ] 

UPDATE  LISTHEAD 

;CHP01] 

CONTINUE 

.-WPOI] 

;[MP01] 

RESET  BUFFERS 

;CMP013 

DECNET  HOME  BLOCK  ALLOCATED  ■> 

;[MP01] 

IF  NO  -  BRANCH 

; CMP01 ] 

READ  DECNET  HOME  BLOCK 

;CMP01] 

BLANK  NODE  NAME  ? 

;[MPOn 

IF  NO  -  BRANCH 

;[:mpoi] 

IF  YES  -  PSI  ONLY  SYSTEM 

;CMP01] 

GET  HOME  BLOCK  SIZE 

;tMP01] 

DEALLOCATE 

;[MP01] 

INIT  HOME  BLOCK  POINTER 


IS  COMEXEC  LOADED  ? 

NO 

YES,  THEN  REWRITE  CORE  IMAGES  TO  DISK 


OOOOOOG  OOOOOOG 


REWRITE  TRANSFER  ADDRESS  INDICATING  SUCCESS 


lOS: 


BIT 
BNE 


#V1.NSY,SVFLG1 
20S 


DID  WE  FIND  A  SYSTEM  IMAGE  FILE? 
BR  IF  NO 
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CALL 

5-71 

CEACCS 

#4-53 

GET  AD 

#4-53 

RETURN 

5-115 

\/ECDF$ 

#4-53 

5-93 


4-55 


5-101 


5-105 
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106 

107 

108 

109 

110 

111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

153 

134 

135  000000 

136 

137  000000 

138  000006 

139  000010 

140  000016 

141  000022 

142  000024 

143  000030 

144  000032 

145  000034 

146  000042 

147  000044 

148  000050 

149  000054 

150  000060 

151  000062 

152  000066 
153 

154  000070 

155  000076 

156  000102 
157 

158 


.SBTTL   SET  CEX  FUNCTION 


SNICEX  -  SET  CEX  FUNCTION  ENTRY  POINT 

THE  SAME  ENTRY  POINT  GLOBAL  IS  DEFINED  FOR  BOTH  RSX11M  AND  RSXllS 
SYSTEMS. 

INPUTS: 

ON  AN  RSX11M  SYSTEM  ONLY,  FE.CEX  IN  "SFMASK"  INDICATES 

WHETHER  CEX  IS  ALREADY  LOADED  (1)  OR  NOT  (0). 
ON  AN  RSXllS  SYSTEM,  CEX  IS  ASSUMED  TO  BE  ALREADY 

LOADED. 
LS.CXO  IN  "SNIFNC"  INDICATES  WHETHER  THE  FUNCTION  IS 

LOAD  CEX  ONLY  (0)  OR  ALSO  PERFORM  LOCAL  ON  (1). 

OUTPUTS: 

CEX  IS  LOADED,  UMR'S  ARE  LOADED,  CSR'S  ARE  CHECKED 

AND  THE  TIMERS  ARE  STARTED,  AS  NECESSARY. 
ON  RSX11M  SYSTEMS  WHERE  CEX  IS  NOT  YET  LOADED,  NTL  IS 

CALLED  TO  PERFORM  INITIALIZATION,  AND  A  "MARKED  FOR 

LOAD"  AND  "MARKED  FOR  ENABLE"  SCAN  IS  PERFORMED. 
ON  RSX11M  SYSTEMS  WHERE  CEX  IS  ALREADY  LOADED,  LOCAL 

INITIALIZATION  IS  PERFORMED. 
.  ON  AN  RSXllS  SYSTEM,  LOCAL  INITIALIZATION  ONLY  IS 

PERFORMED  (FALL  THROUGH  TO  LOCAL  INIT  CODE). 
CARRY  IS  SET  IF  LOAD  OR  INITIALIZATION  FAILED. 


$NICEX::.IF 


032777 
001040 
012767 

103421 
005767 
000261 
100415 
032767 
001402 
105267 


103403 


OOOOOOG  OOOOOOG 
OOOOOOC  OOOOOOG 

OOOOOOG 

0000006  OOOOOOG 
OOOOOIG 


10$: 


20$: 

012767  OOOOOOG  OOOOOOG  30$: 


.IF 

NDF,R$$11S 

BIT 

#FE.CEX,aFMASK 

BNE 

NTiLIN 

MOV 

*LS.CEX+LS.NTI,$NTLFC 

CALL 

SNINTL 

BCS 

20$ 

TST 

SNTLFC 

SEC 

BMI 

20$ 

BIT 

#LS.TOP,$NTLFC 

BEQ 

10$ 

INCB 

$NIFLGtl 

CALL 

FNDPDV 

CALL 

$NIMFL 

BCS 

30$ 

CALL 

$NITIM 

RETURN 

MOV 

#LX.CEX,$NTLFC 

CALL 

$N!NTL 

EMSG$R 

10 

.ENDC 


;*-THE  FOLLOWING  IS  RSX11M  CODE-* 

IS  CEX  LOADED  ALREADY? 

BR  IF  YES,  PERFORM  LOCAL  INIT 

SET  NTL  FUNCTION  CODE 

SEND  DATA  TO  NTL 

BR  ON  ERROR  (NO  NTL) 

WHAT  WAS  NTL'S  RESPONSE 

ASSUME  FAILURE 
BR  IF  BAD  RESPONSE 

COPY  TOP-LOADING  FLAG 

FROM  NTL'S  ANSWER 

TO  HIGH  BYTE  OF  $NIFLG 
FIND  NSP  PROCESSES  (ECL  8  XPT) 
PERFORM  MARKED  FOR  LOAD  SCAN 
BR  IF  LOAD  FAIL,  REMOVE  CEX 
START  THE  TIMERS  IF  NECESSARY 
RETURN  TO  MAIN  LINE  CODE 

IF  LOAD  ERROR,  REMOVE  CEX 

LET  NTL  DO  IT 

TELL  USER  AND  RETURN  W/  CARRY  SET 

;*-END  Of  RSXllM  CODE-' 
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1 

2 

3 

i, 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE 
.IDENT 


NTICSR 
/V05.00/ 


COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  Br 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  SCAN  CSR  LIST  AND  TEST  DEVICES  FOR  ONLINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-llM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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81 

82 

85 

84 

85 

86 

87 

88 

89 

90 

91  000000 

92 

93 

94 

95 

96 

97  000000 

98  000002 
99 

100 

101  OOOOOA 

102  000010 
103 

104  OOOOU 

105  000042 


176000 
002000 


.S8TTL  LOCAL  DATA 
CONSTANT  DEFINITIONS 


AREAMK 
LVLI 


=  176000 
=  2000 


AREA  BITS  MASK 
LEVEL  1  AREA 


LOCAL  DATA  (IMPURE) 
.PSECT  DATA,D 


070410 
070410 


143074 
146174 


;  LOCAL 

STORAGE 

PLDADR: 
PLDLEN: 

.IF  NDF 
.BLKW 
.BLKU 
.ENDC 

R$$11S 

1 

1 

;  NDF  R$$11S 

RCP1NM: 
RCP2NM: 

.RAD50 
.RAD50 

/RCPI../ 
/RCP2../ 

LONACP: 
ASSIGN: 

RUNS 
ALUNS 

NETACP 1 

2,NS,0 

PLD  DATA  BASE  ADDRESS 
LENGTH  OF  THE  PLD  DATA  BASE 


;  ROUTING  CONTROL  PROGRAM  (LEVEL  1) 
;  ROUTING  CONTROL  PROGRAM  (LEVEL  2) 

.-DIRECTIVE  TO  REQUEST  NETACP 
.•ASSIGN  LUN  2  TO  NS: 
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CREf   OA.OO 


SYMBOL  VALUE 


T$T5 

T$T6 

JBMPR 

UISARO 

UISAR1 

U.CW3 

Xt$MCB 

ZF.COU 

ZF.DOM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INl 

ZF.<MX 

ZF.LLC 

ZF.LMC 

ZF.MAN 

ZF.MFL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 


000030 
000032 
=  170200 
=  177640 
=  177642 
OOOOU 
=  ****** 

=  001000 
=  000001 
=  004000 
=  000002 
=  100000 
=  OAOOOO 
=  000020 
=  OOOOOA 
=  000100 
=  020000 
=  000010 
=  OOOAOO 
=  000040 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 
=  140000 
000014 
000016 


REFERENCES 

#5-71 
#5-71 
#5-66 
#5-66 
#5-66 

8-174 

5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 


5-70 


Z.DSP 

000000 

#5-70 

5-70 

Z.FLG 

000010 

#5-70 

Z.LEN 

=  000016 

#5-70 

Z.LLN 

000006 

#5-70 

8-158 

Z.MAP 

000020 

#5-70 

Z.NAM 

000004 

#5-70 

Z.PCB 

000012 

#5-70 

Z.SCH 

000007 

#5-70 

SDBECL 

—   ****** 

GX 

8-144 

8-270 

SDBXPT 

-   ****** 

GX 

8-142 

8-196 

$ERR11 

000052 

RG 

#7-112 

8-297 

$ERR15 

000142 

RG 

#7-113 

8-152 

8-192 

$ERR17 

000202 

RG 

#7-114 

8-295 

$ERR18 

000256 

R 

#7-115 

8-231 

8-296 

$ERR19 

000316 

RG 

#7-116 

8-195 

SHEADR 

=   ****** 

GX 

9-320 

$MUL 

=      ****** 

GX 

8-206 

SNIERR 

-   ****** 

GX 

7-112 

7-113 

7-114 

tNILON 

000000 

RG 

#8-140 

SNIMFE 

=  ****** 

GX 

8-276 

INIXPT 

=    ****** 

GX 

8-154 

$$$GLB 

-  ****** 

6-104 

6-105 

$$$T1 

=  000002 

#6-104 

6-104 

6-104 

$$$T2 

=  000046 

R 

#6-105 

6-105 

8-294 


7-115 


7-116 


NTILON 
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ACTCIR 

ATSACL: 

AT$ADN= 

AT$AUP= 

AT$CYC= 

AT$LV1= 

AT$LV2= 

AT$NEX= 

AT$UP  = 

ASCIR 

ASLEN 

A$N1D 

A$TM 

A$TMI 

ASTSZ 

ASTYP 

A$$CHK= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

CB.CCS= 

CB.DDH= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT  = 

CC.LLC= 

CEACC  = 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR= 

CF.L8  = 

CF.LIN= 

CF.SOM= 

CF.SVN^ 

CF.TRN= 

CM.C1R= 

CM.FHT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 


000004R 

000100 

000040 

000020 

OOOOOA 

000002 

000001 

000200 

000010 

000003 

OOOOOA 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000002 

000040 

000020 

OOOOOA 

000010 

000100 

000001 

«♦****  GX 


000200 

*«♦»*»  GX 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000002 

100000 

000002 

000000 

000001 


CM.XL0= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PS1= 

CP.XCF= 

CP.2FR= 

CS.AB0= 

CS.BRO= 

CS.BUF= 

CS.rES: 

CS.CHN= 

CS.CMP= 

CS.DCR= 

CS.DEF= 

CS.DEV= 

CS.DIS= 

CS.ENA= 

CS.ENB= 

CS.ERR= 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CTLNUM 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.6ID 

C.BUF 

C.BUF1 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 

C.FLGl 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 


000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000003R 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 


C.STS 

000012 

E$NCR 

000034 

FS.SPW= 

040000 

C.URM 

177776 

E$NCS 

000036 

FS.STM= 

000000 

C.XACP 

000004 

E$NIC 

000044 

FS.STP= 

002000 

C.XID 

000035 

E$NLEN 

000050 

FS.STR= 

001000 

C.XLEN 

000044 

ESNLLA 

000012 

FS.TRM= 

003000 

C.XPLI 

000040 

ESNLNK 

000000 

FS.WLB= 

0019S5 

C.XPT 

000034 

E$NML 

000040 

FS.XKL= 

002000 

C.XSVC 

000042 

ESNMR 

000024 

FS.X0F= 

010000 

C.XTC 

000037 

E$NMS 

000030 

FS.X0N= 

007000 

C.X25 

000036 

ESNNOD 

000002 

FS.ZER= 

002000 

DECPT  = 

******  GX 

ESNRT 

000042 

F$$LVL= 

000001 

DLMSET 

000772R 

ESNRTP 

000005 

G$$TPP= 

000000 

D$AMXC 

000072 

ESNSEG 

000010 

G$$TSS= 

000000 

OSAMXH 

000074 

ESNTIM 

000046 

G$$TTK= 

000000 

DSANN 

000000 

ESNUSE 

000004 

G$$WRD= 

000000 

DSBRPR 

000102 

ESSTRT 

000006 

HF$DLM= 

000002 

DSBRTM 

000100 

E$$XPR= 

000000 

HF$GWY= 

000010 

DSDELF 

000045 

FC.CCP= 

000020 

HF$HOS= 

000004 

DSDELW 

000046 

FC.CTL= 

000006 

HF$XDF= 

000020 

D$END  = 

000104 

FC.KCP= 

000016 

H$CUG 

000010 

D$FN8 

000034 

FC.KIL= 

000004 

HSDST 

000012 

DSHJOR 

000024 

FC.MAN= 

000024 

H$D29 

000014 

DSHOST 

000022 

FC.HLD= 

000026 

H$FLG 

000000 

DSINAC 

000044 

FC.PCT= 

000030 

HSGLEN 

000104 

DSINCT 

000042 

FC.PWR= 

000022 

H$GLT 

000044 

D$IPL 

000051 

FC.RCE= 

000002 

HSGNAM 

000050 

D$LID 

000020 

FC.RCP= 

000014 

H$GNHL= 

000020 

DSLNAM 

000006 

FC.TIM= 

000010 

H$GPT 

000046 

DSLNUM 

000014 

FC.XCP= 

000012 

HSHITS 

000034 

D$LST 

000047 

FC.XME= 

000000 

HSHLEN 

000044 

DSMAXC 

000064 

FNDPDV= 

******  GX 

H$LBDA 

000070 

DSMAXH 

000066 

FS.AST= 

000000 

HSLBDN 

000072 

DSMAXV 

000070 

FS.CIB= 

002000 

HSLDTE 

000002 

D$MLL 

000040 

FS.CRA= 

001000 

H$LEN 

000042 

DSMNOD 

000041 

FS.DIS= 

013000 

HSLOTS 

000032 

D$NA 

000062 

FS.DVC= 

001000 

HSNETW 

000024 

DSNBEA 

000056 

FS.ENB= 

012000 

H$NML  = 

000006 

DSNBRA 

000054 

FS.EXI= 

001000 

H$NPT 

000022 

D$NEND= 

000054 

FS.GET= 

006000 

H$PTB 

000020 

DSNLN 

000030 

FS.HLT= 

000000 

H$PVC 

000006 

0$NN 

000060 

FS.INI= 

000000 

HSRDTE 

000004 

DSOUTT 

000043 

FS.KIL= 

000000 

HSRNU 

000042 

DSRETF 

000050 

FS.LCL= 

100000 

H$SVC 

000036 

D$RNN 

000002 

FS.LTM= 

001000 

H$TRB 

000016 

DSRTMR 

000076 

FS.MNT= 

004000 

HSXAVL 

000100 

DSSEG 

000036 

FS.MSN= 

014000 

HSXBIA 

000074 

0$SER 

000032 

FS.REA= 

001000 

H$X29C 

000040 

DSSQRL 

000052 

FS.RET= 

000000 

I$$RAR= 

000000 

D$$BUG= 

177514 

FS.REZ= 

003000 

I$$RDN= 

000000 

D$$ISK= 

000000 

FS.RLB= 

002000 

KISAR6= 

******  GX 

D$$L11= 

000001 

FS.RNG= 

011000 

KSAR6  = 

******  GX 

D$$YNC= 

000000 

FS.RST= 

000000 

K$$CNT= 

177546 

D$$YNM= 

000000 

FS.RTN= 

001000 

K$$CSR= 

177546 

ENAC 

000074R 

FS.SET= 

005000 

K$$LDC= 

000000 

ENALIN 

000610R 

FS.SFC= 

005000 

K$$TPS= 

000074 

E$NBR 

000014 

FS.SFR= 

006000 

LDSLP  = 

000000 

ESNBS 

000020 

FS.SFS= 

004000 

LF.ACT= 

100000 

NTIMFE  -  DO  MAR<ED-FOR-ENABLE 
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89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110  000000 

111  000000 

112  OOOOOA 

113  000010 

114  000012 

115  OOOOU 

116  000022 

117  000024 

118  000032 

119  000036 

120  000040 

121  000046 

122  000054 

123  000060 

124  000062 

125  000066 

126  000070 

127  000076 
128 

129  000104 


.S8TTL  HARKED  FOR  LOAD  SCAN 

SNIMfL  -  PERFORM  'MARKED  FOR  LOAD'  SCAN 

SCAN  THE  COMMEXEC  DATABASE  TO  DISCOVER  WHICH  PROCESSES  AND 
LINES  HAVE  THE  'MARKED  FOR  LOAD'  ATTRIBUTE.  REQUEST  THE  NETWORK 
LOADER  (NTL)  TO  LOAD  ALL  LINES  AND  PROCESSES  SO  MARKED. 

INPUTS: 

SSLTTA  =   CONTAINS  ADDRESS   OF    FIRST   SLT 

SSLTNM  =   CONTAINS  NUMBER  OF    SLT'S 

SPDVTA  =   CONTAINS   ADDRESS   OF    FIRST  PDV 

SPDVNM  =   CONTAINS  NUMBER  OF    PDV'S 

NF.TOP  IN  "SNIFLG"  INDICATES  BOTTOM  UP    (0)    OR   TOP   DOWN    (1)    LOAD 

OUTPUTS: 

LINES  AND  PROCESSES  ARE  LOADED  AS  REQUIRED. 
RO,  R1,  R2  ARE  DESTROYED. 


017701 
017700 
012102 
001434 
132762 
001430 
012767 
105767 
001403 
052767 
016267 

103530 
005767 
100006 
016767 


OOOOOOG 
OOOOOOG 


SNIMFL: 
10$: 


000010  000010 

000002  OOOOOOG 
000001 G 

002000  OOOOOOG 
000004  000002G  20$: 


OOOOOOG 
000002G  OOOOOOG 

30$: 


MOV  aPDVTA,R1 

MOV  aPDVNM,RO 

MOV  (R1)+,R2 

BEQ  30$ 

BITS  #ZF.HFL,Z.FLG(R2) 

BEQ  30$ 

MOV  #LS.PRO,$NTLFC+LR.STS 

TST8  SNIfLG+l 

BEQ  20$ 

BIS  #LS.TOP.$NTLFC+LR.STS 

MOV  Z.NAM(R2),$NTLFC+LR.PR0 

CALL  SNINTL 

BCS  100$ 

TST  SNTLFC 

BPL  30$ 

MOV  $NTLFCtLR.PRO,$NIERA 

EMSG$R  31 

SOB  R0,10$ 


POINT  TO  PDV  INDEX  TABLE 

GET  NUMBER  OF  ENTRIES 

GET  A  PDV  POINTER 

BR  IF  EMPTY  ENTRY 

IS  PROCESS  MARKED  FOR  LOAD? 

BR  IF  NO 

SET   FUNCTION  CODE 

TOP-DOWN  ALLOCATION? 

BR   IF    NO 

MARK  THE  REQUEST  BLOCK 

SET  THE  PROCESS  NAME 

REQUEST  NTL  TO  LOAD  PROCESS 

BR  IF  NTL  NOT  INSTALLED 

WAS  NTL  SUCCESSFUL  ? 

IF  PL,  YES 
SET  THE  PROCESS  NAME 
FAILED  TO  LOAD  PROCESS  "PRO" 

NO  RETURN 
LOOP  TILL  ALL  PDV'S  HAVE  BEEN  SCANNED 
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5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

72  000000 

73  000000 
lU   000000 

75  000000 

76  000000 

77  000000 

78  000000 

79  000000 

80  000000 

81  000000 
82 


.SBTTL  MACRO  DEFINITIONS 


MACRO  CALLS 

.MCALL 
.HCALL 
.MCALL 
.MCALL 
.MCALL 


EMSG$,NTLER$,QIOW$S,EXn$S,ASTX$S,UTSE$S,WSIG$S,CLEF$S 

DIR$,CLEF$S,SETF$S,SRDA$S,RCVD$,SDAT$,RQST$,DSAR$S,£NAR$S 

CCBDF$,NHWDf$,NTLDF$,PDVDF$,SLTDF$,OPTDF$,MAP,CALLX,CALLR 

SDAT$S,EMSG$R,RCVX$,RETC,MRKT$,VECDF$ 

SC8DF$,PCBDF$,TCBDF$,SAVMAP,RESMAP 


.IF    DF      R$$MPL 
.MCALL      GiN$ 
.ENDC 


CONSTANTS  AND   OFFSETS 


NTLDFS 
CCBDFS 
OPTDFI 
PDVDFS 
SLTDFS 
NHWDFS 
PCBDFS 
SCBDFS 
TCBDFS 
VECDFS 


>,<=>, NTLSVM 


NTL  REQ.  BLOCK  AND  S/MBOLS  (GLOBALLY) 

CCB  OFFSETS 

COMM/EXEC  OPTIONS  WORD 

PDV  OFFSETS 

SLT  OFFSETS 

HARDWARE  OFFSETS 

PARTITION  CONTROL  BLOCK  OFFSETS 

UMR  BLOCK  0,D 

TCB  OFFSETS 

VECTOR  BLOCK  OFFSETS 


NTINIT  MACRO 
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568 

.SSTTL 

FIND  PDV  I 

NDICE 

S  C 

f  NSP  F 

ROCESSES  (ECL  AND  XPF) 

569 

570 

FNDPDV  -  FIND 

PDV  INDICES  OF 

NSF 

PROCESSES  (ECL  AND  XPT) 

571 
572 

SCAN 

THE  PDV 

INDEX  TABLE 

FOR 

PROCESSES 

WITH  THE  NAMES  'ECL'  AND  'XPT' 

573 
57A 
575 

AND 

;AVE  THEIR  RESPECTIVE  PDV 

INDICES  AND  DATA  BASE  ADDRESSES. 

INPUTS: 

576 

NONE 

577 

578 

OUTPUTS: 

579 

$N1ECL 

=  ECL  PDV  I 

NDEX 

OR 

ZERO 

580 

$DeECL 

=  ADDRESS  OF  ECL 

'S 

ODB  OR 

ZERO 

581 

$N1XPT 

=  XPT  PDV  I 

NDEX 

OR 

ZERO 

582 
583 

. 

SDBXPT 

=  ADDRESS  OF  XPT 

'S 

DDB  OR 

ZERO 

584 

585  000450 

005067 

000000' 

"NDPDV 

::CLR 

$N]ECL 

ASSUME  ECL  AND  XPT 

586  00045A 

005067 

000002' 

^t8 

$NIXPT 

ARE  NOT  IN  THE  SYSTEM 

587  000460 

005067 

000004' 

SDBECL 

. . . 

588  000464 

589 

590  000470 

005067 

000006' 

CLR 

SDBXPT 

... 

SWSTK$ 

20$ 

ENTER  SYSTEM  STATE 

591  000474 

012702 

017704 

MOV 

#*RECL,R2 

;LOOK  FOR  ECL'S  PDV 

592  000500 

CALL 

SPDVJD 

»     ... 

593  000504 

103413 

BCS 

10$ 

;IF  CS,  NOT  FOUND 

594  000506 

010267 

000000' 

MOV 

R2,$NIECL 

;SAVE  ECL'S  PDV  INDEX 

595  000512 

067702 

000712' 

ADD 

aPDVTA,R2 

.-POINT  INTO  PDV  INDEX  TABLE 

596  000516 

011202 

MOV 

(R2),R2 

;GET  ADDRESS  OF  ECL'S  PDV 

597  000520 

005762 

000012 

TST 

Z.PCB(R2) 

;IS  THE  PROCESS  LOADED? 

598  000524 

001403 

BEQ 

10$ 

;IF  EQ,  NO 

599  000526 

600 

601  000534 

016267 

000016  000004' 

MOV 

Z.DAT(R2) 

$D8ECL 

.-SAVE  ADDRESS  OF  ECL'S  DATABASE 

012702 

114224 

10$: 

MOV 

**fiXPT,R2 

.•LOOK  FOR  XPT'S  PDV 

602  000540 

CALL 

aPDVID 

603  000544 

103413 

BCS 

20$ 

•IF'cS,  not  FOUND 

604  000546 

010267 

000002' 

MOV 

R2,$NIXPT 

;SAVE  XPT'S  PDV  INDEX 

605  000552 

067702 

000712' 

ADD 

SPDVTA,R2 
(R2),rJ 

;POINT  INTO  PDV  INDEX  TABLE 

606  000556 

011202 

MOV 

.•GET  ADDRESS  OF  XPT'S  PDV 

607  000560 

005762 

000012 

TST 

Z.PCB(R2) 

;IS  THE  PROCESS  LOADED? 

608  000564 

001403 

BEQ 

20$ 

;1F  EQ,  NO 

609  000566 

610 

611  000574 

016267 

000016  000006' 

MOV 

Z.DAT(R2) 

$D8XPT 

.•SAVE  ADDRESS  OF  XPT'S  DATABASE 

20$: 

RETURN 
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SYMBOL   VALUE 


LX.PRO 

L.COST 

_.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPAR 

MPCSR 

MR<TEF 

M$$MGE 

M.KTEF 

NTIBSC 

NTIBSY 

NTIERB 

NTIERN 

NTIGRQ 

NTINIT 

NTIRCV 

NTIRCX 

NTIRDA 

NTIRDT 

NTIRDX 

NTISEN 

NTLPT 

N$$VCT 

PDVID 

PDVNM 

PDVTA 

PIRQ 

PMODE 

PRO 

PR1 

PR2 

PR  3 

PRA 

PR5 

PR6 

PR7 

PS 

PSIPT 

PUMR 


=  000005 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

OOOOU 

000021 

000013 

=  172100 

=  177746 

=  000001 

=  000000 

=  000002 

000224 

000212 

000243  R 

000230  R 

000060  R 


000000 
000124 
000016 
001042 
001100 
001072 
000172  RG 
000652  RG 

=   ****** 

000704  RG 
000702  RG 
000712  RG 

=  177772 

=  030000 

=  000000 

=  000040 

=  000100 

=  000140 

=  000200 

=   000240 

=  000300 

=  000340 

r  177776 
000670  RG 
000624  RG 


REFERENCES 

#5-72 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-76 
#5-77 
#5-77 
#6-108 

5-77 

6-109 

6-124 
#6-124 
#7-165 
#7-164 
#9-355 
#8-284 
#6-116 
#6-104 

8-300 

15-765 

8-299 
#6-122 
#7-234 

17-862 
#7-247 
#7-246 
#7-250 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#5-77 
#7-241 
#7-218 


6-109 


#6-125 

♦16-811 

13-669 

13-688 

9-449 

17-881 

15-763 

16-796 

#15-762 

#16-798 

9-447 

9-446 


12-592 
12-595 


9-402 


»16-812 
13-689 


#16-796 
•16-820 


12-602 
12-605 


9-426 


16-813 


•16-821 


17-854 


NTINIT 
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NTITIM 
CLlNS  - 

198 

199 

200 

201 

202 

20? 

20^ 

205 

206 

207 

208 

209 

210 

211 

212 

21? 

2H 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22^ 

225 

226 

227 

228 

229 

230 

231 

232 

233 

235 
236 
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.If  DF  R$$MPl 


J  16 


;  VNP'D  SYSTEM  IMAGE  HACK 


; [MP01 : 


THIS  ROUTINE  WILL  BE  REMOVED  FOR  NEXT  BASE  LEVEL, AFTER  A 
MORE  GENERAL  SOLUTION  IS  DESIGNED  . 

SNXHCK  -  INIT  DLX  THRU  POWERFAIL  CALL  IF  SYSTEM  IS  VNP'D 

INPUTS:  NONE 

OUTPUTS:  DLX  CALLED  AT  POWERFAIL  SYSTEM  IS  VNP'D 


SNXHCK: 


10$: 


20$: 


000001 


CMP 
BEQ 


MOV 
MOV 
MOV 
BEQ 
CMP 
BNE 

MOV 
MOV 

MOV 
MOV 
CALL 

RETURN 

.ENDC 

.END 


NTISENtS.DATN,«*RNTL 
20$ 


IS  THIS  FROM  NTL 


SWSTK$  20$ 


#"NX,R3 

aDEVHD.RO 

(RO),RO 

20$ 

R3,D.NAM(R0) 

10$ 

R0,R3 

D.UC8(R3),R5 

U.SC8(R5),R^ 

D.DSP(R3),R2 

aLDPWF 


IF  YES  -  BRANCH   (NX  POWERFAIL  COMPLETED) 

ENTER  --ERNEL  STATE 

GET  DEVICE  NAME 

GET  HEAD  OF  DEVICE  LIST 

GET  NEXT  DEVICE 

IF  END  -  BRANCH 

IS  THIS  NX  ? 

IF  NO  -  BRANCH 

SAVE  DCe  ADDRESS 

GET  UCB  ADDRESS 

GET  SCB  ADDRESS 

GET  DISPATCH  TABLE 

CALL  NX  AT  POWERFAIL  ROUTINE 
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AB 

a;.del= 

AS.'^XT- 

AS.RED= 

AS.WRT= 

AT$ACL= 

AT$ADN= 

AT$AUP= 

AT$CYC= 

AT$LV1= 

AT$LV2= 

AT$NEX= 

ATSUP  = 

ASCIR 

AlLEN 

ASNID 

A$TM 

a$tm: 

ASTSZ 

ASTYP 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A.ACC 

A. IOC 

A.LGTH= 

A.LNK. 

A.MPCT 

A.NAM 

A.PCB 

A.PCBL 

A.PRI 

A.  Put) 

A. REM 

A.STAT 

A.TCB 

A.TCBL 

A.UCB 

BLOCK 

CLQRFM= 

COUNT 

'"SRUNL 

i$$CKP= 

C$$ORE= 

C$SRSH= 

DDMAC 

DEAECL 

DEAXPT 

DEVEC 

DLCAC 

DSIZE  = 

C$AMXC 

DSAMXH 

D$ANN 

DSBRPR 

DSBR'M 


*»♦•*•  GX 

000010 

000004 

000001 

000002 

000100 

OOOOAO 

000020 

000004 

000002 

000001 

000200 

000010 

000005 

000004 

000000 

000003 

000002 

cooooo 

000002 
000000 
000000 
000000 
000000 
000020 
000003 

oooou 

000000 

00001 1 

000002 

000012 

000000 

000002 

000010 

000012 

000010 

000004 

000006 

000010 

000012R 

**«•♦»  GX 

0001 16R 

003440R 

000000 

000400 

177564 

0001 22R 

001226R 

000564R 

OOOOOOR 

0001 20R 

'*♦»♦»  GX 

000072 

00C074 

000000 

000102 

000100 


DSDELF 

DSDELW 

D$END  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAC 

DSINCT 

D$IPL 

DSLID 

DSLNAM 

DSLNUM 

DSLST 

DSMAXC 

DSMAXH 

DSMAXV 

DSMLL 

OSMNOD 

D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

D$NLN 

0$NN 

DSOUTT 

DSRETF 

D$RNN 

OSRTMR 

DSSEG 

DSSER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$1.YNM= 

D.DSP  = 

D.NAM  = 

D.PCB  = 

002  ERRA 
ERR44 

002  ERR77 
E$NBR 
E$NBS 
ESNCR 
E$NCS 

002  ESNIC 
ESNLEN 
ESNLLA 
ESNLNK 

002  E$NML 
E$NMR 

e$nm:. 

ESNNOD 
ESNRT 
ESNRTP 
EtNSEG 


000045 
000046 
000104 
000034 
000024 
000022 
000044 
000042 
000051 
000020 
000006 
000014 
000047 
000064 
000066 
000070 
000040 
000041 
000062 
000056 
000054 
000054 
000030 
000060 
000043 
000050 
000002 
000076 
000036 
000032 
000052 
177514 
000000 
000001 
000000 
000000 

******  QX 

******  GX 

******  GX 

001606R 

003126R 

003664R 

000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 


ESNTIM 

E$NUSF 

ESSTRT 

E$$XPR= 

FATAL  = 

FE.CEX= 

FF.ADD= 

FF.CIR= 

FF.CON= 

FF.FIL= 

FF.HST= 

FF.L1N= 

FF.MOD= 

FF.MON= 

FF.MSK= 

FF.PRT= 

FF.QUL= 

FF.fiEM= 

FLT 

FLn6 

FL.PX1= 

FL.PX2= 

FNDADD 

F$$LVL= 

F.ADD 

F.CEV 

F.CIR 

F.CLS 

F.EVT 

F.FLG 

F.LEN 

F.LIN 

F.LNK 

F.MOD 

F.NRBD= 

F.REM 

F.RSJZ= 

F.SEV 

F.URBD= 

GETIND 

GETPDV 

G$$TPP=: 

G$$TSS= 

G$$TTK= 

G$$WRD= 

IC8LK 

ICBSAV 

ICBSC 

ICBSZ 

I$$RAR= 

I$$RDN= 

KMCB 

K$$CNI-- 

K$$CSR= 

K$$LDC= 

K$$TPS= 

K.CSR 


000046 

K.PRI 

000000 

N$GTM 

000015 

000004 

K.VCT 

000001 

N$HC1 

2999^? 

000006 

LD$LP  = 

000000 

N$HC2 

000056 

000000 

LF.ACT= 

*****  ■ 

GX 

NSHIGH 

000033 

******  GX 

LF.ENA^ 

****** 

GX 

NSLLT 

000026 

******  GX 

LF.RDY= 

****** 

GX 

N$LLTM 

000024 

000020 

LF.UNL= 

****** 

GX 

N$LVC 

000036 

000040 

L$$ASG= 

000000 

N$LV1 

000002 

000001 

L$$DRV= 

000000 

N$LV2 

000010 

000002 

L$$P11= 

000001 

NSMBXQ 

000050 

040000 

L$$11R= 

000000 

NSMHCI 

000036 

000010 

L.CTL  = 

****** 

GX 

N$MHC2 

000044 

000100 

L.DDM  = 

****** 

GX 

N$PLD 

000016 

000004 

L.DDS  = 

****** 

GX 

NSPLLT 

000030 

000077 

L.DLC  = 

****** 

GX 

N$PRI 

000076 

000200 

L.DLM  = 

****** 

GX 

NSROAI 

000022 

000370 

L.DLS  = 

****** 

GX 

N$R0A2 

000030 

100000 

L.FLG  = 

****** 

GX 

NSRTMX 

000014 

005242R 

L.KRBA= 

*****♦■ 

GX 

NSRTMl 

000014 

005242R 

M$$CRB= 

000124 

N$RTM2 

000015 

******  GX 

M$$CRX= 

000000 

NSRTI 

000000 

******  GX 

M$$FCS= 

000000 

N$RT2 

000006 

0021 7'.  R 

M$$MGE= 

000000 

N$SLA 

000016 

OOOOOI 

M$$NET= 

000000 

NSSNOD 

000012 

000C16 

H$$OVR= 

000000 

NSTCTL 

000112 

000030 

M.BFVH 

000011 

N$TIM 

000004 

000024 

M.BFVL 

000012 

N$TLC 

000100 

000002 

M.LGTH= 

000014 

N$TNC 

000114 

000004 

H.LNK 

000000 

N$TRC 

003106 

000014 

M.UHRA 

000002 

NSTTCB 

000110 

000016 

M.UMRN 

000004 

N$VCB 

000010 

000020 

H.UMVH 

000010 

N$VER 

000066 

000000 

M.UMVL 

000006 

NSXLE.M 

000124 

000022 

NF$BLK= 

000100 

N$$ACC= 

000001 

******  GX 

NF$DM0= 

000010 

N$$BUF= 

000001 

000026 

NF$HOU= 

000040 

N$$LDV= 

000001 

******  GX 

NF$RST= 

000002 

N$$MCP= 

000001 

000004 

NF$SCN= 

000020 

N$$MLL= 

000001 

******  GX 

NF$SHU= 

000004 

N$$MOV= 

000010 

000522R 

NF$TIM= 

000200 

N$$NCT= 

000001 

0021 50R 

NSITAB 

000130F 

002  N$$PEM= 

000001 

000000 

NTIR 

000124f 

002  OF.PRO= 

000040 

000000 

NSACQ 

000000 

OF.RLU= 

000100 

000000 

NSACTL 

000032 

OF.SMC= 

000200 

000000 

NSADJI 

000072 

O.FLG 

000003 

000150R 

002  N$ADJ2 

000074 

O.LEN 

000012 

000174R 

002  NSCACH 

000062 

O.LNK 

000000 

003132R 

NSCIR 

000034 

O.MXC 

000004 

0001 76R 

002  M$CRC 

000120 

O.NAM 

000006 

000000 

N$DLA 

000020 

O.TYP 

000002 

000000 

NSDLY 

000014 

PF$BLK= 

020000 

000114R 

002  NSELEN 

000054 

PF$CLC= 

010000 

177546 

N$ENC 

000042 

PF$DLM= 

1 00000 

177546 

NSERRC 

000022 

PF$EIP= 

000002 

000000 

N$FLG 

000005 

PF$ENB= 

000001 

000074 

NSFNC 

000006 

PFSFA  = 

004000 

000002 

NSGENQ 

000052 

PF$FM1= 

000100 

VUNL  -  vN!- 
Symbol  tab' 
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VUNPSI  -  VNP  UNLOAD  ROUTINES  FO  MACRO  V05.03b  Wednesday  17-Jul-85  12:U 
Table  ot  coPitents 

DEFINITIONS 
SYMBOL  DEFINITIONS 
DATA 

-  Unload  PSl  data  bases 

-  Deallocate  PVC  name  blocks 

-  Deallocate  CUG  blocks 

-  Deallocate  destination  descriptors 

-  DEALLOCATE  LOCAL  DTE  BLOCK 

-  DEALLOCATE  PORT  TABLE  AND  CIRCUIT  BLOCKS 
DEALLOCATE  X.29  DATA  BLOCK 
DEALLOCATE  TRACE  DATA  STRUCTURES 
Deallocate  PSV  data  structures 

-  DEALLOCATE  LIST  OF  DATA  BLOCKS 


s- 

52 

MACRO 

6- 

86 

LOCAL 

1- 

98 

LOCAL 

8- 

105 

SXPSI 

9- 

158 

DEAPVC 

10- 

205 

DEACUG 

n- 

249 

DE^DST 

\7- 

308 

XLDTE 

1^ 

570 

XPORT 

u- 

420 

XX29  - 

1S- 

4A6 

XTRA  - 

16- 

490 

XPSV  - 

1/- 

522 

DEALST 

CTDOOn 
[TD0013 
[TD0013 
[TD001] 


;[TD001] 
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VUNPSl  -  VNP  UNLOAD  ROUTINES  fO  MACRO  V05.03b  Wednesday  17-Jul-85  12:U 
XX29  -  DEALLOCAIE  X.29  DATA  BLOCK 


Page  14 


420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
s  ,0 
4^1 
432 
433 
434 
455 
436 
437 
438 
439 
440 
441 
442 
443 
444 


.SBTTL   XX29  -  DEALLOCATE  X.29  DATA  BLOCK 

I- 
XX29  -  DEALLOCATE  X.29  DATA  BLOCK 

INPUTS 

NONE 

OUTPUTS 

RO,  R1,  R2  DESTROYED 

THE  X.29  DATA  BLOCK  IS  DEALLOCATED 


001476  016701  OOOOOOG 

001502  062701  000040 

001506 

001524  016700  OOOOOOG 

001530     001410 

001532  005067  OOOOOOG 

001536 

001542  012701  000016 

001546 

001552 


XX29: 


10$: 


MOV 

$PSIPT,R1 

ADD 

#H$X29C,R1 

GETRV 

Rl,#2 

MOV 

SBFR.RO 

BEQ 

10$ 

CLR 

$8FR 

PUTRC 

MOV 

#Q$LEN,R1 

CALL 

$DEA16 

RETURN 


POINT  TO  HOME  BLOCK 

POINT  TO  X.29  BLOCK 

READ  IN  X.29  BLOCK  ADDRESS 

GET  X.29  BLOCK  ADDRESS 

IF  EQ,  NOTHING  TO  DO 

FORGET  POINTER 

REWRITE  UPDATED  POINTER 

GET  SIZE  OF  BLOCK 

DEALLOCATE  IT 

AND  RETURN 
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XTRA  -  DEALLOCATE  TRACE  DATA  STRUCTURES 
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150  000136 

131  OOOUO 

132 

133 

13A 

135 

136 

137 

138 

139 

KO 

Kl 

U2 

U3 

1A4 

145 

K6 

U7 

H8 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 


15$: 


17$: 


20$: 


22$: 

25$: 
27$: 


30$: 


40$: 


RESRG 
RETURN 

.IF  DF 

SAVRG 

MOV 

MOV 

ASL 

SWTCHI 

ADD 

GETRV 

MOV 

SU8 

SUB 

BLT 

MOV 

ADD 

SWTCHI 

GETRV 

BIT 

8EQ 

BR 

lOT 

ADD 

MOV 

BEQ 

MOV 

SIC 

BIC 

SWAB 

ASR 

ASR 

ASR 

ASL 

MOV 

MOV 

ADD 

GETRV 

MOV 

CMP 

BEQ 

GETAD 

MOV 

BR 

ADD 

RESRG 

CALLR 

lOT 

.ENDC 


K  A 

9-Jun-85  03:12  Page  6-1 

<R4> 

Restore  reg 

R$$MPL 

<R0,R1,R2,R3> 

SAVE  REG'S 

CMP01] 

$SLTA,R5 

GET  SLT  ADDRESS 

CMP01J 

L.KRBA(R5),R5 

GET  KR8  ADDRESS 

CMP01] 

R4 

CONVERT  CPU  NUMBER  TO  WORD  INDEX 

[MP01] 

#KRBB 

SET  INPUT  BUFFER  ADDRESS 

CMP01] 

#K;.PRM,R5 

BACK  OFF  ADDRESS  TO  START  OF  KRB 

[MPOn 

R5,#$KRBLN 

READ  KRB 

CMP01] 

#KR88,R5 

GET  INTERNAL  ADDRESS  OF  KRB 

CMP01] 

#K.PRM,R5 

ADJUST  ADDRESS  TO  OFFSET  0 

CMP01] 

#2,R4 

ADJUST  CPU  NUMBER 

[MP01] 

22i 

IF  NO  MORE  -  BRANCH 

[MP01] 

.URMTB,R3 

GET  UNIBUS  RUN  CONTINUITY  TABLE  ADR. 

[MPOi: 

R4,R3 

POINT  TO  CORRECT  CPU  ENTRY 

CMP01] 

#$BFR 

SET  INPUT  BUFFER 

CMP01] 

R3,#2 

READ  UNIBUS  RUN  CONNECTIVITY  ENTRY 

[MP01] 

K.URM(R5),$BFR 

CONTROLLER  ON  THIS  CPU  ? 

[MP01 ] 

2CI 

IF  NO  -  BRANCH 

CMPOI] 

25$ 

IF  YES  -  CONTINUE 

CMPOI] 

DIDN'T  FIND  UNIBUS  RUN 

CMPOI ] 

#K.PRM,R5 

POINT  AT  KB  ADDRES/2 

CMPOI ] 

{R5),r5 

GET  NEXT  KB 

CMPOI] 

40$ 

IF  NO  KB  -  BRANCH 

CMPOI] 

R5,R2 

COPY  ICB/2  ADDRESS 

CMPOI] 

#7?77, R2 

GET  CPU  NUMBER 

CMPOI] 

R2,R5 

CLEAR  CPU  NUMBER 

CMPOI] 

R2 

PLACE  CPU  NUMBER  IN  LOWER  BITS 

CMPOI ] 

R2 

CMPO 1 ] 

R2 

CMPOI] 

R2 

CMPOI] 

R5 

CREATE  ACTUAL  KB  ADDRESS 

CMPOI] 

R5,$ICBAD 

COPY  KB  ADDRESS 

CMPOI] 

.K6TAB,R3 

GET  CPU  PARTION  BIAS  ADDRESS 

CMPOI] 

R2,R3 

GET  CORRECT  CPU  ENTRY 

CMPOI] 

R3,#2 

READ  CPU  PARTITION  BIAS 

CMPOI] 

$8FR,$RBLCK 

SET  UP  FOR  BIAS  ADDRESSING  ACCESS 

CMPOI] 

R2,R4 

CORRECT  CPU  ? 

CMPOI] 

30$ 

•  IF  YES  -  BRANCH 

LMP01] 

R5,#2 

•  READ  FIRST  WORD  OF  NEXT  KB 

CMPOI] 

#$BFR,R5 

■  SET  UP  INTERNAL  BUFFER  ADDRESS 

•CMPOI] 

27$ 

•  CONTINUE 

CMPOI] 

#2,$ICBAD 

■  SKIP  PAST  LINK  POINTER 

•CMPOI] 

<R3,R2,R1,R0> 

;  RESTORE  REG'S 

■CMPOI] 

10$ 

;  CONTINUE 

•CMPOI] 

;  NO  KB  ?? 

•CMPOI] 
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169  00025'. 

170  000262 

171  000270 

172  00027/; 
173 

17A 

175  000300 

176 

177 

178 

179 

180  000306 

181 

182 

183 

184  000312 

185 

186  000320 

187  000330 
188 

189 

190 

191  000332 

192 

193 

194 

195 

196  000340 

197  000344 
198 

199  000354 

200  000425 
201 

202 
203 


012767 
012767 
005067 


176000  OOOOOOG 
000002G  OOOOOOG 
OOOOOOG 


#-<2*512.>,$RADDR 

*L$e8LK+2,$RSIZE 

$R8LCK 


016767  OOOOOOG  OOOOOOC 


MOV 
MOV 
CLR 
GETRC 


.IF  NDF  R$$MPL 

MOV     $XFRAD,$BFR+L$BXFR 

.IFF 

MOV     $XFRSV,$BFR+L$8XFR 

.ENDC 


016767 
103403 


CALL  SPdTRD 

CLOSE  SYSTEM  IMAGE  FILE 

OOOOOOG  OOOOOOG  50$:    MOV  $RSIZ,$RSIZE 

CLOSES  #SVSFDB 

BCS  110$ 

;  SCRAM 

50$:    EXITSS 


SET  UP  ADDRESS 
REREAD  LABEL  BLOCK 
NO  BIAS 


SET  PROPER  TRANSFER  ADDRESS 


;  REWRITE  TRANSFER  ADDRESS 


RESTORE  ORIGINAL  RECORD  SIZE 


;[MP013 
;CMP01] 


012746  000332' 


000001 


ERRORS 


110$: 


REPORT  ERROR  AND  EXIT 


MOV  #50$, -(SP) 

ERRPT$  ERR1,$ER0UT 

ERMSGS  <FaUed  to  close  system  image  file  (  !!E  ).> 

ERSLK$  ERR1,<SrSFDB+F.ERR> 


.END 


VXIT  -  VNP  EXIT  ROUTINES 
Symbol,  table 
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^«FILE>MD«*VXPR 


vv 

vv 

XX      XX 

pppppppp 

RRRRRRRR 

vv 

vv 

XX      XX 

pppppppp 

RRRRRRRR 

vv 

vv 

XX      XX 

pp    pp 

RR 

RR 

vv 

vv 

XX      XX 

pp    pp 

RR 

RR 

vv 

vv 

XX   XX 

pp    pp 

RH 

RR 

vv 

vv 

XX   XX 

pp    pp 

RR 

RR 

\l\l 

vv 

XX 

pppppppp 

RRRRRRRR 

vv 

vv 

XX 

pppppppp 

RRRRRRRR 

vv 

vv 

XX   XX 

pp 

RR 

RR 

vv 

vv 

XX   XX 

pp 

RR 

RR 

vv 

vv 

XX      XX 

pp 

RR 

RR 

vv 

vv 

XX      XX 

pp 

RR 

RR 

vv 

XX      XX 

pp 

HR 

RR 

vv 

XX      XX 

pp 

RH 

RR 

ssssssss 

TTTTT 

TTTT 

ssssssss 

TTTTT 

nil 

ss 

r 

ss 

T 

ss 

T 

ss 

T 

ssssss 

T 

ssssss 

T 

ss 

T 

ss 

T 

ss 

T 

ss 

r 

LLLLLILLLL 

ssssssss 

T 

LLLLLLLLLL 

ssssssss 

T 

L    6 


VXPR  -  VNP  RELEASE   PROCESS   FROM  MACRO  V05.03b  Saturday  29-Jun-85   03:12     Page  4 


NTICEX  MACRO  V05.03b  Saturday  29-Jun-85  03:25 
LOCAL  INITIALIZATION 


Page  7 


K  7 


160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 


.SBTTL  LOCAL  INITIALIZATJON 


NTILIN  -  LOCAL  INITIALIZATION 

LOAD  UMR'S  AND  VALIDATE  CSR'S  AS  NEEDED 

THIS  ROUTINE  REQUIRES  THE  GLOBAL  ADDRESSES  "SNIUMR",  AND  "$NICSR" 

TO  BE  DEFINED.   ANY  OF  THESE  ROUTINES  MAV  BE  EXCLUDED  FROM 

THE  TASK  BUILD  IF  IT  IS  KNOWN  THAT  THEY  WILL  NOT  BE  CALLED  (IF 

EXCLUDED^  THE  SYMBOLS  SHOULD  BE  GLOBALLY  DEFINED  AS  FOLLOWS: 

$NIUMR=1 ?7777,  $NICSR=0).  ALSO,  ON  AN  RSXII-S  SYSTEM, 

THE  GLOBAL  "SNIDLI"  SHOULD  BE  DEFINED  (ZERO  IF  MODULE  IS  EXCLUDED). 

INPUTS: 

SNTLPT  =  ADDRESS  (BIAS)  OF  NTL  DATA  CONTROL  BLOCK 

BLOCK+2  =  ADDRESS  OF  UMR  CONTROL  BLOCK  (0  IF  NONE) 

BLOCKKCXCSfi  =  ADDRESS  (BIAS)  OF  CSR  CHECK  LIST  (0  IF  NONE) 

"SNIDLI"  IS  CALLED  TO  INIT  DOWN-LINE  LOAD  PARAMETERS  (IIS  ONLY) 

IF  BLOCK+2      IS  NON-ZERO,  "SNIUMR"  IS  CALLED 

IF  BLOCK+.CXCSR  IS  NON-ZERO,  "SNICSR"  IS  CALLED 

IF  AN  ERROR  OCCURS  IN  ANY  OF  THESE,  THE  INITIALIZATION  FAILED 

IF  THE  INITIALIZATION  SUCCEEDED,  THE  TIMERS  ARE  STARTED 

CARRY  IS  SET  IF  INITIALIZATION  FAILED 


000110 


190  0001U 

017700 

OOOOOOG 

191  000120 

017701 

OOOOOOG 

192  000124 

012002 

193  000126 

032762 

040000  000010 

194  000134 

001426 

195  000136 

005762 

000012 

196  000142 

001423 

197  000144 

016205 

000016 

198  000150 

011503 

199  000152 

006003 

200  000154 

103415 

201 

202  000156 

203  000162 

016202 

000004 

204  000166 

205  000172 

016746 

000030' 

206  000176 

010603 

207  000200 

208  000204 

005726 

209 

210  000206 

211 

212  000210 

000241 

213  000212 

005301 

214  000214 

001343 

215 

216 

NTILIN. 

:CALL 

FNDPDV 

FIND  NSP  PROCESSES  (ECL  S  XPT) 

MOV 

aPDVTA,RO 

GET  PDV  TABLE  ADDRESS 

MOV 

aPDVNM,Rl 

GET  NUMBER  OF  PDV'S 

2$: 

MOV 

(R0)+,R2 

GET  NEXT  PDV 

BIT 

*ZF.INI,Z.FLG(R2) 

PDV  NEED  INITIALIZATION  ? 

BEQ 

4$ 

IF  NO  -  BRANCH 

TST 

Z.PCB(R2) 

IF  PROCESS  LOADED  ? 

BEQ 

4$ 

IF  NO  -  BRANCH 

MOV 

Z.DAT(R2),R5 

GET  DATA  BASE  ADDRESS 

MOV 

(R5),R3 

GET  FIRST  WORD 

ROR 

R3 

HAS  PROCESS  BEEN  INITIALIZED 

BCS 

3$ 

IF  YES  -  BRANCH 

SWSTKS 

3$ 

ENTER  SYSTEM  STATE 

MOV 

Z.NAM(R2),R2 

*  GET  PDV  NAME 

CALL 

aPDVID 

*  GET  PDV  INDEX 

MOV 

INIFUN,-(SP) 

*  GET  INIT  FUNCTION  CODE 

MOV 

SP,R3 

•  GET  ADDRESS  OF  FUNCTION  CODE 

CALL 

aCLCAL 

•  DISPATCH  TO  PROCESS 

TST 

(SP)t 

♦  CLEAN  UP  STACK 

RETURN 

3$: 

CLC 

4$: 

DEC 

Rl 

COUNT  ONE  LESS  PDV 

BNE 

2$ 

.IF 

DF,R$$11S 

♦-CODE  FOR  AN  RSXilS  SYSTEM-* 

NTICEX  MACRO  V05.03b  Saturday  29-Jun-85  03:25 
LOCAL  INITIALIZATION 
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DATA 
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5^ 
55 
56 
57 
58 
59 
60 

61  000000 

62  000000 
65  000000 
64 

65 

66 

67 

68 

69  000000 

70 

71 

72 

73 

74  000000 

75  000006 
76 

77  OOOOU  000274" 

78 

79 

80 

81 

82  000016 

83 

84 

85 

86 

87 

88  000020 

89 

90 

91 

92 

93 

94  000000 


.SBTTL  DATA 

LlBRARy  MACROS 

.MCALL  DIR$,SVTK$,EMSG$,NTLER$,NHUDF$,SLTDf$,PDVDF$,SAVRG,RESRG 


NHUDF$ 
SLTDFS 
PDVDFS 


LOCAL  (IMPURE)  DATA 
.PSECT  DATA,D 


HARDWARE  REGISTER  DEFINITIONS 
SYSTEM  LINE  TABLE  OFFSETS 
PDV  OFFSETS 


DIRECTIVES  TO  ALLOW  PROGRAM  TO  TRAP  ILLEGAL  ADDRESS  USAGE  (FOR  CSR  CHECK) 


CSRENA:  SVTK$   CSRTAB.I 
CSRDIS:  SVTKS 

CSRTAB:  .WORD   CSRTRP 


;1RAP  USING  "CSRTAB"  TABLE 
.-DISABLE  INTERNAL  PROGRAM  TRAPS 

;TRAP  TO  "CSRTRP"  ON  ILLEGAL  ADDRESS 


.-SYSTEM  LINE  TABLE  ADDRESS 


WORD  TO  HOLD  SYSTEM  LINE  TABLE  ADDRRESS 
CSRSLT:  .BLKW   1 

ERROR  MESSAGES 

.ENABL  LC 

NTLERS  <:>,20,N0NE.$NIERR,$NERDN,,<Deuice  ♦  Offline> 
.DSABL  LC 

PURE  CODE  SECTION 
.PSECT 
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NTILON  -  NTINiT 
ERROR  MESSAGES 

107 
108 
109 

no 
in 

112  000052 

113  000K2 
IIA  000202 

115  000256 

116  000316 
117 
118 
119 
120 
121 
122  000000 


K     9 

'EXECUTOR  ON'  R  MACRO  V05.03b  Saturday  29-Jun-85  03:26  Page  7 

.SBITL  ERROR  MESSAGES 
ERROR  MESSAGES 


.ENABL  LC  ,,    ■   r  ■,   . 

NTLERS  <:>,11 ,NONE,$NlERR,,,<Router  Priorities  Data  Base  Allocation  Fa.lure> 
NTLERS  <:>,15,N0NE,$NIERR,,,<NS:  Assignment  Failure> 
NTLERS  <:>,17,N0NE,$NIERR,,,<Network  ACP  (NETACP)  Not  Installed> 
NTLERS  ,18,N0NE,$NIERR,. ,<PLB  Allocation  Failure> 
NTLERS  <:>,19,N0NE,SNIERR,,,<Routing  Control  Task  Not  Installed> 

.DSABL  LC 

START  OF  PURE  CODE 
.PSECT 
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NTILON  CREATED  Br     MACRO     ON  29-JUN-85   AT   03:26  PAGE   ^ 

SYMBOL    CROSS   REFERENCE  CREF        DA. 00 

SYMBOL      VALUE  REFERENCES 

.BASEB     =   UOOOO  #5-66 
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NllMFE  ■ 

-  DO  MARKED- 

-FOR-ENABLE  S 

MACRO  VO5.03b  W 

Symbol 

able 

LF.BRO= 

000^00 

NF$BLK= 

000100 

LF.BWT= 

000007 

NF$DM0= 

000010 

LF.ENA= 

002000 

NF$MOU= 

000040 

LF.LPB= 

001000 

NF$RST= 

000002 

LF.MDC= 

000100 

NF$SCN= 

000020 

LF.MFL= 

004000 

NF$SHU= 

000004 

LF.MTP= 

000020 

NF$TIM= 

000200 

LF.PAC= 

000200 

N$ACQ 

000000 

LF.RDy= 

040000 

NtACTL 

000032 

LF.REA= 

010000 

NSADJI 

000072 

LF.SER= 

000040 

N$ADJ2 

000074 

LF.TIM= 

000010 

NSCACH 

000062 

LF.UNL= 

020000 

NSCIR 

000034 

LF.X2P= 

000000 

NSCRC 

000120 

LLCRS  = 

***•♦♦  GX 

N$DLA 

000020 

LLCTA  = 

**«*••  GX 

NSDLY 

000014 

LN.CLO= 

000000 

NSELEN 

000054 

LN.DUM= 

000005 

N$ENC 

000042 

LN.LOA= 

000004 

NSERRC 

000022 

LN.LOO= 

000003 

N$FLG 

000005 

LN.OAU= 

000003 

N$FNC 

000006 

LN.OFF= 

000001 

NSGENQ 

000052 

LN.ON  = 

000000 

N$GTM 

000015 

LN.OOP= 

000004 

NSHCI 

000052 

LN.OPE= 

000001 

N$HC2 

000056 

LN.REF= 

000002 

NSHIGH 

000033 

LN.SER= 

000002 

NSLLT 

000026 

LN.STA= 

000017 

NSLLTM 

000024 

LN.SUB= 

000360 

N$LVC 

000036 

LN.TRI= 

000006 

N$LV1 

000002 

L$$ASG=: 

000000 

N$LV2 

000010 

L$$DRV= 

000000 

NSMBXQ 

000050 

L$$P11= 

000001 

NSMHCI 

000036 

L$$11R= 

000000 

N$MHC2 

000044 

L.COST 

000015 

N$PLD 

000016 

L.CTL 

000012 

NSPLLT 

000030 

L.CVA 

177776 

N$PRI 

000076 

L.DDM 

000002 

NSROAI 

000022 

L.DDS 

000004 

N$R0A2 

000030 

L.DLC 

000003 

NSRTMX 

000014 

L.DLM 

000006 

N$RTM1 

000014 

L.flLS 

000010 

N$RTM2 

000015 

L.FLG 

000000 

N$RT1 

000000 

L.KRBA 

000016 

N$RT2 

000006 

L.LEN  = 

000022 

N$SLA 

000016 

L.MPF 

000022 

NSSNOD 

000012 

L.MMST 

000020 

N$TCn 

000112 

L.NSTA 

000014 

N$TIM 

000004 

L.OWNR 

000021 

N$TLC 

000100 

L.UNT 

000013 

NSTNC 

000114 

M$$CRB= 

000124 

N$TRC 

000106 

M$$CRX= 

000000 

NSTTCB 

000110 

M$$EXT= 

000000 

N$VCB 

000010 

M$$FCS= 

000000 

NSVER 

000066 

l«I$$MGE  = 

000000 

NSXLEN 

000124 

M$$NET= 

000000 

N$$ACC= 

000001 

M$$CVR= 

000000 

N$$BUF= 

000001 

ednesday 
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-3 

N$$LDV= 

000001 

P$IPL 

000014 

SSOWNR 

000030 

N$$MCP= 

000001 

P$LCD 

000002 

SSPKSZ 

000004 

N$$MLL= 

000001 

P$LEN 

000052 

SSRCL 

000013 

N$$MOV= 

000010 

P$LST 

000000 

S$STA 

000003 

N$$NCT= 

000001 

PSNRNI 

000040 

S$TIM 

000014 

N$$PEM= 

000001 

PSOCCB 

000050 

SSTMR 

000016 

PDVTA  = 

*♦*»**  GX 

P$PFQ 

000006 

S$WND 

000006 

PF$BLK= 

020000 

PSPKSZ 

000044 

S$$WRG= 

000000 

PF$CLC= 

010000 

PSRMXI 

000016 

S$$YSZ= 

007600 

PF$DLM= 

100000 

P$RMX2 

000020 

S.COST 

000001 

PF$EIP= 

000002 

PSRPRl 

000042 

S.FLG 

000000 

PF$ENB= 

000001 

PSRTIM 

000003 

S.LEN 

000004 

PF$FAI= 

004000 

P$STA1 

000022 

S.NMST 

000002 

PF$FM1= 

000100 

P$STA2 

000023 

S . OWNR 

000003 

PF$FM2= 

000200 

P$TIM 

000010 

TMEFN  = 

000001 

PF$OFF= 

000000 

PSTSCT 

000026 

TSFLAG 

000044 

PF$RM1= 

000020 

PSTSIZ 

000024 

T$LIF 

000013 

PF$RM2= 

000040 

PSTVP 

000001 

TSLIFL 

000013 

PF$R\/R= 

000010 

P$$P45= 

000000 

TSLIFO 

S209]l 

PF$STA= 

000004 

P$$WRD= 

000000 

TSLIFS 

000013 

PF$SVC= 

040000 

3$$0PT= 

000010 

T$LIN 

000000 

PF$UP  = 

000004 

RF.CTL= 

000003 

TSLIPS 

000006 

PR$BED= 

000200 

RF.LD1= 

000040 

T$LLD 

000012 

PR$BEU= 

000100 

RF.LD2= 

000100 

TSLLDC 

000045 

PR$BRD= 

000040 

RF.T]M= 

177400 

TSLLDL 

000012 

PR$BRU= 

000020 

RF.TMO= 

000400 

TSLLDO 

000012 

PR$DWN= 

000002 

RF.UFC= 

000200 

TSLLDS 

000012 

PR$LCC= 

000010 

RF.WTD= 

000020 

TSLLEN 

000046 

PR$MOP= 

000004 

RF.WTM= 

000030 

TSLOPR 

000002 

PR$UP  = 

000001 

RF.UTS= 

000010 

TSLTCL 

000024 

PSIPT  = 

*♦*»♦*  GX 

R$$DER= 

000000 

TSLTIM 

000026 

PS$CHR= 

000016 

R$$K11= 

000001 

TSLTPR 

000014 

PS$FAI= 

000014 

R$$SND= 

000000 

TSLTPS 

000020 

PS$NTI= 

000006 

R$$11M= 

000000 

TSNAPL 

000004 

PSSOFF^ 

000000 

SF$BLK= 

000001 

T$NFE 

000000 

PS$STR= 

000002 

SF$INC= 

000002 

TSNLEN 

000010 

PS$UP  = 

000012 

SF.ACT= 

000200 

TSNNUL 

000002 

PS$VER= 

000010 

SF.ENA= 

000100 

TSNOPL 

000006 

PS$WT  = 

000004 

SF.LPB= 

000004 

TSNRNI 

000042 

PT$BRO= 

000200 

SF.MFL= 

000040 

TSNRPL 

000005 

PT$DRT= 

000100 

SF.PAC= 

000020 

TSNRUL 

000007 

PT$END= 

000004 

SF.REA= 

000010 

TSNVR 

000001 

PT$LV1= 

000002 

SF.SER= 

000001 

TSRPRl 

000040 

PT$LV2= 

000001 

SF.SVC= 

000002 

T$SVC 

000034 

PT$PH3= 

000010 

SF.UNL= 

000040 

T$T5 

000030 

PT$XAR= 

000020 

SLTMA  = 

******  GX 

T$T6 

9929J? 

PX$BLK= 

000040 

SLTNM  = 

******  GX 

T$$KMG= 

000000 

PX$DLM= 

000200 

STAADD 

OOOOOOR 

T$$MIN= 

000000 

PX$SVC= 

000100 

STANUM 

000002R 

VF$RCV= 

100000 

PSCHN 

000004 

STRT  = 

000004 

VF$XMT= 

040000 

P$CNT 

000005 

SSADSZ 

000007 

V$FLG 

000000 

P$CTR 

000034 

S$CTL 

000002 

VSLEN 

000022 

PSDRCT 

000015 

S$DTE 

000020 

V$RCV 

000002 

PSDRTR 

000036 

SSFLG 

000010 

V$XMT 

000012 

P$FLG 

000012 

SSLEN 

000032 

V$$CTR= 

001000 

P$FWD 

000030 

S$LFT 

000012 

X$$D8T= 

000000 

PSICCB 

000046 

S$LNK 

000000 

ZF.C0U= 

001000 
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131  000110 

017700 

OOOOOOG 

MOV 

132  0001U 

017704 

OOOOOOG 

MOV 

133  000120 

012401 

40$: 

MOV 

13^  000122 

052761 

004000 

000000 

BIT 

135  000130 

001501 

BEQ 

136  000132 

116102 

000002 

MOVB 

137  000136 

067"'02 

OOOOOOG 

ADD 

138  000U2 

011202 

MOV 

139  0OOH4 

052762 

002000 

000010 

BIT 

UO  000152 

001404 

BEQ 

1A1  00015^^ 

CALL 

U2  000160 

103470 

BCS 

U3  000162 

000464 

BR 

U4  0001 6A 

012767 

000005 

OOOOOOG 

50$: 

MOV 

1A5  000172 

105767 

000001 G 

TST8 

H6  000176 

001405 

BEQ 

U7  000200 

052767 

002000 

OOOOOOG 

BIS 

U8  000206 

116167 

000012 

000004G 

60$: 

MOVB 

149  0002K 

116167 

000015 

000005G 

MOVB 

150  000222 

016267 

000004 

000002G 

MOV 

151  000230 

016267 

000010 

000000" 

MOV 

152  000236 

CALL 

153  000242 

105437 

BCS 

154  000244 

005767 

OOOOOOG 

TST 

155  000250 

100031 

BPL 

156  000252 

016767 

000002G 

OOOOOOG 

MOV 

157  000260 

005067 

000002G 

CLR 

158  000264 

116767 

000004G 

000002G 

MOVB 

159  000272 

005067 

000004G 

CLR 

160  000276 

116767 

000005G 

000004G 

MOVB 

161  000304 

052767 

000040 

000000' 

BIT 

162  000312 

001003 

BNE 

163  000314 

052767 

100000 

000004G 

BIS 

164  000322 

70$: 

SAVRG 

165  000324 

EMSG$ 

166  000332 

RESRG 

167  000334 

005500 

80$: 

DEC 

168  000356 

001270 

BNE 

169  000340 

000241 

90$: 

CLC 

170  000342 

100$: 

RETURN 

,R2 
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aSLTNM.RO 

aSLTMA,R4 

(R4)+,R1 

#LF.MFL,L.FLG( 

80$ 

L.DDM(RI) 

SPDVTA,R2 

(R2),R2 

#ZF.PSE,7.FLG( 

50$ 

DLMMFL 

100$ 

80$ 

#LS.LIN,$NTLFC 

$NIFLGt1 

60$ 

*LS.TOP,$NTLFC 

L.CTL(R1),$NTL 

L.UNT(R1),$NTL 

Z.NAM(R2),$NTL 

Z.FLG(R2),PDVF 

$NINTL 

100$ 

$NTLFC 

80$ 

$NTLFCtLR.LIN 

$NIERAt2 

$NTLFC+LR.CTL, 

$NlERA+4 

$NTLFC+LR.UNT, 

#ZF.MUX,PDVFLG 

70$ 

#100000, $NIERA 

<R0> 

30 

<R0> 

RO 

40$ 


Rl) 


R2) 


tLR.STS 


+LR.STS 

FC+LR.CTL 

FC+LR.UNT 

FC+LR.LIN 

LG 


$NIERA 

$NIERA+2 

$NIERA+4 

,+4 


GET  NUMBER  OF  SVSTEM  LINES 

GET  POINTER  TO  SLT  VECTOR  TABLE 

GET  POINTER  TO  SLT  ENTRY 

IS  LINE  MARKED  FOR  LOAD? 

BR  IF  NO 

GET  THE  DDM  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

POINT  AT  PDV  FOR  DDM  PROCESS 

IS  THIS  A  DLM  CIRCUIT? 

BR  IF  NO 

SCAN  DLM  CIRCUITS  FOR  MARKED  FOR  LOAD 

BR  IF  ERROR 

SET  FUNCTION 
TOP-DOWN  ALLOCATION? 
BR  IF  NO 

MARK  THE  REQUEST  BLOCK 
GET  THE  CONTROLLER  NUMBER 
GET  THE  UNIT  NUMBER 
GET  THE  DDM  NAME 
SAVE  PDV  FLAGS 
REQUEST  NTL  TO  LOAD  PROCESS 
BR  IF  NTL  NOT  INSTALLED 
WAS  NTL  SUCCESSFUL  ? 
IF  PL,  YES 
SET  THE  DDM  NAME 
MAKE  A  NULL 
SET  CNTL  NUMBER 
MAKE  A  NULL 
SET  UNIT  NUMBER 
IS  THIS  A  MULTIPLEXOR? 
IF  NE,  YES 
DON'T  OUTPUT  UNIT  # 
SAVE  RO 

FAILED  TO  LOAD  LINE  "DEV-CTL-UNT" 
RESTORE  RO 
LOOP  TILL  DONE 

SUCCESS! 


NTIMFL 
DLMMFL 


MACRO  V05.03b  Saturda 
-  DLM  MARKED   FOR   LOAD 


I  29-Jun-85  03:27 
;CAN 
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NTINIT  MACRO 
LOCAL  DATA 

8^ 

85 

86 

87 

88  000000 

89 

90 

91 

92 

93 

9A 

95 

96 

97  000000 

98  000002 

99  000004 
100  000006 
101 

102  000010 
103 

104  000016 

105  000026 

106  000032 
107 
108 

109  000070 

110  000102 
111 

112  000120 

113  000122 
IK 
115 

116  000124 
117 

118  000134 

119  000152 

120  000164 
121 

122  000172 

123  000204 

124  000212 

125  000224 
126 

127  000226 
128 
129 
130 
131 
132 
135 
134 
135 
136 
137 
138 
139 
140 
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000001 


OOOOOOG 
000000 


.SBTTL  LOCAL  DATA 


;  LOCAL 

DATA 

* 

.PSECT 

DATA.D 

TRNVEC: 
VECLHD: 

.IF  DF 

.IF  NDF 

GINS 

.WORD 

.ENDC 

.ENDC 

RSSMPL 

RSSPRO 

GI.VECEXEVECVECLN 

0 

SNIECL: 
SNIXPT: 
SDBECL: 
SD8XPT: 

:.8LKW 
:.BLKW 
:.8LKW 
:.8LKW 

SNIERA: 

:.BLKW 

3 

NTIRCX: 
SNIRTN: 
SNIRDB: 

RCVXS 
:.BLKW 
:.BLKW 

.SNIRTN 
15. 

SNIMRK: 
SNIEVC: 

MRKTEF 
MRKTS 
:RQSTS 

=  1 
MRKTEF, 2, 2 
EVC... 

SNIAST: 
SNIPRM: 

.BLKW 
.BLKW 

1 
1 

NTIRCV: 

.IF  NDF 
RCVDS 

RSS11S 
.SNIRTN 

SNIRNL: 
SNISNL: 
SNTLFC: 

:RQSTS 
:SDATS 
:.6LKW 

NTL... 

NTL SNTLFC 

3 

NTISEN. 
SNIFNC 
NTIBSV 
NTI8SC 

:SDATS 

:.BLKW 

SDATS 

.WORD 

XXXXXX, SNIFNC 

3 

XXXXXX, NTIBSC 

IE. ACT 

SNIFL6 

:.WORD 

0 

.IFF 

;NDF  RSS11S 

.IF  DF 

SSSBAS 

NTISEN:  SDATS   XXXXXX, SNIFNC 
SNIFNC: :. BLKW   5 


;HOLDS  PDV  INDEX  FOR  ECL 

;HOLDS  PDV  INDEX  FOR  XPT 

;HOLDS  ADDRESS  OF  ECL'S  DDB 

;HOLDS  ADDRESS  OF  XPT'S  DDB 

;ERROR  REPORT  ROUTINE  ARGUMENT  WORDS 

;DIRECTIVE  TO  RCV  INTO  "SNIRTN"  OR  EXIT 
;REQUESTORS  TASK  NAME  (FOLLOW  BY  SNIRDB) 
;RCV  DATA  BLOCK  (PRECEEO  BY  SNIRTN) 

;EVENT  FLAG  FOR  MARK  TIME 
;MARK  TIME  TO  WAIT  FOR  EVL 
.■DIRECTIVE  TO  REQUEST  EVENT  COLLECTOR 

/NOTIFICATION  AST  ADDRESS 
/NOTIFICATION  AST  PARAMETER  TO  RETURN 


.-DIRECTIVE  TO  RCV  DATA  INTO  "SNIRTN" 

.-DIRECTIVE  TO  REQUEST  NTL 
.-DIRECTIVE  TO  SEND  "SNTLFC"  TO  NTL 
;NTL  FUNCTION  CODE  AND  ANSWER 

.-DIRECTIVE  TO  SEND  DATA  FROM  "SNIFNC" 
.-FUNCTION  REQUEST  SAVE  WORD 
.-DIRECTIVE  TO  SEND  DATA  FROM  "NTIBSC" 
/FAILURE  CODE.  NTI  ALREADY  BUSY 

.-FLAGS  WORD 

,-LOW  BYTE:   NON-ZERO  =  BUSY  W/  FUNCTION 

.-HIGH  BYTE:  FUNCTION-SPECIFIC  FLAGS 


.-DIRECTIVE  TO  SEND  DATA  FROM 
.-FUNCTION  REQUEST  SAVE  WORD 


"SNIFNC 


THIS  TABLE  MAPS  THE  NTINIT  ERROR  MESSAGES  TO  THE  DECIMAL  NUMBER  TO 
BE  DISPLAYED  ON  THE  LEDS  FOR  SERVER  BASE  SYSTEMS 
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K  U 


615 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62-; 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

6A1 

6'.2 

643 

64A 

615 

646 

64  7 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 


.SBTIL  ERROR  MESSAGE  PROCESSOR 


SNIERR  -  FORMAT  AND  PRINT  AN  ERROR  MESSAGE 

THIS  ROUTINE  DOES  NOT  NOW  SUPPORT  SECOND  LINE  FORMATTING  AND/OR  PRINTING 

INPUTS  • 

SNIERA  =  ARGUMENTS  FOR  ASTERISK  REPLACER  (IF  ONE  SPECIFIED) 
RO      =   ADDRESS  OF  SECOND  WORD  OF  ERROR  CONTROL  BLOCK 
BLOCK  FORMAT: 


.WORD 
.WORD 
.WORD 
.WORD 
.ASCIZ 


A 

0 

B  OR  0 

0 

/MESS/ 


ADDRESS  OF  ERROR  PROCESSOR  (SNIERR) 
ADDRESS  OF  FORMAT  STRING  (NOT  USED) 
ADDRESS  OF  ASTERISK  REPLACEMENT  ROUTINE 
ADDRESS  OF  SECOND  LINE  FORMATTER  (NOT  USED) 
ERROR  MESSAGE 


000576  010146 

000600  010246 

000602  010346 

000604  010446 

000606  010546 


OUTPUTS: 

MESSAGE  IS  PRINTED, 
RO  IS  DESTROYED 
CARRY  IS  SET 


SNIERR: :MOV  R1,-(SP) 

MOV  R2,-(SP) 

MOV  R3,-(SP) 

MOV  R4,-(SP) 

MOV  R5,-(SP) 


.IF  DF  SSS8AS 


10$: 


TST 
MOV 
MOV 
CMP 
BEO 
CMP 
BEQ 
TST 
BR 


-(RO) 

#ERRTAB,R1 

(R1)+,R2 

R2,#rABEND 

30i 

R2,R0 

20i 

(Rl)  + 

10$ 


FOUND  CORRECT  ENTRY 

20$:    MOV  (R1)+,R1 

SWSTKS  30$ 

CALL  SHALT 


END  OF  TABLE 
^0$: 

.IFF 


000610  010005 

000612  012700  000243' 


MOV 

MOV 


;DF  S$$BAS 

R0,R5 
*NTIERB,R0 


EXCEPT  FOR  SERVER  BASE  WHEN  EXEC  SHALT  ROUTINE  USED 


SAVE  R1 

SAVE  R2 

SAVE  R3 

SAVE  R4 

SAVE  R5 


POINT  TO  FIRST  WORD  IN  FORMAT  BLOCK 

POINT  TO  ERROR  TABLE 

GET  NEXT  ENTRY  IN  TABLE  (FORMAT  ADDRESS) 

END  OF  TABLE? 

BR  IF  END  OF  TABLE 

IS  THIS  THE  CORRECT  ENTRY? 

Dp  jp  yF5 

SKIP  LED  ERROR  CODE 
CONTINUE 


;GET  LED  ERROR  CODE 

ENTER  SYSTEM  STATE  TO  HALT  PROCESSOR 
JUMP  TO  ROUTINE  TO  HALT  PROCESSOR 
AND  DISPLAY  ERROR  -  NEVER  RETURNSll 


;END  OF  TABLE  -  IGNORE  ERROR 


;COPY  ADDRESS  IN  ERROR  BLOCK 
;GET  ADDRESS  OF  MESSAGE  BUFFER 
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SYMBOL 

VALUE 

REFERENCES 

PUTAST 

001222 

R 

9-443 

#17-852 

QASTT 

000632 

RG 

#7-221 

17-875 

R$$MPL 

=   ****** 

5-65 

5-77 

5-77 

5-77 

6-90 

7-206 

7-228 

8-285 

10-481 

RtSIID 

-      ****** 

5-75 

5-77 

R$$11M 
RtSllS 

=  000000 

r  ****** 

5-75 
5-75 
9-438 

6-115 
11-554 

7-189 
15-760 

8-297 
16-794 

9-356 
17-847 

9-364 

9-392 

9-408 

9-422 

R.QSTN 

=  000002 

6-110 

6-118 

R.VDTN 

=  000002 

6-116 

R.VXTN 

=  000002 

6-104 

SF.ACT 

=  000200 

#5-76 

SF.ENA 

=  000100 

#5-76 

SF.LPB 

=  000004 

#5-76 

SF.MFL 

=  000040 

#5-76 

SF.PAC 

=  000020 

#5-76 

SF.REA 

=  000010 

#5-76 

SF.SER 

=  000001 

#5-76 

SF.SVC 

=  000002 

#5-76 

SF.UNL 

=  000040 

#5-76 

SLTMA 

000646 

RG 

#7-232 

SLTNM 

000650 

RG 

#7-233 

SRSTD 

000616 

RG 

#7-215 

17-855 

SWR 

=  177570 

#5-77 

S$$8AS 

-   ******* 

7-190 
9-373 

7-190 
9-407 

7-192 
13-642 

7-192 

14-711 

7-193 
17-848 

7-193 

7-194 

7-194 

8-312 

S.COST 

000001 

#5-76 

S.DATN 

=  000002 

6-119 

6-122 

6-124 

•16-811 

•16-812 

•16-820 

•16-821 

17-854 

S.FLG 

000000 

#5-76 

S.LEN 

000004 

#5-76 

S.NMST 

000002 

#5-76 

S.OWNR 

000003 

#5-76 

TKPS 

000636 

RG 

#7-223 

TKTCB 

000630 

RG 

#7-220 

TKIOO 

000662 

RG 

#7-238 

TPS 

=  177564 

#5-77 

T1SCL 

000674 

RG 

#7-243 

T100C 

000656 

RG 

#7-236 

TIOOQ 

000660 

RG 

#7-237 

UBMPR 

=  170200 

#5-77 

UISARO 

=  177640 

#5-77 

UISAR1 

=  177642 

#5-77 

UMRPT 

000614 

RG 

#7-214 

VECLN 

=  000043 

G 

#7-252 

X$$MCB 

-      ****** 

5-75 

5-75 

ZF.COU 

=  001000 

#5-75 

ZF.DDM 

=  000001 

#5-75 

ZF.DIA 

=  004000 

#5-75 

ZF.DLC 

=  000002 

#5-75 

ZF.DVP 

=  100000 

#5-75 

ZF.INI 

=  040000 

#5-75 

ZF.KMX 

=  000020 

#5-75 

ZF.LLC 

=  000004 

#5-75 

r 
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ABTIM  = 
A$$rHK,= 

AttrPS= 

AttPRI- 
A$$IRP= 
BUFUMP= 
CLINS 
CKHD  -- 
CMODE  = 

c$$ck;p= 

C$$ORE= 

CS$RSH= 

C.AR5 

C.ASI 

C.CSTP= 

C.DST 

C.EFN 

C.LGTH= 

C.LNK 

C.MRKT= 

C.RQT 

C.RSI 

C.SCHD^ 


•«••••  GX 

000000 

000000 

000000 

000000 

172354 

000162R 

»•«•••  GX 

KOOOO 

000000 

OOOAOO 

177564 

0000  U 

000012 

000012 

000016 

000003 

000020 

000000 

000000 

000002 

000012 

000002 


C.SRC 
C.SSHT= 

c.sue 

C.SYST: 

C.SVTK^ 

C.TCB 

C.TIM 

C.UIC 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

f$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

Gt$WRD= 

I$$RAR= 

1$$RDN= 

KISAR0= 

<ISAr^6= 


OOOOU 
000004 
000012 
000006 
000010 
000004 
000006 
000016 
177514 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
172340 
172354 


K$$CNI= 
K$$C5R= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MPAR  = 
MPCSR  = 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 


177546 
177546 
000000 
000074 
000000 
000000 
000000 
00000! 
000000 
172100 
177746 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 


N$$M0V= 

N$$NCr= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO   = 

PR1 

PR2   = 

PR3 

PR4 

PR5 

PR6   = 

PR7   = 

PS 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SWR   = 


000010 
000001 
000001 
177772 
030O00 
OOOUOO 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
177570 


.  ABS.  000020 
000250 
Errors  cjetected: 


000 
001 
0 


(RW,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,CON) 


S$$WRG= 

S$$YS7= 

TIFLG 

TKPS  = 

TKIOO  = 

TPS 

T$$KMG= 

T$$M]N= 

Tl 

T1SCL  = 

T1SIN 

T100C  = 

T100Q  = 

T5 

T50IN 

U8MPR  = 

UISARO= 

UISAR1= 

V$$CTR= 

X$$DBT= 

SNITIM 

.BASEB= 


GX 
GX 


000000 

007600 

OOOOOOR 

****** 

****** 

177564 

000000 

000000 

000002 

******  GX 

0001 16R 

******  GX 

******  GX 

000001 

0001 30R 

170200 

177640 

177642 

001000 

000000 

000002RG 

140000 


♦••  Assembler  statistics 

Work   tile  reads:  0 

Work   file  writes:  0 

Size  of  »/ork  file:  10026  Words  (  40  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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PF$FM2= 

C00200 

PSFLG 

000012 

R.NAM 

PF$OFF= 

000000 

PSFWD 

000030 

SCAN 

PFtRMl= 

000020 

PSICCB 

000046 

SPARE  = 

PF$RM2= 

000040 

P$!PL 

000014 

SP.EIP= 

PF$RVR= 

000010 

PtLCD 

000002 

SP.ENB= 

Pft5TA= 

000004 

P$LEN 

000052 

SP.LOG= 

PF$5VC= 

040000 

PSLST 

000000 

SYSFDB= 

PFIUP  ^ 

000004 

PSNRNI 

000040 

S$$WRG= 

PRLTA 

000200R 

002  PtOCCB 

000050 

S$$YSZ= 

PR$BED= 

300200 

PtPFQ 

000006 

S.8MSK 

PRtBEU= 

000100 

PSPKSZ 

000044 

S.BMSV 

PR$BRD= 

000040 

PSRMXI 

000016 

S.CON 

PR$BRU= 

000020 

P$RMX2 

000020 

S.CSR 

PR$DWN= 

000002 

PSRPRI 

000042 

S.CTM 

PR$LCC= 

000010 

PtRTIM 

000003 

S.DMCS 

PR$MOP= 

000004 

PSSTAI 

000022 

S.FRK 

PR$UP  = 

000001 

P$STA2 

000023 

S.JTM 

PR.LTA: 

or 000 i 

PSTIM 

000010 

S.LriD 

PR.SEC= 

000002 

PSTSCT 

000026 

S.PKT 

PR7 

*•♦***  GX 

PSTSIZ 

000024 

S.PRI 

PS$rHR= 

000016 

P$TYP 

000001 

S.RCNT 

ps:  AI= 

000014 

P$$P45= 

000000 

S.ROFF 

PS$NT1= 

000006 

PS$URD= 

000000 

S.STS 

PS$OFF= 

000000 

P.8LKS 

000016 

S.VCT 

PS$STR= 

000002 

P. BUSY 

000024 

TSKSCH 

PSSUP  = 

000012 

P. IOC 

000003 

TS.BLK= 

PSSVER^ 

000010 

P.LNK 

000000 

TS.CKP= 

PSSWT  = 

000004 

P. MAIN 

000012 

TS.CKR= 

PS.APR= 

000007 

P.NAM 

000004 

TS.EXE= 

PS.CHK= 

010000 

P.  OWN 

000026 

TS.HLD= 

PS.CKP= 

040000 

P.PRI 

000002 

TS.MSG= 

PS.CKR= 

020000 

P.REL 

000014 

TS.NRP= 

■'S.COM= 

00C200 

P. SIZE 

000016 

TS.OUT= 

PS.DEL= 

0C0010 

P.STAT 

000030 

TS.RDN= 

PS.DRV= 

000020 

P.  SUB 

000010 

TS.RUN= 

PS.FXD= 

004000 

P.SWSZ 

000022 

TS.STP= 

PS. 1.10= 

001000 

P.TCB 

000026 

TSFLAG 

PS.NSF= 

000400 

P.UAIT 

000020 

T$LIF 

PS.OUT= 

100000 

Q$$OPT= 

000010 

TSLIFL 

PS.PER= 

002000 

RF.CTL= 

000003 

TSLIFO 

f^S.  =  IC  = 

000100 

RF.LD1= 

000040 

TSLIFS 

ps.svs= 

000040 

RF.LD2= 

000100 

rSLIN 

PT$BhO= 

0002C . 

RF.LOO= 

100000 

TSLIPS 

Pr$DR^  = 

000100 

RF.TIM= 

177400 

TSLLD 

PT$END= 

000004 

RF.TMO= 

000400 

TSLLDC 

PT$L\/1  = 

000002 

RF.WFC= 

0)0200 

TSLLDL 

PT$L7?= 

000001 

RF.UTD= 

000020 

TSLLDO 

PTtP^(3  = 

000010 

RF.WTM= 

000030 

TSLLDS 

PT$)(AR  = 

000020 

RF.yTS= 

000010 

TSLLEN 

PX$e-':  = 

000040 

RS$DER= 

000000 

TSLOPR 

PXTDLM= 

000200 

RSSKIU 

000001 

TSLTCL 

PX$SVf= 

OOO'OO 

R$$5ND= 

000000 

TSLTIM 

PtCHN 

C00004 

R$$i1M= 

000000 

TSLTPR 

P$CNT 

000005 

R.ADD 

000010 

TSLTPS 

P$CTR 

000034 

R.FLAG 

000012 

TINAPL 

P$DRC' 

000015 

R.LEN 

0000 14 

T$NFE 

PIORTR 

000036 

R.LW 

000000 

TSNLEN 

L  1 
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000002 

002266R 

000010 

000001 

000002 

000004 

****»»  gx 

000000 

007600 

177776 

177774 

000010 

000012 

000006 

000020 

000016 

000007 

000000 

000014 

000004 

177772 

177773 

000011 

000005 

006260R 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 

004000 

001000 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 


TSNNUL 

000002 

T3.NSD= 

000200 

TSNOPL 

000006 

T3.PMD= 

040000 

TSNRNI 

000042 

T3.PRV= 

010000 

T$NRPL 

000005 

T3.REM= 

9?S992 

TSNRUL 

000007 

T3.R0V= 

000040 

T$NVR 

000001 

T3.RST= 

000400 

rSRPRI 

000040 

T3.SLV= 

002000 

T$SVC 

000034 

r3.sws= 

000002 

T$T5 

00n030 

USA 

00001  OR    002 

T$T6 

.....32 

U8JAS 

000006R    002 

T$$KMG= 

000000 

UNITS 

000004R    002 

T$$MIN= 

000000 

UPTR 

0001 12R    002 

T.ACTL 

000052 

VECT 

002402R 

T.ASTL 

000016 

VF$RCV= 

100000 

T.ATT 

000062 

VF$XMT= 

040000 

T.CPCB 

000004 

VF.LI8= 

000001 

T.DPRI 

000040 

VF.SS  = 

******  GX 

T.EFLG 

000022 

V$FLG 

000000 

T.IOC 

000003 

VSLEN 

000022 

T.L8N 

000041 

V$RCV 

000002 

T.LDV 

000044 

VSXMT 

000012 

T.LNK 

000000 

V$$CTR= 

001000 

T.MXSZ 

000050 

V.ADD 

000006 

T.NAM 

000006 

V.BIAS 

000004 

T.OFF 

000066 

V.FLG 

000002 

T.PCB 

000046 

V.LEN 

000012 

T.PRI 

000002 

V.LNK 

000000 

T.RCVL 

000012 

V.PDV 

000004 

T.RRFL 

000072 

V.SIZ 

000010 

T.SAST 

000054 

XALIT8 

004660R 

T.SRCT 

000071 

XDCB 

004456R 

T.STAT 

000032 

XDLC 

000360RG 

T.ST2 

000034 

XFLTT3 

0051 50R 

T.ST3 

000036 

XKRB 

002162R 

T.TCBL 

000030 

XLIN 

001614R 

T.rio 

000057 

XLT 

005456R 

T.TKSZ 

000060 

XLT16 

005452R 

T.UCB 

000026 

..OBJTB 

004576R 

T2.AB0= 

000100 

XPRO 

0001 52P 

r2.AST= 

100000 

XREMTB 

005022R 

T2.CAF= 

000400 

X$$DBT= 

000000 

T2.CHK= 

020000 

ZDDS 

003354R 

T2.CKD= 

010000 

ZF.LLC= 

******  GX 

T2.DST= 

040000 

ZF.LMC= 

♦»***♦  GX 

T2.FXD= 

002000 

ZF.MFL= 

»*«**»  GX 

T2.HLT= 

000200 

ZF.PSE= 

******  GX 

T2.REX= 

001000 

Z.AVL  = 

******  GX 

r2.SEF= 

004000 

Z.DAT  = 

******  GX 

T2.SPN- 

000004 

Z.DSP  = 

******  GX 

T2.STP= 

000020 

Z.FLG  = 

******  GX 

T2.WFR= 

000001 

Z.NAM  = 

******  GX 

T3.ACP= 

100000 

Z.PCB  = 

******  GX 

T3.CAL= 

000100 

SADRX  = 

******  ^'t 

T3.CLI= 

001000 

SADRZ  = 

******  GX 

T3.GFL= 

000010 

$BFR  = 

*.«**»  GX 

T3.MCR= 

004000 

$8IAS  = 

******  GX 

T3.NET= 

000020 

$CCBLH= 

******  GX 
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1 

2 

3 

I, 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

13 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


.TITLE  VUNPSI  -  VNP  UNLOAD  ROUTINES  FOR  PSI 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  8E  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCF  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL 

MODULE  DESCRIPTION: 

VNP  -  PSI  UNLOAD  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  05-MAR-82 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnel-11M/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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A^6 
^A7 
^48 
AA9 
450 
451 
452 
453 
454 
455 
456 
457 
458 

459  001554 

460  001554 
461 

462  001560 

463  001564 

464  001570 

465  001606 

466  001612 

467  001614 

468  001620 

469  001624 
470 

471  001642 

472  001644 
473 

474  001650 

475  001654 

476  001670 

477  001672 

478  001674 

479  001700 
480 

481 

482  001702 

483 

484  001704 

485  001706 

486  001710 

487  001712 

488  001716 


.SBTTL  XTRA  -  DEALLOCATE  TRACE  DATA  STRUCTURES 

XTRA  -  DEALLOCATE  TRACE  STRUCTURES 

INPUTS 

NONE 

OUTPUTS 

TRACE  STRUCTURES  ARE  DEALLOCATED 


XTRA: 


CALL 


SSAVAL 


016703  OOOOOOG 

062703  000016 

016700  OOOOOOG 

001441 

005067  OOOOOOG 


016701      OOOOIOG 

010002 

061602 

026702  000004G 

001401 


000401 
060116 


MOV 

$PSIPT,R3 

ADD 

#H$TR8,R3 

GETRV 

R3,#2 

MOV 

$BfR,RO 

BEQ 

30$ 

CLR 

$BFfi 

PUTRC 

GETRV 

RO,#T$CLEN 

10$: 

SAVRG 

<R0> 

SAVRG 

<#T$CLEN> 

MOV 

T$CSIZ+$BFR,R1 

ASL$ 

6,R1 

MOV 

r6,R2 

ADD 

(SP),R2 

CMP 

T$C8UF+$BFR,R2 

BEQ 

20$ 

;**»  DEALLOCATE  NON-PO 

BR 

25$ 

20$: 

ADD 

R1,(SP) 

25$: 

RESRG 

<R1> 

RESRG 

<R0> 

CALL 

$DEA16 

30$: 

RETURN 

SAVE  ALL  REGISTERS 

GET  HOME  BLOCK  ADDRESS 

POINT  TO  TRACE  CONTROL  BLOCK  ADDRESS 

READ  IN  TRACE  CONTROL  BLOCK  ADDRESS 

GET  TRACE  CONTROL  BLOCK  ADDRESS 

BR  IF  NOT  TRACING 

CAUSE  TRACE  TASK  TO  EXIT 

READ  IN  TRACE  CONTROL  BLOCK 

SAVE  ADDRESS  OF  BLOCK 
SAVE  LENGYH  OF  SAME 

GET  SIZE  OF  BUFFER  IN  BLOCKS 

COMPUTE  SIZE  IN  BYTES 

COPY  END  POINTER 

COMPUTE  END  ADDRESS  OF  TRACE  BLOCK 

IS  BUFFER  CONTIGUOUS  WITH  CONTROL  BLOCK? 

YES,  DEALLOCATE  AS  ONE 


MERGE  TO  DEALLOCATE  CONTROL  BLOCK 

INCLUDE  LENGTH  OF  BUFFER  IN  DEALLOC 

GET  LENGTH  TO  DEALLOCATE 

GET  CONTROL  BLOCK  ADDRESS 

DEALLOCATE  TO  POOL 

RETURN  TO  USER  MODE  AND  CALLER 
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186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 

201  000142 

202  000142 

203  000146 

204  000150 

205  000154 

206  000162 
207 

208  000164 

209  000172 

210  000174 

211  000202 

212  000204 

213  000210 

214  000216 

215  000220 

216  000224 
217 

218  000232 

219  000236 

220  000240 

221  000244 

222  000252 

223  000254 

224  000262 

225  000264 

226  000270 

227  000274 

228  000276 

229  000304 

230  000506 

231  000312 

232  000314 
233 

234  000320 

235  000324 

236  000330 

237  000332 

238  C00340 

239  000342 

240  000350 

241  000352 

242  000:^56 


STMLTA  -  SETUP  DATA  BASE  ADDRESS  IN  SYSTEM  LINE  TABLE 

INPUTS: 

$SADDR=DATA  BASE  ADDRESS 
$MXADD=MUX  TABLES  ADDRESS 
$0FF=0FFSET  VALUE 
$SLTA=SYSTEM  LINE  TABLE  ADDRESS 
F1.ERR  SET  IF  ANV  ERRORS  OCCURRED 

OUTPUTS: 

R0,R1=DESTR0YED 

L.DDS   AND/OR  L.DLS   SET   TO   DATA  BASE   ADDRESS 

LF.RDY   SET   IF   APPROPRIATE 


005767 
100531 
016700 
032767 
001121 

032767 
001417 
022767 
101013 
016701 
032767 
001402 
016701 
016160 

016701 
001475 
066701 
032767 
001011 
032767 
001057 
016700 
010160 
000456 
032767 
001440 
005767 
001402 
016701 

016746 
016703 
012302 
126062 
001016 
126062 
001012 
010162 
126262 


OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 


ixMLTA:: 


OOOOOOG 

120000 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG  3$: 
5$: 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG  10$: 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG 


15$: 
20$: 


CMPB 

BNE 

CMP8 

BNE 

MOV 

CMPB 


HAVE  ANY  ERRORS  OCCURRED  ? 

YES  ..  DO  NOTHING 

GET  SYSTEM  LINE  TABLE  ADDRESS 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

YES  ..  MARK  THE  LINE  READY 

IS  THIS  PROCESS  A  DLC  ? 

IF  EQ,  NO  ..  NORMAL  DATA  BASE  LOAD 

IS  THE  LINE  TABLE  MAPPED  ? 

IF  HI,  NO  ..  NORMAL  DATA  BASE 

ASSUME  IT'S  NOT  A  DDM 

IS  THIS  A  DDM  ? 

IF  EO,  NO 

GET  THE  PDV  ADDRESS  FOR  THIS  PROCESS 


GET  DATA  BASE  ADDRESS 

IF  EQ,  DO  NOTHING 

ADD  OFFSET  VALUE 

ARE  WE  LOADING  A  DDM? 

IF  NE,  YES 

ARE  WE  LOADING  A  DLC? 

IF  NE,  YES 

GET  PDV  ADDRESS 

SET  LLC  DATA  BASE  ADDRESS 

IS  THIS  A  MUX  LINE? 

IF  EQ,  NO 

MUX  TABLES  SEPARATE  ? 

IF  EQ,  NO 

ELSE,  POINT  TO  MUX  TABLES 

GET  NUMBER  OF  SLT  ENTRIES  ON  STACK 

GET  SLT  TABLE  ADDRESS 

GET  NEXT  SLT  ADDRESS 
L.DDM(R0),L.DDM(R2)  ;  DO  DDM  PDV  INDICES  MATCH? 
40$  ;  IF  NE,  NO 

L.CTL(R0),L.CTL(R2)  ;  DO  CONTROLLER  NUMBERS  MATCH? 
40$  ;  IF  NE,  NO 

R1,L.DDS(R2)    ;  SET  DDM  LINE  TABLE  ADDRESS 
L.DDM(R2),L.DLC(R2)  ;  COMBINATION  DDM/DLC? 


TST 

$FLAG1 

BMI 

80$ 

MOV 

$SLTA,RO 

BIT 

#FL.CHA,$FLAGS  ; 

BNE 

70$            ; 

BIT 

#FL.DLC,$FLA6S  ; 

BEQ 

5$ 

CMP 

#1 20000, $SADDR  ; 

BHI 

5$ 

MOV 

$DLCPV,R1 

BIT 

*FL.DDM,$FLAGS  ; 

BEQ 

3$ 

MOV 

$PDVA,R1 

MOV 

2.DSP(R1),L.DLM(R 

MOV 

$SADDR,R1      ; 

BEQ 

80$ 

ADD 

$0FF,R1        ; 

BIT 

#FL.DDM,$FLAGS  ; 

BNE 

10$ 

BIT 

#FL.DLC,$FLAGS  , 

BNE 

60$ 

MOV 

$PDVA,R0 

MOV 

Rl.Z.DATCRO) 

BR 

80$ 

BIT 

#FL.MUX,$FLAGS  , 

BEQ 

50$ 

TST 

$MXADD 

BEQ 

15$ 

MOV 

$MXADD,R1 

MOV 

$SLTNM,-(SP) 

MOV 

$SLTMA,R3 

MOV 

(R3)+,R2 

M  4 
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At$CHK= 

A$$rps= 

A$SPR1= 

A$$TRP= 

Ct$CKP= 

C$$ORE= 

C$SRSH= 

DSAMXC 

DSAMXH 

DSANN 

DSBRPR 

DSBRTM 

DSDELF 

OSDELU 

DSENO  = 

DSFNB 

DIHIOR 

OtHOST 

DSINAC 

DSINCT 

DSIPL 

DSHD 

DSLNAM 

DSLNUM 

DSLST 

DSMAXC 

DSMAXH 


000000 
000000 
000000 
000000 
000000 
000400 
17756A 
000072 
000074 
000000 
000102 
000100 
000045 
000046 
000104 
000034 
000024 
000022 
000044 
000042 
000051 
000020 
000006 
000014 
000047 
000064 
000066 


DSMAXV 

D$MLL 

DSMNOD 

D$NA 

DSNBEA 

DINBRA 

D$NEND= 

DSNLN 

D$NN 

DSOUTT 

DSRETF 

DSRNN 

DSRTMR 

DSSEG 

DSSER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

ERR1 

E$$XPR: 

FE.CEX^ 

F$$LVL^ 

F.ERR  : 

F.FNB  ■ 


000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000426R 

000000 

******  GX 

000001 
******  Gx 
******  GX 


F.NRBD= 
F.RSIZ= 
F.URBD= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$W,'!D= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
L$e8LK= 
L$BXFR= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CR8= 
M$$CRX= 
H$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 


******  GX 

******  GX 

******  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

******  GX 

******  GX 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 


N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
N.FID  = 
''AR$$$= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SYSFDB= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 
VF.1NI= 
V$$CTR= 
V1.NSY= 
X$$DBT= 
$BFR  = 
$CRAVL= 


000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

000027 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

000000 

000000 

******  GX 

001000 

******  GX 

000000 

******  GX 

******  GX 


ABS.  000104 
000432 
Errors  detected: 


000 
001 

0 


(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,CON) 


♦*  Assembler   statistics 


Work      file      reads: 
Work     file  writes 


$DEA16= 

******  GX 

SDECPT- 

******  GX 

$DEVHD= 

♦«♦***  GX 

$ER0UT= 

******  GX 

$FMASK= 

******  GX 

$GETRC= 

*♦*«♦*  GX 

$GETRV= 

******  GX 

$PARHD= 

******  GX 

$PUTRC= 

******  GX 

$PUTRD= 

******  GX 

$RADDR= 

******  GX 

$RBLCK= 

******  GX 

SRSIZ  = 

**««♦*  GX 

$RSIZE= 

******  GX 

$VFLAG= 

******  GX 

$VFLG1= 

«***«♦  GX 

SVIHO  = 

******  GX 

SVXIT 

OOOOOORG 

$XFRAD= 

******  GX 

$$ 

177777 

$$$   = 

000354R 

$$$$  = 

000426R 

.CLOSE= 

******  G 

.CRAVL= 

******  GX 

.DEVHD= 

******  GX 

.FMASK= 

******  GX 

.PARHD= 

******  GX 

Size  of  work  file:  113S4  Words  (  45  Pages) 
Size  of  core  pool:  14440  Words  (  55  Pages) 
Ooerating      system:    RSX-11M/PLUS 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2U 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
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53 


.TITLE  VXPR  -  VNP  RELEASE  PROCESS  FROM  PARTITION  ROUTINES 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGI lAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  RELEASE  PROCESS  FROM  PARTITION  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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217 
218 
219 
220 
221 
222 
223 
22^ 
225 
226 

227  000216 

228  000222 
229 

230 

231  000230 

232 

233 

234  000236 

235  00024A 

236  1^0246 
237 

238 

239  000246 

240  000250 
241 

242 

243 

244 

245 

2'.6  000252 

247  000256 

248 

249 

250  000260 

251  00026'. 
252 

253 

254  000266 

255 

256 

257 

258 

259 

260  000266 

261 

262 

263 

264 

265 

266 

267 

268  000272 

269  C00276 

270  000300 
271 

272  000302 
273 


5$: 


017777  OOOOOOG  0000006 
016766  140002'  000006 
016766  140000G  000010 


10$: 


005702 
001406 


005777  OOOOOOG 
001403 


000402 


20$: 


005077  OOOOOOG 


012700  OOOOOOG 
001401 


25$: 


30$: 


MOV 
BEO 
CALL 
.ENDC 

.IF  DF 
CALL 

.ENDC 

SWSTK$ 
MOV 

.IF 
MOV 
.ENDC 

MOV 
RETURN 

.IF 

TST 
BEO 


#$NIDLI,R0 

5$ 

(RO) 


R$$MPL 
INILIN 


10$ 
aNTLPT,aKSAR6 

DF,M$$EXT 
.BASEB+2,6(SP) 


.8ASE8+.CXCSR,10(SP) 


DF,M$$EXT 


R2 
20$ 


.IF  DF  R$$MPL 
BIT     #HF.U8M,aHFMSK 
BEQ     20$ 

.IFF 
TST     aUMRPT 
BEO     20$ 

.ENDC 


DF  R$$MPL 
DF  R$$MPL 


CALL 

BR 

.ENDC 

.IF  DF 

SUSTK$ 

.IFTF 

CLR 

.IFT 

RETURN 

.ENDC 

MOV 
BEQ 
CALL 


$NIUMR 
25$ 


R$$MPL 

25$ 

;DF  R$$MPL 

SPUMR 

;DF  R$$MPL 


#$NICSR,R0 

30$ 

(RO) 


,  IF  DF  R$$MPL 


GET  DOWN-LINE  LOAD  INITIALIZER 
BR  IF  NO  SUCH  MODULE 
PERFORM  DOWN-LINE  LOAD  INIT 
*-END  RSX11S  CODE-* 

;CMPOn 
;  REINIT  HRC...  IF  RSX  DATA  STRUCTURES 
;  HAVE  CHANGED  ;CMPOn 

;CMP01] 

.■ENTER  KERNEL  MODE 

;;MAP  TO  THE  NETLDR  DATA  BLOCK 


.-RETURN  UMR  BLOCK  ADDRESS  IN  R2 


;, -RETURN  CSR  CHECK  BLOCK  ADDRESS  IN  R3 
;;BACK  TO  USER  MODE  AT  10$ 


:IS  THERE  A  UMR  BLOCK 
;IF  EQ,  NO 


.-DOES  THIS  SYSTEM  HAVE  UMR'S? 
;8R  IF  NO 

.-DOES  THIS  SYSTEM  HAVE  UMR'S? 
;BR  IF  NO 


.-LOAD  THE  UMR'S 
;  CONTINUE 


;; ENTER  SYSTEM  STATE  IF  M+ 

;; (READ/WRITE  ACCESS  TO  LOW  MEMORY) 


lINDICATE  NO  UMR'S 


.-.-RETURN  TO  USER  STATE  IF  M+ 


GET  CSR  CHECK  ROUTINE  ADDRESS 
BR  IF  NO  SUCH  ROUTINE 
CHECK  CSR  VALIDITY 


SPECIAL  CASE  HACK  FOR  NX 


;[MP01] 
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96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117  000000 

005703 

118  000002 

001533 

119  000004 

120  000012 

012702 

000017 

121  000016 

012701 

140002 

122  000022 

005000 

123  000024 

124  000030 

010377 

OOOOOOG 

125  000054 

005302 

126  000036 

002014 

127  000040 

016766 

140000'  000010 

128  000046 

001423 

129  000050 

016777 

140000'  OOOOOOG 

130  000056 

012701 

140002 

131  000062 

012702 

000017 

132  000066 

000762 

133 

134  000070 

012167 

000016' 

135  000074 

001002 

136  000076 

005721 

137  000100 

000755 

138 

139  000102 

012166 

000002 

140  000106 

010166 

000004 

141  000112 

010266 

000006 

142 

143  000116 

144 

•145  000120 

005700 

146  000122 

001457 

147 

148  000124 

005046 

149  000126 

150  000:34 

005710 

151  000136 

152  000144 

006026 

.S8TTL  CSR  CHECK 


SNJCSR  -  CHECK  If  ALL  CSR'S  ARE  ON-LINE 

CSR  CHECK  LIST  FORMAT: 

;LINK  TO  NEXT  BLOCK  IN  LIST  OR  ZERO  (EOl) 

.-SERIES  OF  2  WORD  ENTRIES,  0  <=  X  <=  15. 

;  SVSTEM  LINE  TABLE  ADDRESS 

;    CSR   ADDRESS 

.•NUMBER  OF   ENTRIES  MAY   RANGE   FROM  0.    TO  15. 

INPUTS' 

R3  =  ADDRESS  (BIAS)  OF  FIRST  BLOCK  IN  CSR  CHECK  LIST  (ZERO  IF  NONE) 

OUTPUTS: 

ALL  CSR'S  IN  LIST  ARE  CHECKED. 
R3  IS  DESTROYED. 


WORD 

LINK 

REPT 

15. 

.WORD 

SLTA 

.WORD 

CSRA 

ENDR 

$NICSR::TST 
BEQ 
SAVRG 
MOV 
MOV 
CLR 

SWSTKS 
MOV 
DEC 
BGE 
MOV 
BE(3 
MOV 
MOV 
MOV 
BR 


10$: 


15$: 


20$: 

23$: 

25$: 
30$: 


MOV 
BNE 
TST 
BR 

MOV 
MOV 
MOV 

RETURN 

TST 
BEQ 

CLR 

DIR$ 

TST 

OIR$ 

ROR 


R3 

60$ 

<R0,R1,R2> 

#17, R2 

#.8ASE8+2,R1 

RO 

30$ 

R3,aKSAR6 

R2 

20$ 

.BASEB,10(SP) 

25$ 

.BASEB,aKSAR6 

#.8ASEB+2,R1 

#17, R2 

15$ 

(R1)+,CSR5LT 

23$ 

(R1)  + 

15$ 

(R1)+,2(SP) 

R1,4(SP) 

R2,6(SP) 


RO 
50$ 

-(SP) 
#CSRENA 
(RO) 

#CSRDIS 
(SP)  + 


CLEAR  CARRY,  ANY  CSR'S  TO  CHECK? 

BR  IF  NO,  FAST  EXIT 

SAVE  R0,R1,R2 

SET  INITIAL  MAX  COUNT 

R1  POINTS  AT  ENTRY  TO  CHECK 

RO  WILL  RETURN  CSR  ADDRESS  OR  ZERO 

GO  TO  SYSTEM  STATE 

MAP  TO  CURRENT  BLOCK  IN  LIST 

COUNT  DOWN  NUMBER  OF  ENTRIES 

BR  IF  ANOTHER  TO  CHECK 

RESET  USER  R3  TO  NEXT  BLOCK 

BR  IF  NO  NEXT  BLOCK,  END  OF  LIST 

MAP  TO  NEXT  BLOCK 

POINT  AT  FIRST  ENTRY 

RESET  MAX  COUNT 

GO  CHECK  IT 

PULL  OUT  THE  SLT  ADDRESS 
BR  IF  ENTRY  IS  NOT  EMPTY 
SKIP  SECOND  WORD 
GET  NEXT  ENTRY 

SET  USER  RO  TO  CSR  ADDRESS 
POINT  USER  R1  AT  NEXT  ENTRY 
PUT  CURRENT  COUNT  IN  USER  R2 

.-RETURN  TO  USER  MODE  AT  "30$" 

;GOT  CSR  ADDRESS  OR  END  OF  LIST? 
;BR  IF  FOUND  END  OF  LIST 

USE  AS  ARGUMENT  FOR  TRAP  ROUTINE 

ENABLE  ILLEGAL  ADDRESS  TRAPPING 

CHECK  THE  CSR  ADDRESS 

DISABLE  TRAPPING 

WAS  CSR  ADDRESS  ILLEGAL? 
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124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 

140  000000 

141  000000 

142  000004 

143  000010 

144  000:12 

145  000016 
146 

147  000020 

148  000022 
149 

150  000024 

151  000032 

152  000034 
153 

154  000042 

155  000046 

156  C00052 

157  000054 

158  000060 
159 

160  000066 

161  000072 
162 

163 

164  000076 

165  000102 
166 

167 
168 
169 
170 
171 
172 
175 

174  000106 

175  000112 

176  C00116 

177  000120 

178  000124 

179  000130 
180 


.SSTTL  SET  EXECUTOR  ON 

SNILON  -  SET  STATE  EXECUTOR  ON 

REQUEST  THE  NETACP  TO  START 

INPUTS: 

NETACP  INSTALLED 

OUTPUTS: 

THE  DEVICE  LIST  IS  SCANNED  TO  FIND  THE  NETACP.   IF  IT  IS  FOUND, 
A  VC8  IS  ALLOCATED  FOR  IT,  AND  IT  IS  REQUESTED  TO  RUN. 
$NIRD8  IS  SET  TO  INDICATE  SUCCESS  (+)  OR  FAILURE  (-)  OR  NO-OP  (0). 
CARRY  IS  SET  ON  FAILURE. 


005767  OOOOOOG 

001403 

005767  OOOOOOG 

001002 

000261 


103003 


016700  OOOOOOG 

067700  OOOOOOG 

011000 

017701  OOOOOOG 

116061  000006  OOOC 


005066  000004 


017703  OOOOOOG 
016303  000102 


JnILON: 

10$: 
20$: 

50$: 


016301  000014 

032701  000200 
001020 

012705  000004' 

103407 


CALL 

TST 

BEQ 

TST 

BNE 

SEC 
RETURN 

DIfi$ 

see 

EMSG$R 

MOV 
ADD 
MOV 
MOV 
MOVB 

SWSTK$ 
CLR 

.IF 

MOV 

MOV 

.IFF 

SAVMAP 

MAP 

MOV 

MOV 

RE  SWAP 

.ENDC 

MOV 

BIT 

BNE 

MOV 

CALL 

BCS 


FNDPDV 

$DBXPT 

10$ 

$D8ECL 

20$ 


#ASSIGN 

30$ 

15 

$NIXPT,RO 

aPDVTA.RO 

(RO),RO 

aDECPT,R1 

Z.LLN(R0),D$NLN(R1) 

60$ 
4{SP) 

NDF,fi$$MPL 

aHEADR,R3 

H.LUN+4(R3),R5 


aSAHDB 

aSAHPT,R3 

H.LUN+4{R3),R3 


U.CW5(R3),R1 

*NF.END,Rl 

50$ 

#RCP1NM,R3 

aSRSTO 

40$ 


FIND  NSP  PROCESSES  fECL  &   XPT) 
i^OTH  TRANSPORT  (XPT) 
AND  ECL  MUST  BE 

PRESENT  IN  THE  SYSTEM 
AND  BE  LOADED 


ASSIGN  LUN  2  TO  NS: 

IF  CS,  ERROR 
ALUN$  FAILURE  OR  NS: 


LOAD  FAILURE 


GET  PDV  INDEX  OF  XPT 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  XPT'S  PDV 

GET  DECNET  HOME  BLOCK  ADDRESS 

INITIALIZE  THE  NUMBER  OF  ROUTIN 

;*  ENTER  SYSTEM  STATE 
;*  CLEAR  USER  Rl 


GET  TASK  HEADER 
ADDRESS  OF  NS:  UCB 

SAVE  APR6  CONTENTS 

MAP  TO  HEADER  IN  SECONDARY  PO 

GET  THE  HEADER  POINTER 

ADDRESS  OF  NS:  UCB 

RESTORE  APR6 


GET  FEATURES  WORD  FOR  THIS  NODE 

IS  THIS  A  FULL  ROUTING  NODE? 

IF  NE,  NO 

POINT  TO  TASK  NAME 

IS  ROUTING  CONTROL  PROGRAM  IN 

IF  CS,  NOT  INSTALLED 
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NT  RON     CREATED  BV  MACRO  ON  29-JUN-85  AT  03:26 

MACRO  CROSS  REFERENCE 

MACRO  NAME  REFERENCES 

ADJDFS  #5-62  5-73 

ALUNS  #5-61  6-105 

BIAS  #5-61 

CACDFS  #5-62  5-74               ^   ^^^ 

CALL  8-Ul  8-160            8-178            8-185 

8-285  9-315             9-317 

CALLR  8-288 

CALLX  #5-62 

CCBDFS  #5-63  5-65 

CTRDFt  #5-61  5-71 

DCBDFS  #5-63  5-77 

DHBDFS  #5-62  5-75                                      „  ^,, 

DIRS  #5-60  8-150            8-265           #8-274 

DVBDFS  #5-63  5-76 

ECDDBI  #5-61  5-69 

EMSGS  #5-60  ^             „   ,„^ 

EMSGSR  #5-60  8-152             8-192             8-195 

HDRDFS  #5-63  5-79 

MAP  #5-61 

NHWDFS  #5-60  5-66 

NSFDFS  #5-62  5-72                       ,             ^  _, 

NTLERS  #5-60  7-112             7-113             7-1U 

OFF$  #6-104  #6-105 

PDVDFS  #5-61  5-70 

PLBDFS  #5-61  5-67 

RESMAP  #5-62 

RETC  #5-60  9-320 

RETURN  8-148  8-188             8-227             8-260 

RUNS  #5-60  6-104 

R50S  #6-104  6-104 

SAVMAP  #5-62 

SOB  8-241  8-259 

SWSTKS  8-160  8-212             8-253            8-285 

UCBDFS  #5-63  5-78 

WSIGSS  #5-60  8-274 

XPDDBS  #5-61  5-68 


L  10 

PAGE   5 

CREF       04.00 

8-206 

8-212 

8-213 

8-253 

8-254 

8-276 

8-274 

8-231 

8-294 

8-295 

8-296 

8-297 

7-115 

7-116 

8-278 

9-325 

9-315 

n  10 
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Symbol  table 


2F.DDM=  000001 

ZF.MAN=  020000 

ZF.X3P= 

000000 

Z.LEN  = 

000016 

$ERR12= 

♦♦**.♦  GX 

?F.DIA=  OOAOOO 

ZF.MFL=  000010 

ZS.ASN= 

100000 

Z.LLN 

022296 

$HEADR= 

*♦♦**•  GX 

ZF.DLC=  000002 

ZF.MTM=  000400 

ZS.8SY= 

140000 

Z.MAP 

9222?9 

SNIMFE 

000006RG 

ZF.DVP=  100000 

ZF.MUX=  000040 

Z.AVL 

000014 

Z.NAM 

000004 

$SAVAL= 

•♦**♦♦  GX 

ZF.INI=  040000 

ZF.PSE^  002000 

Z.DAT 

000016 

Z.PCB 

90221? 

$$$ARG= 

000004 

ZF.I<;MX=  000020 

ZF.SLI=  010000 

Z.DSP 

000000 

Z.SCH 

000007 

$$$R  = 

000010 

ZF.LLC=  OOOOOA 

ZF.TIM=  000200 

Z.FLG 

000010 

$DBECL= 

******   GX 

.$$$$.= 

000034 

ZF.LMC=  000100 

.  ABS.   177776 

000 

(RW.I,GBL,ABS,OVR) 

001240 

0C1 

(RW,I,LCL,REL,CON! 

Errort,  detected: 

0 

*♦•  Assembler  statistics 

Work  file  reads 

:  115 

Work  file  writes 

:  106 

Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


27005  Words  (  106  Pages) 
17608  Words  (  67  Pages) 
RSX-11M/PLUS 


DB2:NT1MFe!'t47?[132!i34]NTIMFE/CR/-SP=D82:C1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C130JO]RSXMCM/ 
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NTIMFL      "lACRO  V05.03b   Saturda' 
DLMMFL   -  DLM  MARKED   FOR   LOAD 


172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 

187  0003'iA 

188  000350 

189  000554 

190  000356 

191  000360 

192  000364 

193  000372 

194  000374 

195  000402 

196  000410 

197  000414 

198  000416 

199  000424 

200  000430 

201  000436 

202  000442 

203  000444 

204  000452 

205  000454 

206  000460 

207  000462 

208  000464 
209 

210 


'  29-Jun-85  03:27 

ICAN 
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.SBTTL  DLMMFL  -  OLM  MARKED  FOR  LOAD  SCAN 


004567 
116104 
005005 
010103 
062703 
132763 
001424 
016267 
012767 
105767 
001403 
052767 
110567 
116167 

103410 
142763 
005205 
062703 
005304 
003340 


000001 


DLMMFL    -    SCAN  DLM   CIRCUITS   FOR  MARKED-FOR-LOAD 

INPUTS: 

R1  -  DLH'S  SLT  ADDRESS 
R2  -  DLM'S  PDV  ADDRESS 

OUTPUTS: 

CIRCUITS  MARKED-FOR-LOAD  ARE  LOADED 
ALL  REGISTERS  ARE  PRESERVED 


DLMMFL: 


000022 

000040  000000  10$: 

000004  000002G 
004010  OOOOOOG 
000001 G 

002000  OOOOOOG 
00001 5G        20$: 
000012  000014G 


000040  000000  30$: 
000004 

40$: 


JSf* 

R5,$SAVRG 

MOVB 

L.NSTA(R1),R4 

CLR 

R5 

MOV 

R1,R3 

ADD 

#L.MPF,R3 

BITS 

*SF.MFL,S.FLG(R3) 

BEQ 

30$ 

MOV 

Z.NAM(R2),$NTLFC+LR.CIR 

MOV 

#LS.ClRtLS.DLM,$NTLFC+LR 

TSTB 

$NJFLGH 

BEQ 

20$ 

BIS 

#LS.T0P,$NTLFC+LR.5TS 

MOVB 

R5,$NTLFCtL0.STA 

MOVB 

L.CTL(R1),$NTLFC+L0.CTL 

CALL 

$NINTL 

BCS 

40$ 

BICB 

#SF.MFL,S.FLG(R3) 

INC 

R5 

ADD 

#S.LEN,R3 

DEC 

R4 

BGT 

10$ 

RETURN 

.END 


SAVE  R3-R5 

GET  NUMBER  OF  CIRCUITS 
INITIALIZE  CIRCUIT  COUNT 
POINT  TO  SLT 
POINT  TO  FIRST  CIRCUIT 
IS  THIS  CIRCUIT  MARKED-FOR-LOAD? 
BR  IF  NO 

STORE  PROCESS  NAME 
STS  ;  STORE  FUNCTION  CODE 
TOP-DOWN  ALLOCATION? 
BR  IF  NO 

MARK  THE  REQUEST  BLOCK 
STORE  STATION  NUMBER 
STORE  CONTROLLER  NUMBER 
REQUEST  NTL  TO  LOAD  CIRCUIT 
BR  IF  ERROR 

CLEAR  MARKED-FOR-LOAD  BIT 
UPDATE  CIRCUIT  COUNT 
POINT  TO  NEXT  CIRCUIT 
MORE  STATIONS? 
BR  IF  YES 


NTIMFL  MACRO  V05.03b  Satur'iay  29-Jun-85  03:27  Page  9-1 
Svmbni  rshl e 


M  12 


NTIMT     MACRO  V05.03b  Thursday  05-Sep-85   11:02 
LOCAL   DATA 


K1 
1A2 
K3 
U4 
K5 
K6 
K7 
U8 
U9 
150 
151 
152 
15? 
15A 
155 
156 
157 


Page  6-1 
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ERRTAB: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

$ERR04,20. 
$ERR11,21. 
$ERR15,2A. 
$ERR17,25. 
$ERR19,26. 
$ERR20,?7. 
TA8END 

TA8END 

=  -1 

.IFF 

SNIFNC 

==  $NIRD8 

.ENDC 

;DF  S$$BAS 

.ENDC 

;NDF  R$$11S 

COMM  EXEC  NOT  LOADED 

ROUTER  PRl  DATA  BASE  ALLOCATION  FAILURE 

NS:  ASSIGNMENT  FAILURE 

NETACP  NOT  INSTALLED 

RCP  NOT  INSTALLED 

DEVICE  OFFLINE 

END  OF  TABLE 

;END  OF    TABLE    CONSTANT   DEFINITION 
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L  U 

NTINIT 

MACRO  V05.03b  U 

ursday  05-S 

=p-85  11:02 

Page  13 

-1 

ERROR  MESSAGE  PROCESSOR 

570 

000616 

005725 

TST 

(R5)t 

671 

000620 

010504 

MOV 

R5,R4 
(Ri)+,(R4)* 

672 
673 
674 

000622 

022424 

CMP 

000624 

112410 

10$: 

MOVB 

(R4)*,(R0) 

675 

000626 

001412 

8EQ 

20$   „ 

676 

000630 

122720 

000052 

CMPB 

#'»,(RO)t 

677 

000634 

001373 

BNE 

10$ 

678 

000636 

005715 

TST 

(R5) 

679 

000640 

001402 

BED 

15$ 

680 

000642 

005300 

DEC 

RO 

681 
682 
683 

000644 

CALL 

a(R.)t 

000646 

112420 

15$: 

MOVB 

(R4)+,(R0)t 

684 

000650 

001376 

BNE 

15$ 

685 
686 
687 

000652 

005300 

DEC 

RO 

000654 

010005 

20$: 

MOV 

R0,R5 

688 

000656 

162705 

000230' 

SUB 

*NTiERN,R5 

689 

000662 

QJ0W$S 

#I0.WVB,*1,*2, 

690 

691 

000732 

012605 

MOV 

(SP)t,R5 

692 

000734 

012604 

MOV 

(SP)+,R4 

693 

000736 

012603 

MOV 

(SP)+,R3 

694 

000740 

012602 

MOV 

(SP)+,R2 

695 

000742 

012601 

MOV 

(SP)+,R1 

696 

000744 

000261 

SEC 

697 

000746 

RETURN 

698 

699 

.ENDC 

;DF  S$$BAS 

70C 

701 

SKIP  ADDRESS  OF  FORMAT  STRING 
COPY  ADDRESS  AGAIN 
POINT  AT  ERROR  MESSAGE 

COPY  A  BYTE  INTO  BUFFER 

BR  IF  END  OF  MESSAGE 

FOUND  AN  ASTERISK? 

QR  IF  NO 

IS  THERE  AN  ASTERISK  REPLACER? 

BR  IF  NO 

OVERWRITE  THE  ASTERISK 

CALL  THE  REPLACER 

COPY  REST  OF  MESSAGE 
UNTIL  A  NULL  BYTE 
BACK  UP  TO  NULL 


;COPY  ADDRESS  OF  END  OF  SUFFER 
;GET  LENGTH  OF  MESSAGE 
,<#NTIERN,R5,#40> 


RECOVER  R5 
RECOVER  R4 
RECOVER  R3 
RECOVER  R2 
RECOVER  R1 
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SYMBOL    CROSS   REFERENCE 

SYMBOL      VALUE 

ZF.LMC 

ZF.MAN 

ZF.MfL 

ZF.MTM 

ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSV 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SABTIM 

SALOCB 

tCALLX 

$CBDMG 

$CCBGT 

SCEACC 

SCLKHD 

$C5TA 

SDBECL 

SDBXPT 

SDEACB 

SDECPT 

SDEVHD 

$ERR02 

$ERR03 

$ERR04 

$ERR12 

SFMASK 

SHE ADR 

SLDPWF 

SLGSTT 

SLLCAL 

SLLCRS 

SLLCTA 

SNERDD 

SNERDN 

$NER50 

tNIAST 

SNICEX 

SNIECL 

SNIERA 
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CREF       04.00 


LUE 

REFERENCES 

000100 

#5-75 

020000 

»5-75 

000010 

#5-75 

000400 

#5-75 

000040 

#5-75 

002000 

#5-75 

010000 

#5-75 

000200 

#5-75 

000000 

#5-75 

100000 

#5-75 

140000 

#5-75 

000014 

#5-75 

000016 

#5-75 

12-599 

12-609 

000000 

#5-75 

5-75 

000010 

#5-75 

000016 

#5-75 

000006 

#5-75 

000020 

#5-75 

000004 

#5-75 

000012 

#5-75 

12-597 

12-607 

000007 

#5-75 

*♦♦♦** 

GX 

7-224 

k t *  «  ** 

GX 

7-216 

♦* t**» 

GX 

7-235 

****♦» 

GX 

^4-730 

14-742 

GX 

7-239 

•♦**♦♦ 

GX 

7-242 

♦  **  ** t 

GX 

7-222 

♦«•♦** 

GX 

14-716 

000004 

RG 

#6-99 

»12-587 

•12-599 

000006 

RG 

#6-100 

•12-588 

•12-609 

♦♦♦*** 

GX 

7-217 

******- 

GX 

7-245 

****** 

GX 

7-225 

000552 

R 

#7-190 

11-564 

000430 

R 

#7-192 

9-578 

000462 

R 

#7-193 

9-380 

000520 

RG 

#7-194 

****** 

GX 

7-203 

GX 

7-219 

17-862 

****** 

GX 

7-226 

****** 

GX 

7-244 

**  *  *  ** 

GX 

7-248 

****** 

GX 

7-240 

GX 

7-249 

001014 

RG 

#14-737 

000772 

RG 

#14-726 

14-737 

000750 

KG 

#14-715 

14-726 

000120 

R 

#6-112 

•8-302 

•8-305 

9-441 

****** 

GX 

9-387 

000000 

RG 

#6-97 

.12-585 

•12-594 

000010 

RG 

#6-102 

14-715 

14-728 

14-758 

17-869 


NTINIT 
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L  16 

PAGE    1 

CREF       04.00 


SYMBOL      VALUE 


REFERENCES 


ABilM 

=    ***t *  * 

nx 

8-178 

3UFUMP 

=   17255A 

#5-62 

CLINS 

000162 

? 

7-152 

CLKHD 

Z      ****** 

GX 

6-94 

CMODE 

=   1A0000 

#5-62 

C.TIM 

000006 

8-186 

IStAS 

~      t **• ♦* 

5-62 

KISARO 

=  1/2340 

#5-62 

KISAR6 

=  172354 

#5-62 

*IPAR 

=  172100 

#5-62 

*1PCSR 

=   177746 

#5-62 

WMGE 

=  000000 

5-62 

PIRQ 

=   177772 

#5-62 

PMODE 

=  030000 

#5-62 

PRO 

=  000000 

#5-62 

PR1 

=  000040 

#5-62 

PR2 

=  000100 

#5-62 

PR? 

=  000140 

#5-62 

PR4 

=  000200 

#5-62 

PR5 

=  000240 

#5-62 

PR6 

=  000300 

#5-62 

PR? 

=  000340 

#5-62 

PS 

=   177776 

#5-62 

R$$MPL 

-      ****** 

5-62 

R$$110 

-      •♦***• 

5-62 

SWR 

=   177570 

#5-62 

TIFLG 

000000 

R 

#5-72 

TKPS 

=      »**••* 

GX 

7-143 

TKIOO 

r     ****** 

GX 

7-149 

TPS 

=   17756'. 

#5-62 

T1 

=  000002 

#5-70 

T1SCL 

=   ****** 

GX 

6-106 

T1SIN 

000116 

R 

6-117 

TIOOC 

=   ****** 

GX 

6-101 

T100Q 

r     ****** 

GX 

7-146 

T5 

=  000001 

#5-69 

T501N 

000130 

R 

6-114 

UBMPR 

=  170200 

#5-62 

JISARO 

=  177640 

#5-62 

UISARl 

=    177642 

#5-62 

SNITIM 

000002 

RG 

#6-94 

.BASES 

^  140000 

#5-62 

#8-173 
8-182 

8-189 


6-98 

•  6-98 

5-62 


•6-103 


6-108 

7-142 

#7-141 

7-148 

6-103 
#7-145 


•6-111 
5-62 


•6-108 


6-115 


6-112 


9-198 

6-112 


6-115 


CREATED  BY     MACRO     ON  29-JUN-85   AT   03:28  PAGE   2 


M  16 


VUNL   -   VNP   JNLOAD   ROuMNES 
Symbol    table 
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tCCBSZ^ 

ICCEX 

tCEACr= 


003666RG 
GX 


$CETDF=  ..•..•  GX 


tri  IN 

$CPRO 

$CXOPT=  •••• 

tDDMPV= 

$DEA16= 

SDEA-!8= 

$DECPT= 

$DEPOl= 
$DEJMR= 
tDEVHD= 
$DLCPV= 
$EROUT= 
tFlLHD= 


00^61  ORG 

00H62RG 

GX 

GX 

GX 

•  ••  GX 


•«**•* 


••  GX 
•  •  GX 

GX 
GX 
GX 
GX 

GX 


.  AB5.   '77776 
00e3'.6 
DA'A    000204 
Er'  of-s  detected: 


000 
001 
002 
0 


$fLAG5= 
$FMASK= 
$GETAD= 
$GETRV= 
$HMBUF= 
tICBLN= 
$KRBLN=: 
$LGSTT= 
IMUL  = 
$MXVCT= 
$NAME  = 
$NTLHB= 
$OBJHD= 
$PARHD= 
SPDVA  = 
$PDVNM= 
$PDVTA= 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


(RW,I,GBL,ABS,0VR) 
(RW.I.LC!  ,REL,CON) 
(RU,D,LCL,RFL,CON) 


SPNAME 

OOOOOORG 

002  $XL8R  = 

******  GX 

$PRAVL= 

****** 

GX 

SXLIN 

001320RG 

$PUTAD= 

****** 

GX 

$XLINK= 

******  GX 

$PUTRC= 

****** 

G" 

$XPAR  = 

*^*«**  GX 

$RADDR= 

****** 

r. 

$XPRO 

0001 32RG 

$rblck;= 

****** 

GX 

$XPSI  = 

******  GX 

$RDBLH= 

****** 

GX 

$XSNA  = 

******  GX 

$RSIZE= 

****** 

GX 

$$ 

177777 

tSAVAL^ 

****** 

GX 

$$$   = 

003600R 

$SDBLH= 

****** 

GX 

$$$$  = 

003664R 

JSLTA  = 

****** 

GX 

.CXALL= 

******  GX 

$SLrMA= 

****** 

GX 

.CXCSR= 

******  GX 

$SLTNM= 

****** 

GX 

.CXLEN= 

******  GX 

$UNBLK= 

****** 

GX 

.CXPCB= 

******  GX 

tUN8SZ= 

****** 

GX 

.CXUNL= 

******  GX 

$VFLAG= 

****** 

GX 

.CXVEC= 

******  GX 

SVUNB  = 

****** 

GX 

.DEAPR= 

****** 

GX 

.DEA16 

006UAR 

.NETPF= 

****** 

GX 

.NSO  = 

****** 

GX 

.NS1   = 

****** 

GX 

.NS2  = 

****** 

GX 

.NS3  = 

****** 

GX 

.NS4  = 

****** 

GX 

.NS5  = 

****** 

GX 

.NS6  = 

****** 

GX 

.NS7  = 

****** 

GX 

.PLGTH= 

****** 

GX 

.SBPCB= 

****** 

6X 

.TLGTH= 

****** 

GX 

.TSICHD= 

****** 

GX 

..PDV 

000202R 

002 


•  •<   Assemb^p'"   statistics 


work      t';  e     --eads:  '7 

Work       t  •■  le    *r-tes:  76 

Size  of   «or).    t'le:  2U25  iJords      '   84  Pages) 

Size  ot   core  oool:  17608  Words      (   67  Pages) 

Ooerafng     system:  RSX-11N/PLUS 
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52 
53 
5A 
55 
56 
57 
58 
59 
60 
61 

62  000000 

63  000000 
6^  000000 

65  000000 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 
7A  000000 
75 

76 
77 
78 
79 
80 
81 
82 
83 
8A 


.SBTTL  MACRO  DEFINITIONS 


PVCDF$,CUGDF$,RDTDFi,DSTDF$,DTtDF$,XCBDF$,PHBDF$,RNWDF$ 
CHNDF$,SVCDF$,X29DF$, TRADES, ASL$,SAVRG,RESRG,TCBDF$ 
GETRV,PUTRC,GETAD,PUTAD,CEACC$,SWTCHI,SUTCHO 
VNPDBG 


LIBRARY  MACROS 

.MCALL 
.MCALL 
.MCALL 
.MCALL 

CHNDFS 
CUGDFS 
DSTDFS 
DTEDFS 
PHBDFS 
PVCDFS 
RDTDFS 
SVCDFS 
XCBDFS 
X29DF$ 
TCBDFS 
TRADES 
RNUDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  $RBLCK,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)+,SRBLCK 

.ENDM 


;[TD0013 
;[TD001] 
;[TD001D 
;CTD001] 


DEFINE  OUTGOING  CHANNELS  LIST  OFFSETS 

DEFINE  CLOSED  USER  GROUP  BLOCK  OFFSETS 

DEFINE  X.25/X.29  DESTINATION  BLOCK  OFFSETS 

DEFINE  LOCAL  DTE  DESCRIPTOR  OFFSETS 

DEFINE  X.25  HOME  BLOCK  OFFSETS 

DEFINE  PVC  OFFSETS 

DEFINE  REMOTE  DTE  BLOCK  OFFSETS 

DEFINE  SVC  BLOCK  OFFSETS 

DEFINE  X.25  CIRCUIT  BLOCK  OFFSETS 

DEFINE  X.29  DATA  BLOCK  OFFSETS 

DEFINE  TCB  DATA  STRUCTURE  OFFSETS 

DEFINE  TRACE  DATA  STRUCTURE  OFFSETS 

Define  remote  network  block  symbols 


;[TD00i: 
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490 
491 
492 

.SBTTL 

XPSV  -  Deal 

locate 

PSV  data  structures 

•  ** 

XPSV  -  Deallocate  PSV 

data 

structures 

493 

494 

INPUTS 

495 

SPFLAG 

-  PSi  characteristics  word 

496 

497 

OUTPUTS 

498 

PSV  mapping  tables 

deallocated 

499 

500 

501  001720 

ALl  reg 

isters  preserved 

032767 

OOOUOOG  0000006 

<PSV: 

BIT 

*PF.PSV,$PfLAG 

Check  if  PSV  is  present 

502  001726 

503 

504  001730 

001446 

BEQ 

50$ 

Nothing  to  do  if  not 

CALL 

$SAVAL 

Save  all  registers 

505  001734 

016703 

OOOOOOG 

MOV 

$PSIPT,R3 

Get  address  of  pointer 
...  to  first  table 

506  001740 

062703 

000044 

ADD 

#H$GLT,R3 

507  001744 

GETRV 

R3,*2 

Read  in  pointer 

508  001762 

016700 

OOOOOOG 

MOV 

$SFR,RO 

Get  pointer 

509  001766 

001404 

BEO 

20*    , 

Branch  if  no  table  allocated 

510  001770 

012701 

001000 

MOV 

#512. ,R1 

Get  length  of  table 

511  001774 

CALL 

$DEPOL 

Deallocate  table 

512  002000 

016703 

OOOOOOG 

20$: 

MOV 

$PSIPT,R3 

Get  address  of  pointer 

513  002004 

062703 

000046 

ADD 

#H$GPT,R3 

...  to  second  table 

514  002010 

GETRV 

R3,#2 

Read  in  pointer 

515  002026 

016700 

OOOOOOG 

MOV 

$BFR,RO 

Get  pointer 

516  002032 

001404 

BEQ 

50$ 

Branch  if  no  table  allocated 

517  002034 

012701 

001000 

MOV 

*512.,Ri 

Get  length  of  table 

518  002040 

CALL 

$DEPOL 

Deallocate  table\ 

519 

520  002044 

50$: 

RETURN 

;CTD001] 
;CTD001] 
;CTD00n 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
.•CTDOOn 
;tTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001D 
;CTD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDOOI] 
;[TD001] 
; CTDOOI 3 
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2^5  000364 

001002 

BNE 

30$ 

24i  000366 

010162 

OOOOOOG 

MOV 

R1,L.DLS(R2) 

245  000372 

166701 

OOOOOOG 

30$: 

SUB 

$MXLEN,R1 

246  000376 

005316 

40$: 

DEC 

(SP) 

247  000400 

003353 

BGT 

20$ 

248  00"402 

005726 

Tsr 

(SP)  + 

249  00  404 

000410 

BR 

70$ 

250  000406 

010160 

OOOOOOG 

50$: 

MOV 

R1,L.DDS(R0) 

251  000412 

126060 

OOOOOOG  OOOOOOG 

55$: 

CMP8 

L.DDM(RO),L. 

252  000420 

001002 

BNE 

70$ 

253  000422 

010160 

OOOOOOG 

60$: 

MOV 

R1,L.DLS(R0) 

254  000426 

70$: 

CALL 

$T,'>1RDY 

255  000432 

80$: 

RETURN 

If  NE,  NO 

SET  DLC  LINE  TABLE  ADDRESS 
GET  NEXT  UNIT  PORTION  ADDRESS 
ANY  MORE  ENTRIES  LEFT  ? 
IF  GT,  YES 

ELSE,  CLEAN  OFF  STACK 
DON'T  SET  DDM  LINE  TABLE  ADDRESS  AGAIN 
,  SET  DDM  DATA  BASE  ADDRESS 
.DLC(fiO)  ;  COMBINATION  DDM/DLC? 
IF  NE,  NO 

SET  DLC  DATA  BASE  ADDRESS 
MARK  LINE  READY  IF  APPROPRIATE 
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PAGE   1 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

DIEND 

=  000104 

5-150 

5-155 

DtLNAM 

000006 

5-151 

ERR1 

000426 

R 

5-197 

#5-200 

FE.CEX 

r  *  ♦*■([■**■ 

GX 

5-161 

F.ERR 

=   ****** 

GX 

5-200 

F.FNB 

=   ****** 

GX 

5-85 

F.NRBD 

r   ****** 

GX 

♦5-106 

♦5-108 

♦5-110 

♦5-112 

F.RSIZ 

-   ****** 

GX 

♦5-107 

♦5-150 

F.URBD 

r  ****** 

GX 

♦5-145 

LSBBLK 

=  ****** 

GX 

5-170 

LSBXFR 

-  ****** 

GX 

♦5-175 

N.FID 

~     ****** 

GX 

5-85 

PAR$$$ 

=  000027 

#5-186 

5-186 

R$$MPL 

-   ****** 

5-96 

5-115 

5-174 

SYSFDB 

-   ****** 

GX 

5-85 
5-186 

♦5-106 
5-186 

♦5-107 
5-200 

♦5-108 

VF.INI 

=:     ****** 

GX 

5-89 

Vl.NSY 

~     ****** 

GX 

5-167 

SBFR 

-  ****** 

GX 

5-145 

5-146 

5-151 

♦5-175 

SCRAVL 

=  ****** 

GX 

5-112 

$DEA16 

-  ****** 

GX 

5-156 

SDECPT 

r  ****** 

GX 

5-148 

5-150 

5-154 

♦5-157 

SDEVHD 

=     ****** 

GX 

5-108 

SEROUT 

=      ****** 

GX 

5-197 

SFMASK 

~     ****** 

GX 

5-106 

5-161 

SGETRC 

-  ****** 

GX 

5-172 

SGETRV 

r  ****** 

GX 

5-150 

SPARHD 

r  ****** 

GX 

5-110 

SPUTRC 

-  ****** 

GX 

5-107 

5-109 

5-111 

5-113 

SPUTRD 

=  ****** 

GX 

5-180 

SRADDR 

r  ****** 

GX 

♦5-107 

♦5-109 

♦5-111 

♦5-113 

SRBLCK 

-  ****** 

GX 

•5-171 

SRSIZ 

-  ****** 

GX 

5-184 

SRSIZE 

-  ****** 

GX 

♦5-170 

♦5-184 

SVFLAG 

-  ****** 

GX 

5-89 

SVFLGI 

=  ****** 

GX 

5-167 

SVIMG 

-  ****** 

GX 

5-163 

tVXIT 

000000 

RG 

#5-80 

SXFRAD 

-  ****** 

GX 

5-175 

$$ 

=  177777 

5-199 

5-199 

#5-199 

#5-200 

$$$ 

=   000354 

R 

#5-199 

5-200 

$$$$ 

=  000426 

R 

#5-200 

.CLOSE 

r   ****** 

G 

5-186 

5-186 

.CRAVL 

-  ****** 

GX 

5-113 

.DEVWD 

r  ****** 

GX 

5-109 

.FMASK 

-  ****** 

GX 

5-107 

.PARHD 

=  ****** 

GX 

5-111 

♦5-146 


♦5-110 


♦5-112 


♦5-145 


♦5-146 


♦5-150 


•5-150 


♦5-169 


vxn 


CREATED  BY     MACRO     ON  29-JUN-85  AT   03:12  PAGE   2 


N     S 


N  6 


VXPR  -  VNP  RELEASE  PROCESS  FROM  MACRO  V05.03b  Saturday  29-Jun-85  03:12  Page  5 


55 
56 

*$XPAF 

-  RELEASE  MC8  PROCESS  FROM 

PARTITION 

57 
58 
59 
60 
61 
62 
63 

THIS  ROUTINE  IS  C/'.LED  TO  FREE  THE  PROCESS  PARTITION.  IF  IT  IS  A  SYSTEM 
CONTROLLED  PARTITION,  IT  WILL  BE  UNLINKED  FROM  THE  LIST  OF  fUB-PCB'S 
AND  DE-ALLOCATED. 

INPUTS: 

R0--PC8 

ADDRESS 

64 
65 
66 

67 

OUTPUTS: 

C-8i:=SUCCESS/FAILURE 

68 
69 

70  OOOOOO 

71  OOOOOO 
72 

73  OOOOOO 

74  OOOOOO 

75  000016 

76  000022 
11   000030 

78  000036 

79  000054 

.MCALL 
PC8DF$ 
HWDDF$ 

PC8DF$, GETRV, PUTRC 

HWDDFS 

, SWTCHO, SWTCHI 
PCB  OFFSETS 
HARDWARE  DEFS 

016701 
016767 

0000126 
OOOOIOG 

000060G 

tXPAR: 

GETRV 

MOV 

MOV 

SUTCHI 

GETRV 

SWTCHI 

RC.PLGTH 

P.MAIN+$BFR,R1 

P.SU8+$BFR,$BFR+60 

#$eFR+100 

R1,.PLGTH 

READ  IN  PCB 

GET  MAIN  PARTITION  PCB  ADDRESS 

SAVE  NEXT  PCB  ADDRESS 

PREPARE  TO  RECEIVE  MAIN  PCB 

READ  IN  MAIN  PCB 

DEFAULT  BUFFER 

80 
81 
82 

83  000062 

84  000070 
85 

86  OOOv.^2 

87  000100 
88 

89  000106 

90  000114 

91  000116 

92  000120 

93  000124 

94  000130 
95 

96  000132 

97  000136 

98  000144 

99  000154 
100  000162 
101 

.IF 

NDF,R$$MPL 

032767 
001035 

000040 

0001 30G 

BIT 
BNE 

*PS.SYS,P.STATt$8FRMO0 
10$ 

SYSTEM  CONTROLLED  MAIN  PARTITIO 
IF  NE,  YES 

146767 
146767 

000024G 
000024G 

000025G 
000125G 

5$: 

BIC8 
BIC8 

P.BUSY+$BFR,P.eUSY 
P.8USY+$BFR,P.8USY 

f$BFR+ 
f$BFR+ 

;  UN-8USY  PARTITION 
01     ;  UN-BUSY  MAIN  PARTITION 

032767 
001406 
010146 
016701 
005061 
012601 

000020 

OOOOOOG 
OOOOOOG 

OOOOOOG 

BIT 
BEQ 
MOV 
MOV 
CLR 
MOV 

#FE.PLA,$FMASK 

7$ 

R1,-(SP) 

.PPR0,R1 

$8FR(R1) 

(SP)+,R1 

PLAS  SYSTEM 

NO  IF  EQ 

SAVE  Rl 

P. PRO  OFFSET  IN  PCB 

CLEAR  THE  PROTECTION  WORD 

RESTORE  Rl 

000427 

7$: 

PUTRC 

SWTCHO 

PUTRC 

SWTCHO 

BR 

#$eFR+100 
R1 

40$ 

RESTORE  PCB 
SWTCH  OUTPUT  BUFFERS 
WRITE  MAIN  PCB 
DEFAULT  BUFFER 

102 
103 

104  000164 

105  000166 

106  000170 

107  000200 

108  000204 
1u^  000206 

110  000212 

111  000214 

.ENDC 

020001 
001425 

026700 
001405 
016701 
001364 
00C261 

OOOOIOG 
OOOOIOG 

10$: 
20$: 

CMP 

BEQ 

GETRV 

CMP 

BEQ 

MOV 

BNE 

SEC 

RO.Rl 

40i 

Rl 

P.SU8+$BFR,R0 

30$ 

P. SUB  $BFR,R1 

10$ 

IS  THIS  A  SUB-PCB? 
IF  EQ  NO 
READ  N  PCB 

•  DOES  THIS  SUB-PCB  LINK  TO  OURS? 
■  IF  EQ,  YES 

•  GET  NEXT  SUB-PCB 

•  IF  NE,  GOT  ONE 

•  SIGNAL  FAILURE 
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LOCAL  INITIALIZATION 

27A 
275 
276 
277 
278 

279  000502 

280  000306  0002A1 

281  000310  «0$: 
282 
283 
28A 


Page  1-2 

CALL 

.ENDC 

CALL 

CLC 

RETURN 


M  7 


SNXHCK 


SNITIM 


UNTIL  NEXT  BASE  LEVEL 
INIT  DLX  IF  NECESSARY 


;G0  START  TIMERS 
;GOOD  FINISH 


;[MPOn 
;[HP01] 

;[MP01J 
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153  000U6 

154 

155 

156 

157  000150 

158 

159 

160 

161  0001 5A 

162  000156 

163  000162 

164  000166 

165  000170 
166 

167 
168 
169 
170 
171 
172 
173 
174 

175  000174 

176  000202 

177  000210 

178  000216 

179  000222 
180 

181 
182 
183 
184 

185  000226 

186  000232 

187  000240 

188  000244 

189  000250 

190  000256 
191 

192 

193 

194 

195  000260 

196 

197  000262 

198  000264 

199  000272 
200 

201 
202 
203 

204  000274 

205  000300 
206 

207 
208 


103325 


016700     000016' 


116001 
067701 
011101 
016101 


000002 
OOOOOOG 

000004 


012767 
116067 
116067 
010167 


005067 
116067 
116000 
010167 


000660 
000241 


005266 
000002 


000001 


OOOOOOG  ooooooc 

000012  ooooooc 

000013  ooooooc 
ooooooc 


000002G 

000012  000002G 

000002 

OOOOOOG 


BCC 

FOUND  A  BAD  C 

MOV 

.IF  NDF 

SAVRG 

MOVB 

ADD 

MOV 

MOV 

.ENDC 

.IFDF 

BIC 

.IFF 

MOV 
MOVB 

Move 

MOV 
CALL 


10$ 

SR 

CSRSLT.RO 

S$$8AS 

<R1> 

L.DDM(R0),R1 

aPDVTA.RI 

(RD.Rl 

Z.NAM(R1),R1 

;NDF  SSSBAS 

R$$11S 

#LF.RDY!LF.ENA,L.FLG(RO); 

;DF  R$$11S 

#LX.LIN,$NTLfCtLR.STS 

L.CrL(RO),LR.CTL+$NTLFC 

L.UNT(RO),LR.UNT+$NTLFC 

R1,LR.LIN+$NTLFC 

SNINTL 


;BR  IF  NO,  CHECK  NEXT 


000004 


.IFTF 

;DF  R$$11S 
.IF  NDF  S$$BAS 

CLR 

MOVB 

MOVB 

MOV 

EMSG$ 

RESRG 

$NIERA+2 

L.CTL(R0),$NIERA+2 

L.DDM(RO),RO 

R1,$NIERA 

20 

<R1> 

.ENDC   ;NDF  S$$8AS 

.ENDC 
BR 

;DF  R$$11S 
10$ 

50$: 
60$: 

CLC 

RESRG 

RETURN 

<R2,R1,R0>            ; 

;  ILLEGAL  ADDRESS  TRAP  ROUTINE,  EXPECTS  /> 

CSRTRP 

INC 
RTI 

4(SP) 

;P1CK  UP  SLT  ADDRESS 


SAVE  R1 

GET  DDM  PDV  INDEX 

INDEX  INTO  PDV  VECTOR  TABLE 

GET  PDV  ADDRESS 

GET  DDM  NAME 


INDICATE  LINE  IS  UNUSABLE 


SET  "CLEAR  LINE"  FUNCTION  CODE 

SET  CONTROLLER  NUMBER 

SET  UNIT  NUMBER 

GET  DDM  NAME  (RAD50) 

SEND  REQUEST  TO  NTL 


MAKE  A  NULL 

SET  CONTROLLER  NUMBER 

GET  DDM  PDV  INDEX  (SIGN  BIT  NEVER  ON) 

SET  RAD50  DEVICE/PDV  NAME 

DEVICE  "DDM-NUM"  OFFLINE 

RESTORE  R1 


CHECK  REST  ANYWAY 

ALWAYS  RETURN  SUCCESS 
RESTORE  REGISTERS 


SET  TOP  OF  USER  STACK  TO  A  "ONE" 
RETURN  WITH  "BAD  CSR"  INDICATION 


.END 
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181  000132 

032701 

000100 

182  000136 

001404 

183 

18A  000140 

012703 

000010- 

185  OOOUA 

186  000150 

006166 

000004 

187  000154 

006366 

000004 

188  000160 

189 

190  000162 

006001 

191  000164 

103003 

192  000166 

193  000174 

006001 

194  000176 

103003 

195  000200 

196  000206 

016702 

OOOOOOG 

197 

198  000212 

199 

200  000212 

005762 

000020 

201  000216 

001067 

202  000220 

017701 

OOOOOOG 

203  000224 

016100 

000030 

204  000230 

010062 

000016 

205  000234 

0127C1 

000052 

206  000240 

207  000244 

016200 

000016 

208  000250 

006300 

209  000252 

060001 

210  000254 

005000 

211 

212  000256 

213  000262 

214  000266 

103417 

215  000270 

010066 

000002 

216  000274 

017701 

OOOOOOG 

217  000300 

016104 

000030 

21?  000304 

010401 

219  00030C 

006301 

220  000310 

010003 

221  000312 

060100 

222  000314 

010023 

223  000316 

062700 

000052 

224  000322 

005304 

225  000324 

003373 

226 

227  000326 

228 

229  000330 

010062 

000020 

230  000334 

001003 

231  000336 

232 

233  000344 

010067 

000000' 

234  000350 

010167 

000002- 

235  000354 

006201 

236  000356 

016246 

000016 

237  000362 

161601 

BIl 

#NF.LV2,R1 

BEQ 

40$ 

MOV 

#RCP2NM,R3 

CALL 

aSRSTD 

40$: 

ROL 

4(SP) 

ASL 

4(SP) 

50$: 

RETURN 

60$: 

ROR 

Rl 

8CC 

70$ 

EMSG$R 

15 

70$: 

ROR 

Rl 

BCC 

80$ 

EMSG$R 

19 

80$: 

MOV 

$DBXPT,R2 

90$: 

.IF  NOP 

R$$11S 

TST 

N$PLD+2(R2) 

BNE 

150$ 

MOV 

aDECPT.RI 

MOV 

D$NLN{R1),R0 

MOV 

R0,N$PLD(R2) 

MOV 

#P$LEN,R1 

CALL 

$MUL 

MOV 

N$PLD(R2),R0 

ASL 

RO 

ADD 

RO.RI 

CLR 

RO 

SWST|i;$ 

120$ 

CALL 

aALCCB 

BCS 

110$ 

MOV 

R0,2(SP) 

MOV 

aDECPT.RI 

MOV 

D$NLN(R1),R4 

MOV 

R4,R1 

ASL 

Rl 

MOV 

R0,R3 

ADD 

RI.RO 

100$: 

MOV 

R0,(R3)t 

ADD 

#P$LEN,RO 

DEC 

R4 

B6T 

100$ 

110$: 

RETURN 

120$: 

MOV 

R0,N$PLD+2(R2) 

BNE 

136$ 

EMSG$R 

18 

130$: 

MOV 

RO.PLDADR 

MOV 

Rl.PLDLEN 

ASR 

Rl 

MOV 

N$PLD(R2),-(SP) 

sue 

(SP),R1 

*  LEVEL  2  ROUTER  ? 

*  IF  NO  -  BRANCH 

*  POINT  TO  TASK  NAME 

*  IS  LEVEL  2  ROUTING  CONTROL  PR 

*  SAVE  CARRY  ... 

*  IN  2ND  BIT 

*  LEAVE  SYSTEM  STATE 

SET  CARRY  IF  NS  IS  NOT  INSTALLED 
IF  NOT  SET  -  CONTINUE 

NS NOT  INSTALLED 

SET  CARRY  IF  RCPd  OR  2)  IS  NOT  INSTALLED 
IF  NOT  SET  -  CONTINUE 
RCPd  OR  2)  NOT  INSTALLED 
GET  ADDRESS  OF  XPT-S  DDB 


IS  THERE  A  PLD  :  'A  BASE  ? 

IF  NE,  YES 

GET  OECNET  HOME  BLOCK  ADDRESS 

NUMBER  OF  NSP  CHANNELS 

STORE  #  OF  CHANNELS  IN  NSP-S  DB 

GET  SIZE  OF  EACH  PLD 

CALCULATE  SIZE  OF  PLD'S 

GET  NUMBER  OF  CHANNELS  *  2 

UPDATE  NUMBER  OF  BYTES  NEEDED 
ASSUME  FAILURE 

*  ENTER  KERNEL  MODE 

»  TRY  TO  ALLOCATE  THE  PLD  DB 

*  IF  CS,  FAIIURE 

►  ELSE,  RETURN  ADDRESS  IN  USER  RO 
t  GET  DECNET  HOME  BLOCK  ADDRESS 

»  GET  NUMBER  OF  CHANNELS 

k  GET  NUMBER  OF  CHANNELS  *  2 

h 

►  POINT  TO  PLD  ALLOCATION 
»  POINT  PAST  PLD  VECTOR 

*  SET  UP  PLD  VECTOR 

»  POINT  TO  NEXT  ENTRY  IN  PLD 

►  ALL  CHANNELS  PROCESSED? 

*  BR  IF  NO 

;»  BACK  10  USER  MODE 

SAVE  PLD  ADDRESS 

IF  SUCCESFUL  ALLOCATION  -  BRANCH 

PLB  ALLOCATION  FAILURE 

SAVE  PLB  ADDRESS  AGAIN 

AND  LENGTH  OF  THE  PLD  DATA  BASE 

CONVERT  BYTES  TO  WORDS 

GET  NUMBER  OF  CHANNELS  *  2 

DON'T  ZERO  PLD  VECTOR 
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SYMBOL      VALUE 
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ACTCIR 

000004   R 

#5-93 

CCBGT 

=   *»».»*      GX 

7-289 

CEACC 

=   ...».»      GX 

8-364 

CTLNUM 

000003  R 

#5-92 

C.BUF1 

OOOOK 

*7-291 

C.FNC 

000010 

*7-296 

C.LIN 

000006 

•7-293 

C.NSP 

000004 

♦7-294 

C.STA 

000007 

•7-292 

C.STS 

000012 

^''-^1% 

DECPT 

-   »»*»»«      GX 

6-187 

DLMStT 

000772  R 

7-282 

D$NN 

000060 

6-188 

ENAC 

000074  R 

#6-123 

ENALIN 

000610  R 

6-198 

E$NBR 

000014 

#5-72 

ESNBS 

000020 

#5-72 

E$NCR 

000034 

#5-72 

E$NCS 

000036 

#5-72 

ESNIC 

000044 

#5-72 

ESNLEN 

000050 

#5-72 

ESNLLA 

000012 

#5-72 

EtNLNK 

000000 

#5-72 

ESNML 

000040 

#5-72 

ESNMR 

000024 

#5-72 

ESNMS 

000030 

#5-72 

ESNNOD 

000002 

#5-72 

E$NRT 

000042 

#5-72 

ESNRTP 

000005 

#5-72 

ESNSEG 

000010 

#3-72 

ESNTIM 

000046 

#5-72 

ESNUSE 

000004 

#5-72 

ESSTRT 

000006 

#5-72 

FC.CTL 

=  000006 

7-296 

FNDPDV 

=    **♦«»*      GX 

6-118 

FS.STR 

=  001000 

7-296 

H$SVC 

G00036 

8-360 

I$$AS 

r     *  .V  ♦  *  *  ♦ 

5-77 

<ISAR6 

=    «*»*»»      GX 

8-342 

KSAR6 

I    »**«*«      GX 

8-370 

LF.ACT 

=   100000 

#5-74 

LF.BRO 

=  000400 

#5-74 

LF.BWT 

=  000007 

#5-74 

LF.ENA 

=  002000 

#5-74 

LF.LPB 

=  001000 

#5-74 

LF.MDC 

=  000100 

#5-74 

LF.MFL 

=  004000 

#5-74 

LF.MTP 

=  000020 

#5-74 

LF.PAC 

=  000200 

#5-74 

LF.RDV 

=  040000 

#5-74 

LF.REA 

=  010000 

#5-74 

LF.SER 

=  000040 

#5-74 

•6-119 
•6-166 


6-231 
#8-328 
6-232 
6-249 
6-241 


•8-344 

6-132 
6-135 

6-214 


6-125 


6-190 
8-366 
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CREF       04.00 
•6-196 


6-234 


•6-240 


#7-269 


8-359 
6-200 

6-236 


•8-371 
6-243 


•8-374 


NTIMFE 
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A$$CHK= 

A$$CPS= 

A$tPRI= 

At$TRP= 

BUFUMP= 

CMODE  = 

C$$CKP= 

C$$ORE= 

C$$R5H= 

DLMMFL 

DS$BUG= 

D$$ISK= 

DS$L11= 

Dt$YNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

IS$RAR= 

I$$RDN= 

KISARO= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

<$$TPS= 

LDSLP  = 

LF.ACT= 

LF.BRO= 

LF.SWT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RD"- 

LF.RF  = 

LF.SLR= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 


000000 

000000 

000000 

000000 

172354 

HOOOO 

000000 

OOO'i.OO 

177564 

000344R 

1775U 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

172340 

172354 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

oo::40 

000010 
020000 
000000 
000000 


.  ABS.   177776 
000466 
DATA    000104 
Errors  detected: 


000 
001 
002 
0 


LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFN 

LR.LIN 

LR.PRM 

LR.FRO 

LR.STS 

LR.TCB 

LR.UNT 

LS.AST= 

LS.CEX= 

LS.C1R= 

LS.CXO= 

LS.CX5= 

LS.DLI«I= 

LS.ECH= 

LS.FDX= 

LS.HDX= 

LS.LIN= 

LS.LMC= 

LS,NT1= 

LS.ON  = 


000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000006 

000006 

000014 

000004 

000010 

000010 

000014 

000015 

000012 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 

000005 

100000 

000001 

000010 

010000 

000400 

004000 

001000 

004000 

010000 

000003 

000007 

004000 

000011 


fRW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


Assembler  statistics 


Work   file  reads:  0 
Work   file  writes:  0 


LS.OPT= 
LS.PRO= 
LS.PWF= 
LS.TOP= 
LS.UNF= 
LS.X25= 
LS.11D= 
LX.CEX= 
LX.LIN= 
LX.PRO= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 


COST 

CTL 

CVA 

DDM 

DDS 

DEC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NHST 
L.NSTA 
L . OWNR 
L.UNT 
MPAR  = 
MPCSR  = 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$P1GE  = 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 


000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
172100 
177746 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 


n  12 

N$$PEM= 

000001 

UISARO= 

177640 

PDVFLG 

OOOOOOR 

002  UISAR1= 

177642 

PDVNM  = 

***♦♦•  GX 

V$$CTR= 

001000 

PDVTA  = 

«**»*♦  GX 

X$fD8T= 

000000 

PIRQ  = 

177772 

71  .lOU= 

001000 

PMODE  = 

030000 

ZF.DDM= 

000001 

PRO   = 

000000 

ZF.DIA= 

004000 

PR1 

000040 

ZF.DLC= 

000002 

PR2 

000100 

ZF.DVP= 

100000 

PR3   = 

000140 

ZF.JNI= 

040000 

PR4 

000200 

ZF.KMX= 

000020 

PR5 

000240 

ZF.LLC= 

000004 

PR6 

000300 

ZF.LMC= 

000100 

PR7 

000340 

ZF.MAN= 

020000 

PS 

177776 

ZF.MFL= 

000010 

P$$P45= 

000000 

ZF.HTMr 

000400 

P$$WRD= 

000000 

ZF.MUX= 

000040 

Q$$OPT= 

000010 

ZF.PSE= 

002000 

RI$DER= 

000000 

ZF.SLI= 

010000 

R$$K11= 

000001 

ZF.TIM= 

000200 

R$$SND= 

000000 

ZF.X3P= 

000000 

R$$11M= 

000000 

Z$.ASN= 

•  00000 

SF.ACT= 

000200 

ZS.BSY= 

140000 

SF.ENA= 

000100 

Z.AVL 

000C14 

SF.LPB= 

000004 

Z.DAT 

000016 

SF.MFL= 

000040 

Z.DSP 

000000 

SF.PAC= 

000020 

Z.FLG 

000010 

SF.REA= 

000010 

Z.LEN  = 

000016 

SF.SER= 

000001 

Z.LLN 

000006 

SF.SVC= 

000002 

Z.MAP 

000020 

SF.UNL= 

000040 

Z.NAM 

000004 

SLTMA  = 

*«**♦*  GX 

Z.PCB 

000012 

SLTNM  = 

******  GX 

Z.SCH 

000007 

SWR 

177570 

$ERR30 

000002R    002 

S$$WRG= 

000000 

$ERR31 

000042R    002 

S$$YSZ= 

007600 

SNERDD^ 

******  GX 

S.COST 

000001 

$NER50= 

******  GX 

S.FLG 

000000 

$NIERA= 

******  GX 

S.LEN 

000004 

$NIERR= 

******  GX 

S.NMST 

000002 

$NIFLG= 

******  GX 

S.OUNR 

000003 

SNIMFL 

OOOOOORG 

TPS 

177564 

$NINTL= 

******  GX 

T$$KMG= 

000000 

$NTLFC= 

******  GX 

T$$MIN= 

000000 

$SAVRG= 

******  GX 

UBMPR  = 

170200 

.BASEB= 

140000 
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159 

160 
161 
162 
163 
16A 


165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20A 

205 

206 

2f)7 

208 

209 

210 

211 

212 


000230  015  116 

000233  111  116 

000236  124  040 

000241  055  040 
000243 


000352 

0004  30 
000462 
000520 


000606  000000 
0006^0  OCOOOOG 
000612  172354 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGE  BUFFER 


124  NTIERN:  .ASCII  <15>/NTINIT  —  / 

111 

055 

NTIER8:  .BLKB   70. 
.EVEN 


.-MESSAGE  PREFIX  (NAME  OF  NTINIT) 


.-MESSAGE  BODY 


ERROR  MESSAGES 

MESSAGES  IN  THIS  MODULE  SHOULD  BE  NUMBERED  01  TO  09 

MESSAGES  10-11  ARE  IN  NTICEX 

MESSAGES  11-19  ARE  IN  NTILON 

MESSAGES  20-24  ARE  IN  NTICSR 

MESSAGES  25-29  ARE  IN  NTIKPN  OR  NTIKLC 

MESSAGES  30-34  ARE  IN  NTIMFL 

MESSAGES  35-39  ARE  IN  NTIMFE 

MESSAGES  40-44  ARE  IN  NTIX25 

THE  MAIN  ERROR  PROCESSOR  IS  "SNIERR" 

ASTERISK  REPLACERS  ARE: 

$NER50  -  INSERT  RAD50  STRING  FROM  SNIERA 

$NERDN  -  INSERT  RAD50  STRING  FROM  SNIERA  AND  DECIMAL  NUMBER  FROM  $NIERAt2 
SNERDD  -  INSERT  RAD50  STRING  FROM  SNIERA,  DECIMAL  NUMBER  FROM  $NIERA+2, 
AND  DECIMAL  NUMBER  FROM  SNIERA+4 

SECOND  LINE  FORMATTING  AND  PRINTING  IS  NOT  SUPPORTED 


.ENABL  LC 

.IF  NDF  RSS11S 
NTLERS  ,02, NONE, SNIERR, 

.ENDC 
NTLERS  ,03, NONE, SNIERR, 

NTLERS  ,04,NONE,SNIERR,,, -  ..  

NTLERS  <:>, 12, NONE, SNIERR, ,,<L'ne  in  Wrong  State,  Only  First  Line  Enabled> 

.DSABL   LC 
VECTORED  EXEC  TABLE 


,<Network  Loader  (NTL...)  Not  Installed> 

,,<IUegal  Function> 
,<Comm  Exec  Not  Loaded> 


EXEVEC 
FMASK: 
KSAR6: 


HFMSH 
SAHDB 
SAHPT 
URMST 
NCPU: 


.WORD   0 

SFMASK 

MSAR6 


RSX-11M*  VECTORED  SYMBOLS 


.IF  DF 

SHFMSK 

SSAHDB 

SSAHPT 

SURMST 

SNCPJ 

.ENDC 


RISMPl 
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705 
704 
7CS 
706 
707 
708 
70" 
710 
711 
712 
713 
714 

715  000750 

716  000754 

717  000760 

718  000764 

719  000766 

720  000770 
721 

722 
723 
724 
725 

726  000772 

727  000776 

728  001002 

729  001006 

730  001010 
731 

732 
733 
734 
735 
736 

737  001014 

738  001020 

739  001024 

740  001026 

741  001032 

742  001034 

743  001040 
744 

745 


.S8TTL   ERROR  SUBROUTINES 


tNER50  -  INSERT  A  RAD50  STRING 

SNERDN  -  INSERT  A  RAD50  STRING  AND  A  DECIMAL  NUMBER 

SNERDD  -  INSERT  A  RAD50  STRING  AND  TWO  DECIMAL  NUMBERS 


.If  NDF  S$$8AS 
SNIERA       =   RAD50  WORD 


016701  000010' 

122740  000040 

001775 

005200 


112720  000055 
016701  000012' 
005002 


016701  000014' 

100405 

112720  000055 

005002 


iNER50: :M0V 
CALL 

10$:    CMP8 
BED 
INC 
RETURN 


SNIERA 
$NIERA+2 

iNERDN::CALL 
MOVB 
MOV 
CLR 
CALLR 


$NIERA 

$NlERAt2 

$NIERA+4 

iNERDD::CALL 
MOV 
BMI 
MOVB 
CLR 
CALLR 
RETURN 


10$: 


.ENDC 


SNIERA, Rl 

SC5TA 

*'  ,-(R0) 

10$ 

RO 


=  RAD50  WORD 

=  DECIMAL  NUMBER 

$NER50 

#'-,(R0)' 

$NIERAt2,Rl 

R2 

$C8DMG 


=  RAD50  WORD 

=  DECIMAL  NUMBER 

=  DECIMAL  NUMBER  (IF  MI, 

$NERDN 

$NIERAt4,Rl 

10$ 

#'-,(RO)t 

R2 

SCBDMG 


GET  RAD50  NAME 

INSERT  RAD50 

SKIP  TRAILING  BLANKS 

ADJUST  FOR  AUTO-DECREMENT 


INSERT  RAD50  STRING 
PUT  IN  THE  SEPARATOR 
GET  OCTAL  NUMBER 
ZERO  SUPPRESS 
PUT  IN  DECIMAL  NUMBER 


DON'T  PRINT) 

PUT  IN  RAD50  AND  FIRST  OCTAL 

GET  SECOND  NUMBER 

IF  MI,  DON'T  PRINT 

PUT  IN  SECOND  SEPARATOR 

ZERO  SUPPRESS 

PUT  IN  DECIMAL  NUMBER 
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tNlERR 
IN  I  Eve 
SNUlG 
SMFNC 

tNRON 

tNIMRK 

SNINTL 

SNIPRM 

tNIRDB 

SNIRNL 

SNIRTN 

SNISNL 

tNIXPT 

$NIX25 

SNTLFC 

SNTLPT 

SPDVID 

$PDVNM 

$PDVTA 

SPSIPI 

$PUMR 

$OASTT 

SSLTMA 

$5lTNM 

$SRSTD 

STKPS 

STKTCB 

SrHLlOO 

ITISCL 

$T100C 

STIOOQ 

SUMRPT 

t$$ARG 


$$$GLB 


${$$ 

.BASES 

.CXALL 

.CXCSR 

.CXLBR 

.CXLB1 

.CXLB2 

.CXLEN 

.CXPCB 

.CXSVM 


O0OS76  RC 
000102  RG 
000226  RG 
00020A  RG 

•»«•«•  GX 

00007C  R 
000376  RG 
000122  R 
000032  RG 
000134  PG 
000026  Rj 
000152  R.-. 
000002  R( 
......  (X 

000164  RG 

......  cx 

......  cx 

......  GX 

......   GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
:  ......  GX 

r  ......  GX 

=  ......  GX 

=   000002 


:  **»♦•* 


=  ♦•*»•» 


****  t  * 


000006 


000000 
140000 
000062 
000004 
000060 
000030 
000044 
000064 
000006 
000010 


REFERENCES 

7-190 
#6-110 
#6-127 

6-122 
•9-434 

9-404 
#6-109 
#11-556 
#6-113 
#6-106 
#6-118 

6-104 
#6-119 
#6-98 

9-428 

6-119 

7-234 

7-247 

7-246 

7-250 

7-241 

7-218 

7-221 

7-232 

7-233 

7-215 

7-223 

7-220 

7-238 

7-24  3 

7-236 

7-237 

7-214 
#13-689 
#13-689 

13-689 

13-689 

13-689 

6-104 
#6-104 

6-118 

6-122 
#17-846 
#5-77 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 


7-192 

9-403 

•9-440 

#6-123 

•9-436 

9-401 

•8-306 
8-305 
11-559 

#6-105 
11-557 

•12-586 

#6-120 


13-689 

13-689 

13-689 

13-689 

13-689 

6-109 

6-104 

6-118 

6-122 

17-851 


n 

15 

1:04 

PAGE  6 
CREF       04. 

00 

7-193 

7-194 

#13-636 

9-427 

16-799 

•1b-825 

8-303 

9-361 

9-367 

9-369 

9-389 

9-393 

9-415 

•16-822 

•16-823 

•16-824 

17-872 

9-425 

17-871 

8-306 

6-116 

16-798 

•12-604 

•16-806 

#13-689 

13-689 

#13-689 

:  3-689 

#13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-609 

13-689 

13-689 

13-689 

#13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

#13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

13-689 

6-110 

6-116 

6-118 

6-119 

6-122 

6-124 

#6-110 

6-110 

6-110 

6-110 

#6-116 

6-116 

#6-118 

6-118 

#6-119 

6-119 

6-119 

6-119 

#6-122 

6-122 

#6-124 

6-124 

6-^24 

6-124 

NTINIT 
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MArRo  NAME 

REFERENCES 

CAU 

6-96 

6-1U 

CALiR 

7-152 

CLHDf$ 

#5-60 

5-bJ 

MTP5 

6-98 

6-1.1 

NHUDft 

#5-6C 

5-62 

RE'JRN 

6-119 

7-15S 

SWS'>t 

6-96 

8-194 
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VUNL  CRE'^ED  B"     MACRO     ON  l6-SE'^-85   AT   07:31 

SYMBOL   CROSS  »EfERENCE 


N     1 

PAGE   1 
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LC 


SYMBOL 

VAL'Jf 

REFERENCES 

AB 

-       •••♦•* 

GX 

14-793 

14-794 

AtLEN 

00000'. 

10-488 

A.ACC 

000020 

#5-81 

21-1520 

A.LNK 

000000 

#5-81 

A.NAM 

000002 

#5-81 

A .  P.jD 

000010 

#5-81 

A. REM 

000012 

#5-81 

A.aCB 

000010 

#5-81 

BLOCI', 

000012 

R 

#6-138 
23-1759 

22-1594 
23-1773 

22- 

1626 

CLQREM 

r     *»**•* 

GX 

21-1284 

COUNT 

000116 

R 

#6-153 

»23-1699 

•23- 

■1712 

CSRUNL 

003A40 

R 

14-686 

#20-1204 

DDMAC 

000122 

R 

#6-159 

14-755 

•  15- 

•877 

DEAECL 

001226 

R 

8-379 

#11-523 

DEAXPT 

00056^. 

R 

8-374 

#10-441 

DEVEC 

000000 

R 

#7-203 

DLCAC 

000120 

R 

#6-158 

14-772 

•  15- 

-876 

DSI7E 

=      *»♦*♦♦ 

GX 

21-1272 

DSANN 

000000 

21-1512 

D$END 

=  000104 

10-485 

21-1389 

21 

-1509 

DSNBEA 

000056 

10-487 

SNBRA 

000054 

10-486 

I  i='■J^I 

000002 

21-1541 

: .    :,P 

r     ♦*»*•* 

GX 

♦21-1482 

D.NAM 

=     ****** 

GX 

21-1471 

21-1473 

21 

-1475 

D.PCB 

r     ****** 

GX 

21-1469 

21-1480 

*21 

-1483 

EPRA 

001606 

R 

13-626 

#13-628 

ERR44 

003126 

R 

17-1065 

#17-1068 

ERR77 

003664 

R 

20-1234 

#20-1256 

ESNBR 

000014 

*5-85 

ESNBS 

000020 

#5-85 

ESNCR 

000034 

#5-85 

EtNCS 

000036 

#5-85 

ESNIC 

000044 

#5-85 

ESNLEN 

000050 

#5-85 

11-527 

EtNLLA 

000012 

#5-85 

ESNLNK 

000000 

#5-85 

ESNML 

000040 

#5-85 

E$NMR 

000024 

#5-85 

ESNMS 

000030 

#5-85 

ESNNOD 

000002 

#5-85 

E$NRT 

000042 

#5-85 

ESNRTP 

000005 

#5-85 

ESNSEG 

000010 

#5-85 

E$NT1M 

000046 

#5-85 

EINUSE 

000004 

#5-85 

ESSTRT 

000006 

#5-85 

CATAL 

=  *♦♦*** 

GX 

20-1234 

FE.CEX 

r     ♦♦* t** 

CX 

21-1256 

21-1386 

FF.ADD 

=  000020 

#5-80 

5-80 

FF.  "IR 

=  000040 

#5-80 

5-80 

2-'-1630         22-1639        23-1725         23-1727         23-1736         23-1755 


•23-1714       •23-1722 


21-1538 


21-1477 
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LOCAL  SYMBOL  DEFINITIONS 

.SBTTL  LOCAL  SYMBOL  DEFINITIONS 


SAVED  REGISTER  OFFSETS  FOR  SSAVAL 

R$RO  =  2 
R$R1  =  4 
R$R2  =  6 
R$R5  :=  10 
R$R4  =  12 

rsr:;  =  14 


86 

87 

88 

89 

90 

91 

000002 

92 

000004 

93 

000006 

94 

000010 

9S 

0000:2 

c  ; 

0OOC14 
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522 
S23 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 


002046 

002052 

002056 

002074  016746  OOOOOOG 

002100  005067  OOOOOOG 

002104 

002110  012600 

002112  001422 

002114 

002124 

002142  016746  OOOOOOG 

002146 
002150 
002154 
002156  000754 


.SSTTL  DEALST  -  DEALLOCATE  LIST  OF  DATA  BLOCKS 


DEALST  -  DEALLOCATE  LIST  OF  DATA  BLOCKS 

INPUTS: 

R1  -  LENGTH  OF  BLOCK  TO  DEALLOCATE 
R3  -  ADDRESS  OF  I ISTHEAD 

OUTPUTS: 

ALL  BLOCKS  IN  THE  LIST  ARE  DEALLOCATED  AND  THE  LISTHEAD  IS  ZEROED 
R0,R2  DESTROYED 


DEALST:  CALL 

SAVMAP 

GETRV 

MOV 

CLR 

PUTRC 


SSAVAL 

R3,#2 

$8FR,- 

$8FR 


(SP) 


10$: 


002160 
002164 


20$: 
3C$: 


000001 


MOV 

BEQ 

CEACC$ 

GETAD 

MOV 

SAVRG 
CALL 
RESRG 
BR 

RESMAP 
RETURN 

.END 


(SP)  + 

20$ 

R0,?2 

R2,#2 

$BFR, 

<R1> 
SDEPOL 
<R1> 
10$ 


,R0 


(SP) 


SAVE  ALL  REGISTERS 

READ  IN  LISTHEAD 
SAVE  FIRST  BLOCK  ADDRESS 
AND  ZERO  LISTHEAD 
WRITE  UPDATED  LISTHEAD 

GET  THE  NEXT  BLOCK  IN  LIST 
IF  EQ,  END  OF  LIST 
CONVERT  TO  MAPPED  ADDRESS 
READ  IN  POINTER  TO  NEXT  BLOCK 
GET  THE  NEXT  BLOCK  IN  LIST 

SAVE  LENGTH  OF  BLOCK 
DE-ALLOCATE  THE  BLOCK 
RESTORE  LENGTH  OF  BLOCK 
AND  GO  AGAIN 
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257 
258 
259 
260 
261 
262 
263 
26^ 
265 
266 
267 

268  000434 

269  000A34 

270  0004A0 

271  O0OA42 

272  000446 

273  000450 

274  000454 

275  000460 

276  000462 

277  000466 

278  000470 

279  000474 

280  000476 

281  000502 

282  000510 


STMRDY  -  MARK  SLT  AS  READY  AND  ACTIVE  IF  APPROPRIATE 

INPUTS: 

RO=SLT  ADDRESS 


016701  OOOOOOG 

001403 

005761  OOOOOOG 

001420 

016701  OOOOOOG        5$: 

005761  OOOOOOG 

001413 

005760  OOOOOOG 

001410 

005760  OOOOOOG 

001405 

052760  OOOOOOG  OOOOOOG 

50$: 


OUTPUTS: 

R1,P2=DESTR0YED 

LF.RDY  SET  IF  DDM,  OLC, 

STMRDY: 


MOV 

$DLCPV,R1 

BEQ 

5$ 

TST 

z.Pca(Ri) 

BEQ 

50$ 

MOV 

$DD|V|PV,R1 

TST 

Z.PC8(R1) 

BEQ 

50$ 

TST 

L.DDS(RO) 

BEQ 

50$ 

TST 

L.DLS(RO) 

BEQ 

50$ 

CALL 

MANINI 

BIS 

#LF.RDY,L 

RETURN 

DDM  LINE  TABLE,  AND  DLC  LINE  TABLE  ARE  IN  CORE 


GET  DLC  PDV  ADDRESS 
IF  EQ,  COMBINATION  DDM/DLC 
IS  DLC  CORE-RESIDENT? 
IF  EQ,  NO 

GET  DDM  PDV  ADDRESS 
IS  DDM  CORE-RESIDENT? 
IF  EQ,  NO 

IS  DDM  LINE  TABLE  PRESENT? 
IF  EQ,  NO 

IS  DLC  LINE  TABLE  PRESENi? 
IF  EQ,  NO 
,  INITIALIZE  MANAGEMENT  FIELDS 
.FLG(RO)  ;  MARK  LINE  AS  READY 


J 


N     S 

VXIT 

CREATED  BV 

MACRO     ON  29- 

■JUN-85  AT  03 

12 

PAGE 

2 

MACRO   CROSS 

RE 

ERENCE 

CREF 

OA.OO 

MACRO  NAME 

REFERENCES 

CALL 

5-107 

5-109 

5-111 

5-113 

5-150 

CALLR 

5-87 

5-91 

CLOSES 

#5-71 

5-186 

OHBDFS 

#5-72 

5-75 

DIRS 

#5-1<'1 

5-191 

ERBLKS 

#5-72 

5-200 

ERMSGS 

#5-72 

5-199 

ERRPTS 

#5-72 

5-197 

ERRt 

#5-186 

5-186 

EXITSS 

#5-71 

5-191 

GETRC 

#5-71 

5-172 

GETRV 

#5-71 

5-150 

LDFDBS 

#5-186 

5-186 

PUTAD 

#5-71 

PUTRC 

#5-71 

5-107 

5-109 

5-111 

5-113 

RAND 

#5-107 
#5-172 

5-107 
5-172 

#5-109 

5-109 

#5-111 

SWTCH! 

#5-71 

5-U5 

SWTCHO 

#5-71 

5-106 

5-108 

5-110 

5-112 

5-156  5-163  5-1/2  5-180  5-197 


5-111    #5-113     5-113    #5-150     5-150 
5-H6 
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112  000216 

115  000220 

HA  030226 

115  000232 

116  000236 
11?  000242 
118 

119 


000411 
01676/ 


000060G  00001 OG  30$: 


016701  OOOOOOG 


000001 


40$: 


BR 

MOV 

PUTRC 

MOV 

CALL 

RETURN 

.END 


40$ 
$8FR+60,P.SU8t$eFR 

.PLGTH,R1 
$DEA16 


UNLINK  OUR  SUe-PCB 
REWRITE  UPDATED  PCS 
GET  PCB  LENGTH 
DE-ALLOCATE  SU8-PCB 
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286 

287 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 


••♦  -  INILIN  -  REINITIALIZE  HRC 

THIS  SUBROUTINE  IS  U':ED  AS  A  GENERALIZED  INTERFACE  TO  REQUEST  HRC... 
TO  REINITIALIZE  ITSElF  AFTER  THE  I/O  DATA  BASE  HAS  BEEN  CHANGED. 

INPUT: 


NUNE. 

OUTPUT: 

HRC... 


INITIALIZED  OR  ERROR  MESSAGE  PRINTED 


INILIN: 


1$: 


5$! 


10$: 
20$: 


000001 


.If  DF 
CALL 
MOV 
MOV 

MOV 
BIT 
BNE 
DEC 
BNE 
BR 

ALUN$S 
BCS 

OIOW$S 

BCS 

OIOW$S 


ROR 

QIOU$S 

ROL 

BCS 

TSTS 

BPL 

EMSG$R 

RETURN 
.ENDC 


.END 


R$$MPL 
$SAVAL 
SSLTMA,R5 
aSLTNM.R^ 

(R5)+,R3 

#LF,RDY,L.FLG(R3) 

5$ 

M 

1$ 

20$ 

#3,#"RD,*0 
20$ 

#IO.ATT,#3,#32.,,#STATUS 

20$ 

#IO.HRC,#3,#32.,,#STATUS 


R1 

#IO.DET, 

R1 

10$ 

STATU": 

20$ 

11 


*3,#32. 


SAVE  REG'S 

GET  START  OF  SLT'S 

GET  NUMBER  OF  SLT'S 

GET  NEXT  SLT  ADDRESS 

IS  AT  LEAST  ONE  LINE  LOADED  ? 

IF  YES  -  INIT  HRC... 

COUNT  ONE  LESS  SLT 

IF  MORE  -  BRANCH 

CONTINUE 

ASSIGN  LUN  TO  RDO: 
IF  CS,  EXIT 

;  ATTACH  TO  THE  RDO: 
IF  CS,  EKROR 
,<#M$INIT,#M$INIT> 
REQUEST  HRC...  TO 
REINITIALIZE  ITSELF 
SAVE  ERROR  STATUS 

DETACH  FROM  RECONFIGURAI lON  DRIVER 
RESTORE  CARRY 
IF  CS,  EXIT 

WAS  THE  QIO  SUCCESSFUL  ? 
IF  PL,  YES 
ELSE,  INDICATE  ERROR 
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A$$CHK= 

000000 

LF.ENA= 

002000 

L.DDM 

000002 

PR6   = 

000300 

ZF.DDM= 

000001 

AtSCPS= 

000000 

LF.LPB= 

001000 

L.DDS 

000004 

PR7   = 

000340 

ZF.DIA= 

004000 

A$$PRI= 

000000 

LF.MDC= 

000100 

L.DLC 

000003 

PS    = 

177776 

ZF.DLC= 

000002 

A$$TRP= 

000000 

LF.MFL= 

004000 

L.DLM 

000006 

P$$P45= 

000000 

ZF.DVP= 

100000 

3UFUMP= 

17235'; 

LF.MTP= 

000020 

L.DLS 

000010 

P$$URC- 

000000 

7F.INI= 

040000 

CMODE  = 

HOOOO 

LF.PAC= 

000200 

L.FLG 

000000 

Q$$OPT= 

000010 

ZF.KMX= 

000020 

CSRDIS 

000006R 

002 

LF.RDY= 

040000 

L.KRBA 

000016 

R$$DER= 

000000 

ZF.LLC= 

000004 

CSRENA 

OOOOOOR 

002 

LF.REA= 

010000 

L.LEN  = 

000022 

R$$K1U 

000001 

ZF.LMC= 

000100 

CSRSLT 

00001 6R 

002 

LF.SER= 

000040 

L.MPF 

000022 

R$$SND= 

000000 

ZF.MAN= 

020000 

CSRTAB 

OOOOUR 

002 

LF.TIM= 

000010 

L.NMST 

000020 

R$$11M= 

000000 

ZF.MFL= 

000010 

CSRTRP 

00027AR 

LF.UNL= 

020000 

L.NSTA 

000014 

SF.ACT= 

000200 

ZF.MTM= 

000400 

C$$CKP= 

000000 

LF.X2P= 

000000 

L.OWNR 

000021 

SF.ENA= 

000100 

ZF.MUX= 

000040 

C$tORE= 

OOO-iOO 

LN.CLO= 

000000 

L.UNT 

000013 

SF.LPB= 

000004 

ZF.PSE= 

002000 

C$$RSH= 

17756A 

LN.DUM= 

000005 

MPAR  = 

172100 

SF.MFL= 

000040 

ZF.SLI= 

010000 

D$$BUG= 

17751A 

LN.LOA= 

000004 

MPCSR  = 

177746 

SF.PAC= 

000020 

ZF.TIM= 

000200 

D$$ISK= 

000000 

LN.LOO= 

000003 

M$$CRB= 

000124 

SF.REA= 

000010 

ZF.X3P= 

000000 

D$$L11= 

000001 

LN.OAU= 

000003 

M$$CRX= 

000000 

SF.SER= 

000001 

ZS.ASN= 

100000 

0$$YNC= 

000000 

LN.OFF= 

000001 

M$$FCS= 

000000 

SF.SVC= 

0229°? 

ZS.BSY= 

140000 

D$$YNM= 

000000 

LN.ON  = 

000000 

M$$MGE= 

000000 

SF.UNL= 

000040 

Z.AVL 

000014 

E$$XPR= 

000000 

LN.OOP= 

000004 

M$$NET= 

000000 

SWR 

177570 

Z.DAT 

000016 

F$$LVL= 

000001 

LN.OPE= 

000001 

M$$OVR-- 

000000 

S$$URG= 

000000 

Z.DSP 

000000 

G$'TPP= 

000000 

LN.REF= 

000002 

N$$ACC= 

000001 

S$$YSZ= 

007600 

Z.FLG 

000010 

G$$TSS= 

000000 

LN.SER= 

000002 

N$$BUF= 

000001 

S.COST 

000001 

2.LEN  = 

000016 

G$$TTK= 

000000 

LN.STA= 

000017 

N$$LDV= 

000001 

S.FLG 

000000 

I. ILK 

000006 

G$$WRD= 

000000 

LN.sua= 

000360 

N$$MCP= 

000001 

S.LEN 

000004 

Z.MAP 

000020 

$$RAR= 

000000 

LN.TRI= 

000006 

N$$MLL= 

000001 

S.NMST 

000002 

Z.NAM 

000004 

$$RDr.'= 

000000 

LR.CTL= 

****** 

GX 

N$$MOV= 

000010 

S.OUNR 

029221 

Z.PCB 

000012 

KISARO= 

172340 

LR.LIN= 

****** 

GX 

N$$NCT= 

000001 

S.VTTA= 

000002 

Z.SCH 

000007 

K1SAR6= 

17235A 

LR.STS= 

****** 

GX 

N$$PEM= 

000001 

S.VTTL= 

000004 

$ERR20 

000020RG 

KSAR6  = 

«»*♦*«  GX 

LR.UNT= 

****** 

GX 

PDVTA  = 

******  GX 

TPS 

177564 

$NERDN= 

******  GX 

K$$CNT= 

177546 

LX.L1N= 

****** 

GX 

PIRQ  = 

177772 

T$$KMG= 

000000 

SNICSR 

OOOOOORG 

K$$CSR= 

1775A6 

L$$ASG= 

000000 

PMODE  = 

030000 

T$$MIN= 

000000 

$NIERA= 

******  GX 

K$$LDC= 

000000 

L$$DRV= 

000000 

PRO   = 

000000 

LBMPR  = 

170200 

$NIERR= 

******  GX 

K$$rPS= 

000074 

L$$P11= 

000001 

PRl   = 

000040 

UISARO= 

177640 

$NINTL= 

**»♦*♦  GX 

LD$LP  = 

000000 

L$$11R= 

000000 

PR2 

000100 

U.'SAR1  = 

^'''"kil 

$NTLFC= 

******  GX 

LF .ACT= 

100000 

L.COST 

000015 

PR3   = 

000140 

V$i:TR= 

001000 

$$$0ST= 

000006 

LF.BRO= 

OOOAOO 

L.CTL 

000012 

PR4 

000200 

X$$DBT= 

000000 

.BASEB= 

140000 

LF.SWT= 

000007 

L.CVA 

177776 

PR5 

000240 

ZF.COU= 

001000 

.  ABS. 

177776 
000302 

000 
001 

(RW,1,GBL.A8S,0VR) 
(RW,I,LCL,REL,rON) 

DATA 

000052 

002 

(RW,D,LCL,REL, 

ON) 

Errors 

detected: 

0 

♦•♦  Assembler  statistics 

Work   f 

ite  reads 

0 

Work   f 

ile  writes 

0 

Size  of 

work  file 

U216  Words 

(  56  P 

ages) 

Size  of 

core  pool 

15496  Words 

(  59  P 

ages) 

Ooe rating  system 

RSX- 

IIM/PLUS 

SYfNTICSR'v2;£132,134]NflCSR/CR/-SP=SY:[1.1]RSXMCM.SML/ML,[130,110]NETLI8/ML,[130,10jRSXMCM/PA:1,C132,10]NTICSR 
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238  000364 

006316 

ASL 

(SP) 

239  000366 

062600 

ADD 

(SP)+,RO 

240  000370 

005020 

140$: 

CLi< 

(R0)  + 

241  000372 

242 

243 

SOB 

R1,U0$ 

.ENDC 

;  NDF  R$$11S 

244 
245 
246  000376 

017701 

OOOOOOG 

150$: 

MOV 

SDECPT.Rl            ; 

247  000402 

005761 

000054 

TST 

D$N8RA(R1) 

248  000406 

001426 

BEQ 

270$ 

249  000410 

016101 

000054 

MOV 

D$N8RA(R1),R1 

250  000414 

062701 

000077 

ADD 

#77, Rl 

251  000420 

042701 

000077 

SIC 

#77, R1 

252  000424 

005000 

CLR 

RO                 ; 

253  000426 

SWSTK$ 

260$ 

254  000432 

CALL 

SALOCB 

255  000436 

103406 

BCS 

250$ 

256  000440 

010066 

000002 

MOV 

R0,2(SP) 

257  000444 

006201 

ASR 

Rl                  ; 

258  000446 

005020 

240$: 

CLR 

(R0)  + 

259  000450 

SOB 

R1,240$ 

260  000454 

261 

262  000456 

250$: 

RETURN 

010062 

000076 

260$: 

MOV 

R0,N$PRI(R2)          ; 
376$ 

263  000462 

264 

265  000464 

001447 

BEQ 

270$: 

DIR$ 

#L0NACP 

266  000472 

103003 

BCC 

290$ 

267  000474 

012703 

000566' 

MOV 

#350$, R3 

268  000500 

269 

270  0C0502 

271 

272  000506 

000416 

BR 

320$ 

016702 

OOOOOOG 

290$: 

MOV 

$D8ECL,R2 

132762 

000040  000005 

300$: 

BITS 

«'NF$M0U,N$FLG(R2) 

273  000514 

001004 

BNE 

310$ 

274  000516 

WSIG$S 

275  000524 

000770 

BR 

300$               ; 

276  or '526 

310$: 

CALL 

$NIMFE 

277  0  ■'.  ;32 

000241 

CLC 

278  0OU534 

RETUR-: 

279 

280 

:8i 

;  DE- 

ALLOCATE  THE  PLD  DATA  BASE 

282 

283  000536 

284 

285  000536 

^20$: 

.IF  NDF 

R$$11S 

SWSTK$ 

330$ 

286  000542 

016700 

OOOOOO' 

MOV 

PLDADR.RO 

287  000546 

016701 

000002' 

MOV 

PLDIEN,R1 

288  000552 

289 

290 

291 

292  000556 

CALLR 

SDEACB 

.ENDC 

;  NDF  R$$11S 

000113 

330$: 

JMP 

(R3) 

293 

294  000560 

rm. 

EMSG$R 

15 

CONVERT  VECTOR  TABLE  TO  BYTES 
POINT  PAST  PLD  VECTOR 
ZERO  OUT  THE  PLD'S 
LOOP  Rl  TIMES 


GET  DECNET  HOMEBLOCK  ADDRESS 

ANY  ROUTER  ADJACECIES 

IF  NOT  -  BRANCH 

GET  NUMBER  OF  BROADCAST  ROUTER  ADJACENCIES 

ROUND  UP  TO  32.  WORD  BLOCK 

ASSUME  FAILURE 

MAP  TO  SYSTEM  STATE 

•  ALLOCATE  SPACE  FROM  DSR  FOR  P 
»  IF  FAILURE  -  BRANCH 

*  INDICATE  SUCCESS  THRU  USER  RO 

*  GET  THE  NUMBER  OF  WORDS  ALLOCATED 

♦  CLEAR  PRIORITY  DATA  BASE 

•  ALL  OF  IT 

*  LEAVE  SYSTEM  STATE 

SET  UP  XPT  DATA  DASE  WITH  PRIORITY  ADDRESS 
IF  ALLOCATION  FAILURE  -  REPORT  ERROR 

REQUEST  THE  ACP 

IF  SUCCESS  -  BRANCH 

ELSE  -  SET  LP  ERROR  POINTER 
CONTINUE 

GET  ADDRESS  OF  ECL'S  DDB 

HAS  THE  NETWORK  BEEN  MOUNTED  YET? 
BR  r  YES 

wait  for  netacp  to  run 

do'marked-for-enable  scan 
..success  -  all  done 


*  ENTER  KERNEL  MODE 

»  GET  THE  PLD  DB  ADDRESS 

»  AND  LENGTH 

*  DE-ALLOCATE  BLOCK 


DE-ALLOCATE   THE  VCB  OR  PRINT   ERMSG 
ALUN$   FAILURE   OR  NS   LOAD   FAILURE 
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SYMBOL  VALUE 


LF.TIM 

LF.UNL 

LF.X2P 

LLCRS 

LLCTA 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

lN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

IN. SUB 

LN.TRl 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L  DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$EXT 

M$$MGE 

NFSMOU 

NJFLG 

NSTLC 

N$$VCT 

PDVTA 

PSIPT 

PXSDLM 

PXJSVC 

R$$MPL 

R$$11D 

RSSITM 

RtSIIS 

SF.ACT 

Sf .ENA 

SF.LPB 


=  000010 
=  020000 
=  000000 

=  ****t* 
=   ****** 

=  ocoooo 

=  000005 

=  OOOOOA 

=  000003 

=  000003 

=  000001 

=  000000 

=  OOOOOA 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

ocaou 

000021 

000013 

=  000000 

=  000000 

=  000040 

000005 

000100 


****** 

000200 
000100 


ooooco 

****** 

000200 
000100 
000004 


GX 
GX 


GX 
GX 


REFERENCES 

#5-74 
#5-74 
#5-74 

7-297 

6-121 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-60 

5-60 

6-183 

6-183 

8-344 

7-299 

6-130 

8-331 

8-355 

8-358 

6-143 

5-77 

5-77 

5-77 
#5-74 
#5-74 
#5-74 


6-202 


6-166 

6-129 
6-125 


6-137 

♦6-244 

6-158 


8-347 
6-227 
6-227 
8-345 
8-333 
6-177 


8-347 
7-279 
6-137 
6-169 
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6-244 


6-132 
6-168 


6-135 


*6-210 


6-214 


•6-236 


♦6-243 


8-346 
8-342 
6-221 


8-327 

6-201 
6-192 


8-344 
7-275 


8-359 


8-371 


8-374 
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ERROR  MESSAGES 


N  13 


215 

2U  0006K 

215  000616 

216  000620 

217  000622 

218  00062A 

219  000626 

220  000630 

221  000632 

222  00063-; 

223  000636 
22A  000640 

225  000642 

226  000644 
227 

228 
229 
230 
231 

232  000646 

233  000650 

234  000652 

235  000654 

236  000656 

237  000660 

238  000662 

239  000664 

240  000666 

241  000670 
2'.2  000672 

243  000674 

244  000676 

245  000700 

246  000702 

247  000704 

248  000706 

249  000710 

250  000712 
251 

252 
253 
254 
255 
256 
257  000000 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000043 


UMRPT: 

:  SUMRPT 

SRSTD: 

:  SSRSTD 

ALOCB: 

:  SALOCB 

DEACB: 

:  SDEACB 

PUMR :  : 

$PUMR 

HEADR: 

:  SHEADR 

TKTCB: 

:  ITKTCB 

QASTT: 

:  SQASTT 

CLKHD: 

:  $CL<HD 

TKPS:: 

$TKPS 

ABTIM: 

:  SABTIM 

DEVHD: 

:  SDEVHD 

LDPWF: 

;  SLDPWF 

.IF  DF 

RSSMPL 

HPPRO: 

:  SMPPRO 
.ENDC 

SLTMA: 

:  SSLTMA 

SLTNM: 

:  SSLTNM 

NTLPT: 

:  SNTLPT 

CALLX: 

:  SCALLX 

T100.. 

:  STIOOC 

T100Q: 

:  STIOOQ 

TK100: 

:  STKIOO 

CC8GT: 

:  SCCBGT 

LLCRS: 

:  SLLCRS 

PSIPT: 

:  IPSIPT 

CEACC: 

:  SCEACC 

nsCL: 

:  STISCL 

LGSTI: 

:  SLGsrr 

DECPT: 

:  SDECPT 

PDVNM: 

:  SPDVNM 

PDVID: 

:  SPDVID 

LLCAL: 

:  SLLCAL 

LLCTA: 

:  ILLCTA 

PDVTA: 

:  SPDVTA 

VECLN  = 

=  «.-EXEVEC>/2> 

;  STAR 

T  OF  PURE 
.PSECT 

CORE 

COMM  EXEC  VECTORED  VALUES 


NTINP     M/VCRO  V05.03b   Thursday  05-5ep-85    11:02 
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7A8 
7A9 
750 
751 
752 
755 
75^ 
755 
756 
757 
758 
759 
760 
761 

762  001042  010046 

763  001 OAA 
76A  001052  105403 

765  001054 

766  001060  000771 

767  001062  012600 

768  00' 064 
769 
770 


N  U 
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.S8TTI   RCV  DATA  AST 

;  NTIRDA  -  NTINIT  RCV  DATA  AST 

;  INPUTS: 

NONE 

;  OUTPUTS: 

THE  RCV  DATA  SUBROUTINE 
;         IS  EMPTIED. 

.IF  NDF  R$$11S 

NTIRDA: 
10$: 

20$: 

MOV     RO,-(SP) 
D1R$    #NTJRCV 
BCS     20$ 
CALL    NTIRDT 
BR      10$ 
MOV     (SP)t,R0 
ASTX$S 

IS  CALLED  UNTIL  THE  RCV  DATA  QUEUE 


SAVE  RO 
RECEIVE  DATA 

. .  NONE 
PROCESS  THE  DATA 
TRY  FOR  SOME  MORE 
RESTORE  RO 
EXIT  FROM  AST 


.ENDC 


NTINIT     CREATED  BV  MACRO  ON  5-SEP-85  AT  11  ;0'. 
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SVMBOL 

uAlUE 

REFERENCES 

.CXUNL 
.CXVEC 
.CXVSM 
.NTGCD 
.NTPCB 
.NTuMR 
.SBPCB 

00002'. 
000026 
000016 
000000 
000000 
000002 
000066 

G 

G 
G 

G 
G 
G 

#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 
#5-72 

i  1 

f  1 

S  ] 

i  i 

K     1 

fe  ] 

N  1 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

I. 

M 

N 

B 

C 

0 

E 

F 

G 

H 

I 

J 

K 


3 
3 

L  3 
M  3 


VUNPSI 


vvcr 


3 

4 

4 

^ 
A 
5 
5 

5 
5 
5 

5   VXIT 
5 


J 

S 

K 

S 

1 

M 

s 

N 

s 

R 

6 

(■ 

h 

D 

6 

h 

h 

F 

6 

G 

6 

H 

6 

I 

6 

J 

6 

K 

6 

1 

6 

M 

h 

N 

ft 

R 

/ 

r 

/ 

0 

^ 

F 

^ 

F 

/ 

fi 

/ 

H 

/ 

1 

I 

J 

( 

K 

f 

1 

1 

M 

t 

N 

! 

R 

H 

r 

K 

D 

H 

F 

H 

F 

H 

fi 

H 

H 

.S 

I 

K 

,1 

8 

K 

« 

1 

H 

M 

8 

N 

8 

R 

9 

r 

9 

D 

9 

F 

9 

f 

9 

fi 

9 

H 

9 

( 

9 

J 

9 

K 

9 

1 

9 

M 

9 

N 

9 

R 

10 

r 

1() 

D 

10 

VXLB 


VXPR 


N1ICEX 


NTICSR 


N1IL0N 


f  1 
G  1 
H  1 
1  1( 


10 
10 
10 


M  10 
N  10 
B  1 
C  1 
D  1 
E  1 
F  1 
G  1 
H  1 
I  1 


«  1 

N  1 

B  12 
12 
12 
12 
12 
12 


C 
D 
E 
F 
G 
H  12 


12 
12 
12 
12 


M  12 
N  12 
B  13 


13 
13 
13 
13 
13 


H  13 


13 
13 
13 
13 


NTIMFE 


M  13 
N  13 
U 
14 
14 
14 


C 
D 
E 

F  14 
G  14 
H  14 
I  14 
J  14 
K  14 
L  14 


NTIMFL 


NFINIT 


M 

4 
4 

N 

R 

■  5 

r 

5 

D 

■s 

F 

1") 

F 

IS 

G 

IS 

H 

IS 

I 

IS 

,1 

IS 

K 

IS 

1 

IS 

M 

IS 

N 

IS 

R 

16 

r 

1ft 

D 

16 

F 

1ft 

F 

16 

G 

16 

H 

•6 

1 

■6 

J 

1ft 

K 

1ft 

L 

16 

M  16 


NTITIM 


••F!LE«'1D««N^'UMR 


B  1 


NN      NN 

TTTTTl 

TTTT 

III 

II 

uu 

uu 

MM 

MM 

RRRRRRRR 

NN      NN 

TTTTT 

TTTT 

III 

II 

uu 

uu 

w 

MM 

RRRRRRRR 

NN      NN 

I 

uu 

uu 

MMi, 

1  MMMM 

RR 

RR 

NN      NN 

I 

uu 

uu 

MM,'1M  MMMM 

RR 

RR 

NNNN    m 

uu 

uu 

MM 

MM  MM 

RH 

RR 

NNNN    NN 

uu 

uu 

MM 

MM  MM 

RH 

RR 

NN  NN  NN 

1 

uu 

uu 

MM 

MM 

RRRRRRRR 

NN  NN  NN 

I 

uu 

uu 

MM 

MM 

RRRRRRRR 

NN    NNNN 

I 

uu 

uu 

MM 

MM 

RR 

RR 

NN    NNNN 

I 

uu 

uu 

MM 

MM 

RR 

RR 
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I 

uu 

uu 

MM 

MM 

RR 

RR 

NN      NN 

I 

uu 

uu 

MM 

MM 

RR 

RR 

NN      NN 

HI 

II 

uuuuuuuuuu 

MM 

MM 

RR 

RR 

NN      NN 

III 

II 

uuuuuuuuuu 

MM 

MM 

RR 

RR 

5SSS55SS 

TTTTTTTTTT 

SSSSSSSS 

TTITTTTTTT 

SS 

TT 

ss 

T  ■ 

SS 

T 

ss 

TT 

ssssss 

TT 

ssssss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

LLLLLLLLLL 

SSSSSSSS 

TT 
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MT1X25  - 

NTINIT 

'MODUL 

LOCAL  DATA 

b6 

69 

■'O 

71 

72 

7 '6 

71, 

75 

76 

000002 

77 

OOOOOA 

78 

O0OCO6 

79 

000010 

80 

000012 

81 

00001 A 

82 

83 

OOCOOO 

84 

85 

86 

87 

88 

000000 

89 

C00026 

90 

91 

92 

95 

9A 

95 

000036 

96 

000076 

97 

000136 

98 

99 

100 

101 

102 

103 

000000 
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.SBJT.      LOCAL   DATA 
;    LOCAL   DATA    (IMPURE) 


;    CONSTANT   DEFINTIONS 

R$f,0  =   2 
R$R1    =  A 
R$R2   =  6 
R$R3   =   10 
R$R4   =   12 
R$R5   =    K 

.PStCT      DATA.D 


DIRECTIVES 

LONACP:  RUNS    X25ACP 1,1 

ASSIGN:  ALUNS   2,NU,0 


OFFSET  OF  SAVED  RO 

OFFSET  OF  SAVED  R1 

OFFSET  OF  SAVED  R2 

OFFSET  OF  SAVED  R3 

OFFSET  OF  SAVED  RA 

OFFSET  OF  SAVED  R5 


.•DIRECTIVE  TO  REQUEST  X25ACP 
.-ASSIGN  LUN  2  TO  NW: 


ERROR  MESSAGES 

.ENABL      LC 

NTLERS  ,40,NONE,$NIERr.  ..-rNW:  Assignment  FaUure> 
NTLER$  .A1,N0NE,$NIERR..,<VCB  AUocition  FaUu'-e> 
NTLERS      ,A2,NONE,SNIERR.,.<X25   ACP    IX25ACP)    Not    Installed) 

.DSA8L      LC 


START   OF    PURE    CODE 
.PSECT 


NTlXiS  -  NTlNlT    'MODULE   X25"$ER  MACRO  V05.0Jb  Saturday   29-Jun-85 
SET   MODULE    X25    SERVER 


D3:29 


Page  7 


NTKEX  MACRO  V05, 
SET  CEX  FUNCTION 

106 

107 

108 

109 

110 

111 

112 

113 

IK 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135  000000 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

i5r 

158 
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.SBTTL   SET  CEX  FUNCTION 
SNICEX  -  SET  CEX  FUNCTION  ENTRV  POINT 


THE  SAME  ENTRY  POINT  GLOBAL  IS  DEFINED  FOR  BOTH  RSXllM  AND  RSXllS 
SYSTEMS. 

INPUTS: 

ON  AN  RSXllM  SYSTEM  ONLY,  FE.CEX  IN  "SFMASK"  INDICATES 

WHETHER  CEX  IS  ALREADY  LOADED  (1)  OR  NOT  (0). 
ON  AN  RSX11S  SYSTEM,  CEX  IS  ASSUMED  TO  BE  Al READY 

LOADED. 
LS.CXO  IN  "SNIfNC"  INDICATES  WHETHER  THE  FUNCTION  IS 

LOAD  CEX  ONLY  (0)  OR  ALSO  PERFORM  LOCAL  ON  (1). 

OUTPUTS: 

CEX  IS  LOADED,  UMR'S  ARE  LOADED,  CSR'S  ARE  CHECKED 

AND  THE  TIMERS  ARE  STARTED,  AS  NECESSARY. 
ON  RSXllM  SYSTEMS  WHERE  CEX  IS  NOT  YET  LOADED,  NTL  IS 

CALLED  TO  PERFORM  INITIALIZATION,  AND  A  "MARKED  FOR 

LOAD"  AND  "MARKED  FOR  ENABLE"  SCAN  IS  PERFORMED. 
ON  RSXllM  SYSTEMS  WHERE  CEX  IS  ALREADY  LOADED,  LOCAL 

INITIALIZATION  IS  PERFORMED. 
ON  AN  RSX11S  SYSTEM,  LOCAL  INITIALIZATION  ONLY  IS 

PERFORMED  (FALL  THROUGH  TO  LOCAL  INIT  CODE). 
CARRY  IS  SET  IF  LOAD  OR  INITIALIZATION  FAILED. 


*-THE  FOLLOWING  iS  RSXllM  CODE-» 


SNICEX. 

:.iF 

NDF,R$$11S 

BIT 

#FE. CEX, SFMASK 

ONE 

NTILIN 

MOV 

*LS.CEXtLS.NTI 

CALL 

$NINTL 

BCS 

20$ 

TST 

$NTLFC 

SEC 

8MI 

20$ 

RIT 

#LS.TOP,$NTLFC 

bt) 

10$ 

INCB 

$NIFLGt1 

10$: 

CALL 

FNDPDV 

CALL 

$N1MFL 

BCS 

30$ 

CALL 

$NITiM 

20$: 

RETURN 

30$: 

MOV 

#LX.CEX,SNnFC 

CALL 

$N!NIL 

EMSGSR 

10 

SNTLFC 


.ENDC 


IS  CEX  LOADED  ALREADY? 

BR  IF  YES,  PERFORM  LOCAL  INIT 

SET  NTL  FUNCTION  CODE 

SEND  DATA  TO  NTL 

BR  ON  ERROR  (NO  NTL) 

WHAT  WAS  NTL'S  RESPONSE 

ASSUME  FAILURE 
BR  IF  BAD  RESPONSE 

COPY  TOP-LOADING  FLAG 

FROM  NTL'S  ANSWER 

TO  HIGH  BYTE  OF  SNIFLG 
FIND  NSP  PROCESSES  (ECL  &  XPT) 
PERFORM  MARKED  FOR  LOAD  SCAN 
BR  IF  LOAD  FAIL,  REMOVE  CEX 
START  THE  UMERS  IF  NECESSARY 
RETURN  TO  MAIN  LINE  CODE 

IF  LOAD  ERROR,  REMOVE  CEX 

LET  NTL  DC  IT 

TELL  USER  AND  RETURN  W/  CARRY  SET 

»-END  OF  RSXilM  CODE-' 
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LOCAL  INITIALIZA'ION 
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B  4 


NT 
HC 


9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  NTICSR 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITA.  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  ,\ND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCK  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  SCAN  CSR  LIST  AND  TEST  DEVICES  FOR  ONLINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-70 

OECNET-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-:  :;•,  V'l.O 
DECNET-11M-PLUS  V2.0 

5.0C  22-JUL-85 

DECnet-llM/S  74.2 
DECnet-IIM-PIjs  V3.0 
OECnet-Micro/RSX  V1.0 


NTKSR 
DATA 


MACRO  vC5.03b  Satu'-day  29-Jun-85  03:30     Page  6 
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Nl 
NC 


NTIDLl  -  NTiNIT  DOWN  LIME  LOAD 
NODE  INFO  INITIALIZAHON 

77 
78 
79 
80 
81 
82 
83 
8A 
85 


89 

90 
91 
92 
93 
9^ 
95 

98 
99 

100 

101 

102 

103  000000 

lOA  OOOOOA 

105  000010 

106  000012 

107  COOOK 
103  000016 
109 

110 

111 

112 

113  000020 

IV,  000026 

115 

116  000030 

117  000034 

118  00C042 

119  000046 
120 

121  000054 
V2  0000 'i-: 
123 

124  000060 

125  000064 

126  000066 

127  000072 

128  000074 
'29  000076 

130  000102 

131  000106 
13?  OOOilO 
133 
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NT 
SE 


012700 
022710 
001114 
121040 
001112 
106010 


022737 
001505 


013767 
012701 
012737 

012100 
001416 

016703 
010046 
042716 
005726 
001005 
016346 
042716 
052600 
010063 


.SBTTL  NODE  INFO  INITIAL'"  UON 


!MDLI  -  DOi^'N-LINE  LOAD  INITIALIZATION 

PLEASE  NO"  THAT  THIS  CODE  IS  ALWAYS  ASSEMBLED  FOR  AN  RSX-11S  SYSTEM. 
IT  SHOULD  .EVER  BE  CALLED  (OR  INCLUDED)  ON  AN  RSX-11M  SYSTEM. 

INPUTS' 

IF  "$SYSIZ+5,$SYSIZ+4"  CONTAINS  A  -1,  AND  LOCATION  000002 
CONTAI^'S  A  VALUE  OTHER  THAN  340,  THEN  THE  VA:.UE  CAN  BE  USED 
TO  MAP  TO  MEMORY  WHICH  CONTAINS  THE  FOLLOWING. 

;THE  NODE  NUMBER  (OR  ZERO 

;THE  NODE  NAME  (OR  ZERO) 

;THE  HOST  NAME  (OR  ZERO) 

;THE  HO'  r  NODE  ADDRESS  (OR  ZERO) 

:THE  Tir= 

OUTPUTS: 

THE  NODE  NUMBER  IS  PLACED  IN  DSLNUM  OF  THE  DECNET  HOME  BLOCK 

THE  NODE  NAME  IS  PLACED  IN  D$LNAM  OF  THE  DECNET  HOME  BLOCK 

THE  HOST  NODE  ADDRESS  IS  PLACED  IN  DSHOST  OF  THE  DECNET  HOME  BLOCK 

R0,R1  =  DESTROYED 


.BLKW 

3. 

.8LKW 

.BLKW 

8. 

.BLKW 

^. 

.BLKW 

5. 

000004G 


tNIDLI: :MOV 
CMP 
BNE 
CMP8 
BNE 
R0R8 


#$SYSIZt4,R0 

#-1,(R0) 

30$ 

(R0),-(R0) 

30$ 

(RO) 


000340  000002 


000002  172354- 

140000 

000340  000002 


GET  INFORMATION  ON  A  MAPPED  SYSTEM 


CMP 
8E(3 


#340, a#2 
30$ 


SWSTK$  30$ 

MOV  a/»2,KISAR6 

MOV  *.eASEB,R1 

MOV  #340,3*2 


OOOOOOG 
001777 


000014 
001777 

000014 


5$: 


MOV 

(R1)+,R0 

BEO 

10$ 

MOV 

$DECPT,R3 

MOV 

RO,-(SP) 

BIC 

#*CAfiEA,(SP) 

TST 

(SP)  + 

BNE 

5$ 

MOV 

D$LNUM(R3),-(SP 

EIC 

#*CAREA.(SP) 

BIS 

(SPi+,RO 

MOv 

R0,D$LNUM(R3) 

POINT  AT  SYSTEM  IMAGE'S  LBN 

WERE  WE  DOWN-LINE  SYSTEM  LOADED  ? 

NO  .. 

MAYBE  ? 

NO  .. 

MAKE  SURE  W^  DON'T  DO  THIS  TWICE 


IS  INFORMATION  VALID? 
BR  IF  NO 

GO  TO  SYSTEM  STATE 
SET  BIAS  OF  INFORMATION  IN  APR 
POINT  AT  DOWN-LINE  LOAD  NODE  INFO 
RESET  THE  LOCATION 

IS  THERE  A  NODE  NUMBER  PRESENT? 
IF  EQ,  NO 

GET  DECNET  HOME  BLOCK 

SAVE  NODE  ADDRESS 

ISOLATE  AREA 

AREA  0  ? 

IF  NO  -  BRANCH 

GET  VNP'D  NODE  ADDRESS 

ISOLATE  AREA 

SET  AREA 

SET  ADDRESS  IN  HOME  BLOCK 


NTIDLI  -  NIINIT  DOWN  LINE  LOAD 
NODE  INFO  INinALIZlTION 
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NT 


238 

ASL 

(SP) 

239 

ADD 

CSP)+,RO 

240 

140$: 

CLR 

(R0)  + 

241 
242 
243 

SOB 

R1,140$ 

.ENDC 

;  NDF  R$$11S 

244 
245 
246  000212 

017701 

OOOOOOG 

150$: 

MOV 

aOECPT.RI 

247  000216 

005761 

000054 

TST 

D$N8RA(F;1) 

248  000222 

001426 

BEO 

270$ 

249  000224 

016^01 

000054 

MOV 

D$N8RA(R1),R1 

250  000230 

062701 

000077 

ADD 

#77, R1 

251  000234 

042701 

000077 

BIC 

#77, R1 

252  000240 

005000 

CLR 

RO                  ; 

253  000242 

SWSTK$ 

260$ 

254  000246 

CALL 

aALOCB 

2:.  000252 

103406 

BCS 

250$ 

256  000254 

010066 

000002 

MOV 

R0,2(SP) 

257  000260 

006201 

ASR 

R1 

258  000262 

005020 

240$: 

CLR 

(ROn 

259  000264 

SOB 

R1,240$ 

260  000270 

261 

262  000272 

250$: 

RETURN 

010062 

000076 

260$: 

MOV 

R0,N$PR1(R2) 
376$ 

263  000276 

264 

265  000300 

001437 

BEQ 

270$: 

DIR$ 

#LONACP 

256  000306 

1030C3 

BCC 

290$               ; 

2o7  000310 

012703 

000362' 

MOV 

#350$, R3            ; 

268  0003H 

269 

270  000316 

c71 

272  000322 

000416 

BR 

320$ 

016702 

OOOOOOG 

290$: 

MOV 

$D6ECL,R2 

132762 

000040  000005 

300$: 

BUB 

#NF$M0U,N$FLG'R2) 

273  000330 

001004 

BNE 

310$ 

,:^74  000332 

WS!G$S 

275  000340 

000770 

BR 

300$                ; 

276  00034? 

310$: 

CALL 

$NIMFE 

277  000346 

000241 

CLC 

278  000350 

RETURN 

279 
280 
281 

;•  DE- 

ALLOCATE  THE  PLD  DATA  BASE 

282 

283  000^52 

^20$: 

.IF  NDF 

R$$11S 

284 
285 

SWSTK$ 

330$ 

286 

MOV 

PLDADR.R'^ 

287 

MOV 

PLDLEN,R1 

288 

CALLR 

SDEACB 

289 

290 

291 

292  00C352 

293 

294  000354 

.ENDC 

;  NDF  R$$11S 

C00113 

330$. 

J  MP 

(R3) 

^40$. 

EMSG$R 

15 

CONVERT  VECTOR  TABLE  TO  BYTES 
POINT  PAST  PLD  VECTOR 
ZERO  OUT  1HE  PLD'S 
LOOP  R1  TIMES 


GET  DECNEI  HOMEBLOCK  ADDRESS 

ANY  ROUTER  ADJACECIi^S 

IF  NOT  -  BRANCH 

GET  NUMBER  OF  BROADCAST  ROUTER  ADJACENCIES 

ROUND  UP  TO  32.  WORD  BLOCK 

ASSUME  FAILURE 

MAP  ^C  SYSTEM  STATE 
»  ALLOCATE  SPACE  FROM  DSR  FOR  P 
»  IF  FAILURE  -  BRANCH 

*  INDICATE  SUCCESS  THRU  USER  RO 

*  GET  THE  NUMBER  OF  WORDS  ALLOCATED 

*  CLEAR  PRIORITY  DATA  BASE 

*  ALL  OF  IT 

*  LEAVE  SYSTEM  STATE 

SET  UP  XPT  DATA  DASE  WITH  PRIORITY  ADDRESS 
IF  ALLOCATION  FAILURE  -  REPORT  ERROR 

REQUEST  THE  ACP 

IF  SUCCESS  -  BRANCH 

ELSE  -  SET  UP  ERROR  POINTER 
CONTINUE 

GET  ADDRESS  OF  ECL'S  DDB 

HAS  THE  NETWORK  BEEN  MOUNTED  YET? 

BR  IF  YES 

WAIT  FOR  NETACP  TO  RUN 

d6'mARKED-F0R-cNABLE  SCAN 
..SUCCESS  -  ALL  DONE 


*  ENTER  KERNEL  MODE 

*  GET  THE  PLD  08  ADDRESS 

*  AND  LENGTH 

*  DE-ALLOCATE  BLOCK 


DE-ALLOCATE    THE   VCB   OR   PRINT    ERMSG 
ALUN$   FAILJRE    OR   N5   LOAD    FAUURE 


NTILON  -  NIINIT  'EXECUTOR  ON' 


rvcriiinD    nw 


C  6 

R  MACRO  V05.03b  Saturday  29-Jun-85  03:31 


P.-e  9-3 


NT 
ns 


B  7 

NTIMFE  -  ^0  MA"  ED-FOR-EMABLE  5  MACRO  V05.05b  Wednesday  2i-Jul-85  15:52  Page  5 


1 

? 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2'. 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
4  7 
48 
49 
50 
51 
52 


.TITLE  NTIMFE  -  DO  MARKED-FOR-ENABLE  SCAN 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

iHIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LKENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  MARKED-FOR-ENABLE  SCAN 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 

2.00 


27-FEB-78 

VERSION  2.0  RELEASE 

14-DEC-79 
DECNET-11M/S  V3.0 
DECNET-11M-P!  US  Vl.O 


3.00  16-APR-82 

DECNET-11M  V3.1 
DtCNET-IIM-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  \l',.0 
DECNET-11M-P:.US  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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CRlF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

STANUM 

000002  R 

#6-9^ 

•7-167 

STRT 

=  OOOOOi 

#6-84 

8-295 

S$$BAS 

-    t ***  ** 

7-112 

S.COST 

000001 

#6-74 

S.FLG 

000000 

#6-74 

*7-192 

S.LEN 

OOCOOA 

#6-74 

S.NMST 

000002 

#6-74 

«7-202 

S.OWNR 

000003 

#6-74 

TMEFN 

=  000001 

#6-85 

7-113 

TSFLAG 

0000',  A 

#6-72 

T$LIF 

000013 

#6-72 

TtLlFL 

000015 

#6-72 

TSLIFO 

000013 

#6-72 

TSLIFS 

000013 

#6-72 

TSLIN 

000000 

#6-72 

TSLIPS 

000006 

#6-72 

TSLLD 

000012 

#6-72 

TSLLDC 

0000A5 

#6-72 

TSLLDL 

000012 

#6-72 

TSLLDO 

000012 

#6-72 

TSLLDS 

000012 

#6-72 

TSLLEN 

00O0A6 

#6-72 

TSlOPR 

000002 

#6-72 

TSLTCL 

000024 

#6-72 

TSLTIM 

000026 

#6-72 

TSLTPR 

0000  K 

#6-72 

,-$LTPS 

000020 

#6-72 

TSNAPL 

000004 

#6-72 

TSNFE 

000000 

#6-72 

TSNLEN 

000010 

#6-72 

T$NNUL 

000002 

#6-72 

TSNOPL 

000006 

#6-72 

tsnrn; 

000042 

#6-72 

TSNRPL 

000005 

#6-72 

tsnrul 

000007 

#6-72 

TSNVR 

000001 

#6-72 

TSRPRI 

000040 

#6-72 

TSSVC 

000034 

#6-72 

T$T5 

000030 

#6-72 

T$T6 

000032 

#6-72 

X$$MCB 

-   ****** 

6-77 

6-77 

7F.C0U 

=  001 000 

#6-77 

ZF.DDM 

=  000001 

#6-77 

7F.DIA 

=  004000 

#6-77 

7F.DLC 

=  000002 

#6-77 

ZF.DVP 

=  100000 

#6-77 

Zf .in: 

=  040000 

#6-77 

ZF.KMX 

=  000020 

#6-77 

ZF.LLC 

=  000004 

#6-77 

ZF.LMC 

r  000100 

#6-77 

ZF.MAfJ 

--  020000 

#6-77 

ZF.MFL 

=  G00010 

#6-77 

7-114 
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33^ 

335 

336 

337 

338 

339 

3A0 

3A1 

3A2 

3A3 

3'.A 

3A5 

3A6 

3A7 

3A8 

3A9 

3'=0 

351 

352 

353 

35A 

355  000006 

356 

357  000006 

358  OOOOIA 
359 

360 

361  000016 

362  00002A 
363 

36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 
37A 
375 
376 
377 

378  000026 

379  00003A 

380  000036 

381  OOOGAA 
382 

383 
38A 
335 
386 

387  0000A6 

388  000052 
38?  00005A 
390  000062 


.SBTTl   MAIN  lONTROL 


NTIGRQ  -  GET  FUNCTION  REQUEST  AND  [)ISPA"H 

THIS  ROUTINE  IS  CURRENTLY  CODED  SUCH  THAT  FUNCTION  REQUESTS  TO 
NTINIT  VIA  "SEND  DAM"  MUST  BE  SYNCHRONOUS  WITH  NTINIT 
COMPLETIONS.   THAT  IS,  ANY  REQUEST  TO  NTINIT  IS  ILLEGAL  UNTIL 
THE  PREVIOUS'  REQUEST  HAS  BEEN  COMPLETED. 

INPUTS; 

NONE 

OUTPUTS: 

WAIT  FOR  A  COMPLETED  RCV  DATA  AND  DISPATCH  THE  PROPER  FUNCTION 
ACCORDING  TO  "SNIFNC"  (SET  BY  THE  RCV  DATA  ROUTINE) 

THE  SEND  DATA  TO  THE  REQUESTING  TASK  IS  ONLY  DONE  AFTER 

THE  FUNCTION  IS  COMPLETED.   THE  RETURNED  FUNCTION  IS  EITHER 
POSITIVE  (SUCCESS),  ZERO  (NO-OP),  OR  NEGATIVE  (ERROR). 


NTIGRQ: 


032777 
OOKiO 


126727 
00U10 


OOOOOOG  000^26' 


000032'  000001 


000«2 
000A46 


103443 
032767 
001001 


20$: 


.IF  DF 

R$$11S 

BIT 

#FE.CEX,SfMASK 

BEQ 

20$ 

.ENDC 

CMP8 

$NIFNC,#LS.CEX 

BEQ 

30$ 

.IF  NDF 

R$$11S 

BIT 

//FE.CtX.aFMASK 

BEQ 

20$ 

CMPB 

$NIFNC,#LS.0N 

BEQ 

A0$ 

CMPB 

$NIFNC,#LS.X25 

BEQ 

60$ 

.ENDC 

.IF  DF 

SS$8AS 

CMPB 

$NIFNC,#LS.ON 

BED 

40$ 

.ENDC 

EMSGS 

03 

BR 

80$ 

EMSGS 

04 

BR 

80$ 

:IS  THE  COMM  EXEC  LOADED  ? 
;  ..  NO 


;IS  IT  A  "SET  SYS"? 
;BR  IF  YES 


IS  THE  COMM  EXEC  LOADED  ? 

..  NO 
IS  IT  "SET  EXECUTOR  ON"? 
BR  IF  YES 

IS  IT  SET  MODULE  X25-SERVER? 
8R  IF  YES 


;IS  IT  • 
•■IF  EQ, 

'SET  EXECUTOR 
YES 

STATE 

ON 

; ILLEGAL 

FUNCTION 

;COMM  EXEC  NOT  LOADED 

CALLS  TO  FUNCTION  ROUTINES.   THE 
INDICATING  SUCCESS/FAILURE,  AND 
COMPLETION  CODE  FOR  THE  FUNCTION 


SE  ROUTINES  SHOULD  RETURN  WITH  CARRY 
■'$NIFNC"  SET  TO  A  PROPER  RETURN 
REQUESTOR. 


^0$: 


010000  000032' 


CALL 

$NICEX 

BCS 

80$ 

BIT 

*LS.CX0,$N!FNC 

BNE 

40$ 

FUNCTION  -  SET  SYS 
BR  IF  FAILED 

IS  IT  EXECUTOR  ON  ALSO 

BR  IF  YES 


NTINI 
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PUTAST  -  PUT  COMPLETION  AST  IN  CALLEF 

851 
852 
855 
85A 
855 
856 
857 
858 
859 
8^0 
841 
8A2 
845 
844 
845 

846  000000 

847  000001 
848 
849 
850 
851 
852 
855 
854 
855 
856 
857 
858 
859 
860 
861 
862 
865 
864 
865 
866 
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.S8TTL  PUTAST  -  PUT  COMPLETION  AST  IN  CALLER  TASK'S  AST  QUEUE 

PUTAST  -  PUT  A  COMPLETION  AST  IN  THE  CALLER  TASK'S  AST  QUEUE 

INPUTS: 

$NITRN=CALLING  TASK'S  NAME 
$NIFNC=SUCCESS  CODE 
$NIAST=AST  ADDRESS  IN  TASK 
$NIPRM=PARAMETER  TO  RETURN  TO  TASK 

OUTPUTS: 

AN  AST  IS  QUEUED  FOR  THE  CALLER. 


ASSUME  WE  WILL  ASSEMBLE  THIS  ROUTINE 
UE  DON'T  NEED  IT  FOR  US 
BU'i  WE  DO  NEED  IT  FOR  SERVER  BASE 
(EVEN  THOUGH  IT  IS  US  BASED) 


867 

MOV 

868 

MOV 

869 

MOV 

870 

MOV 

871 

MOV 

&72 

MOV 

875 

MOV 

874 

MOV 

875 

CALL 

876 

50$: 

RFTUR^ 

877 

878 

.ENDl 

879 

880 

881 

OGOOOC 

.END 

$$$$  = 

0 

.IIF 

DF 

R$$11S  $$$$  =  1 

.IIF 

DF 

S$$8AS  $$$$  =  0 

.If  EQ 

$$$$ 

PUTAST 

SWSTK$ 

50$ 

MOV 

#NTISEN+S.DATN,R5 

CALL 

aSRSTD 

BCS 

10$ 

MOV 

R0,R5 

MOV 

#7*2, R1 

CALL 

aAiOCB 

BCC 

20$ 

10$: 

RETC 

RO 

BR 

50$ 

20$: 

MOV 

R0,R2 

TST 

(R0)  + 

MOV 

R1,(R0)t 

MOV 

#12*2, (RO)t 

MOV 

$NIAST,(RO)+ 

MOV 

#2,(R0)+ 

MOV 

$NIPRM,(RO)+ 

MOV 

$N1FNC,(R0)'- 

MOV 

R5,R0 

MOV 

R2,R1 

CALL 

aQASTT 

NTINIT 


ENTER  SYSTEM  STATE 

POINT  TO  TASK  NAME 

FIND  CALLER'S  TCB  ADDRESS 

IF  CS,  NOT  THERE  -  TOO  BAD 

ELSE,  COPY  TCB  ADDRESS 

ELSE,  SET  AST  BLOCK  LENGTH 

ALLOCATE  SOME  POOL 

IF  CC,  GOT  IT  -  PROCEED 

RETURN  CARRY  SET 
...  AND  RETURN 

COPY  ADDRESS  OF  BLOCK  ALLOCATED 

BUMP  OVER  LINK  WORD 

SET  LENGTH  OF  BLOCK  (FOR  DEALLOCATION) 

SET  STACK  SPACE  TO  RESERVE  FOR  TASK 

SET  AST  VIRTUAL  ADDRESS  FOR  TASK 

SET  PARAMETER  COUNT 

SET  PARAMETER  #1  (USER  SUPPLIED) 

SET  PARAMETER  #2  (COMPLETION  SirtTUS) 

POINT  TO  TASK  TCB 

POINT  TO  AST  BLOCK 

QUEUE  THE  AST  TO  THE  CALLING 

BACK  TO  USER  STATE  AND  RETURN 
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1 

2 
5 

t, 
5 
6 

7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 

23 
24 
2^ 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
3^ 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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.TITLE  NTITIM 
.IDENT  /y05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FORNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTH.  :^WISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  START  COMM  EXEC  TIMERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00     14-DEC-79 

DECNET-11M/S   V3.0 
DECNET-11M-PLUS   VLC 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLJS  VI .1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 
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NTIUMR  MACRO  V05.03b  Saturday 

LOAD  UMR'S 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84  000000 

010346 

85  000002 

010446 

86  000004 

016203 

000012 

87  000010 

116204 

00001 1 

88  0000  U. 

016246 

000002 

89  000020 

066216 

000004 

90  000024 

016202 

000002 

91  000030 

010322 

92  000032 

010422 

93  00003A 

062703 

020000 

94  000040 

005504 

95  000042 

020216 

96  000044 

103771 

97  000046 

005726 

98  000050 

012604 

99  000052 

012603 

100  000054 
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.S8TTL   LOAD  UMR'S 


SNIIUMR  -  INITIALIZE  UMR'S  ON  AN  11/70  SYSTEM 

PLEASE  NOTE  THAT  THIS  CODE  IS  ALWAYS  ASSEMBLED  FOR  AN  11/70  SYSTEM. 
IT  SHOULD  NEVER  BE  CALLED  IF  THERE  ARE  NO  UMR'S  TO  LOAD. 

INPUTS: 


R2  =  UMR  BLOCK  ADDRESS 

OUTPUTS: 

R2  =  DESTROYED 


SNIUMR; 


10$: 


:MOV 
MOV 
MOV 
M0V8 
MOV 
ADD 
MOV 
MOV 
MOV 
ADD 
ADC 
CMP 
BLO 
TST 
MOV 
MOV 
RETURN 


R3,-(SP) 

R4,-(SP) 

M.6fVL(R2),R3 

M.6FVH(R2),R4 

M.UMRA(R2),-(SP) 

M.UMRN(R2),(SP) 

M.UMRA(R2),R2 

R3,(R2)t 

R4,(R2)t 

#20000, R3 

R4 

R2,(SP) 

10$ 

(SP)  + 

(SP)+,R4 

(SP)+,R3 


SAVE  R3 
SAVE  R4 
GET  PARTITION  ADDRESS 

GET  FIRST  UMR  ADDRESS 
SET  UPPER  UMR  LIMIT 
POINT  AT  FIRST  UMR 
LOAD  THE  ADDRESS  TO  MAP 

INTO  A  UMR 
SET  ADDRESS  TO  NEXT  4K  WORDS 

MORE  UMR'S  TO  LOAD? 

BR  !<'    NO,  STILL  BELOW  UPPER  .IMIT 

DUMP  UPPER  LIMIT 

RECOVER  R4 

RECOVER  R3 
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CFECOM  -  GET  A  COMMAND  LINE 
Symbol  table 


B  13 
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ARROWS 

000503R 

ERR1LC=  *•»•**  GX 

PRSKTB= 

****•«  GX 

$CLI0S= 

«♦♦***  GX 

$NODNA= 

****** 

GX 

CR 

000501R 

ERRIPV  000433RG 

PRSSTB= 

»*«***  GX 

$CMAND= 

******  GX 

$OPRND= 

****** 

GX 

CRLF 

000A73R 

ERRLID  OOOOOORG 

$BUFF  = 

******  GX 

$COMP  = 

******  GX 

$0PRN2= 

****** 

uX 

ERRCAL 

000270RG 

ERRLTV  000220RG 

SC^COM 

000510RG 

SERROR 

000506RG 

$SWICH= 

****** 

GX 

ERRCHN 

000162RG 

ERRPRO  000113RG 

$C'^ERR= 

******  GX 

$FLAGS= 

**»»*»  GX 

$TNUM  = 

****** 

GX 

ERRCID 

OOOOA'.RG 

ERRWLD  00034m(L 

$CFER1= 

***.*♦  GX 

$GTPLN= 

******  GX 

$VLVL  = 

****** 

GX 

ERRFSP 

0OOA01RG 

EX$ERR=  000002 

$CIRCT= 

*«♦♦**  GX 

SINFO  = 

******  GX 

SWILD  = 

GX 

ERRGCL= 

««•••*  GX 

1E.E0F=  «•«*«♦  GX 

SCLERR 

000760RG 

.  ABS. 

000000 
000766 

000 
001 

(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

U 

■♦*   Assembler   statistics 


Work      file      reads:  0 

Work      file   writes:  0 

Size  of   work    file:  848A   Words      {   3^;   Pages) 

Size  of   core  pool:  KAAO  Words      (    55  Pages) 

Operating      system:  RSX-11M/PLUS 


Elapsed    ""ime:    00:00:06. OA 
SY:CFECOM.V2,[132,13A]CFECOM/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[150,110:NETL1B/ML,[132,10]CFECOM 


CFECOM 


CREATED  BY  MACRO  ON  29-JUN-85  AT  04:55 
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CFEDEF   -  PROCESS  DEFINE    COMMAND  MACRO  V05.05b  Saturday  29-Jun-85  04:55     Page  8-1 
SETKNr    -   SET    KNOWN   CIRCUIT    PARAMETERS 

318 
319 
320 

321  C00772 

322  001002     000411 
32: 

324  001004 

325  001014  000404 
326 

327  001016 
328 

329  001026  000207 
330 
331 


;  ERRORS 

'bO%: 

ERRORS 
BR 

#ERRIWC 
90S 

70S: 

ERRORS 
BR 

*ERRIGR 
90S 

80S: 

ERRORS 

#ERRPSI 

90S: 

RETURN 

.DSA8L 

LS8 

INVALID  PARAMETER  WITH  KNOWN/WILDCARD 
ILLEGAL  PARAMETER  GROUPING 
NO  PSI  IN  SVSTEM 


C  H 
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CFEDSP  - 
tCFDSP  - 

69 

70 
71 
72 
75 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 


B  15 

DIPATCH  ROUllNE       MACRO  V05.03b  Saturday  29-Jun-85  0«i55  Page  5 
DISPATCH  ON  THE  COMMAND  CODE 

.S8TTL   SCfDSP  -  DISPATCH  ON  THE  COMMAND  CODE 

»»*  -  SCfDSP  -  DISPATCH  ON  THE  COMMAND  CODE 

INPUT: 


SCMAND  =  COMMAND  CODE  TO  DISPATCH  ON 


OUTPUT: 

CONTROL  IS  PASSED  TO  PROPER  ROUTINE 

REGISTERS  ALTERED: 
Rl 


oooou 

OOOOH  016701 

000020  006301 

000022  004771 

000026  000207 


000001 


OOOnoOG 
177776' 


SCFDSP: 


MOV 
ASL 
CALL 
RETURN 


.END. 


SCMAND, Rl 

Rl 

aDSPT8L-2(R1) 


GET  FUNCTION  CODE  IN  Rl 
CONVERT  TO  A  WORD  INDEX 
PROCESS  THE  COMMAND 


fF^DSP  -  DIPATCH  ROUTINE 
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CFEll^P  -  SYMBOL  DFFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-8 


c  VJis 


Page  3 


1 
2 
3 
A 
5 

t 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
^,0 
41 
42 
4^ 
44 
45 
46 
47 
48 
49 

51 
52 
53 
5^- 


.TITLE   CFEIMP  -  SVMBOL  DEFiMITIONS  AND  IMPURE  STORAGE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  NAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  '■QNSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPI lED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  IMPURE  AND  PURE  DATA 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  10-FEO-78 

VERSION  3.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl .1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5. no  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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NTIUMR  '^ACRO  V05.05t)  Saturday  2<3-Jun-85  03:28 
^aD'e  ot  contents 


C  1 


NT 
SE 


54 
6? 


DATA 

LOAD  UMR'S 


N-1.;*1k  macro  v05.C3d  Saturday  29-Jun-85  03:28  Page  4 


D  1 


SE 


C  2 

NTIX^S  -  NTINI!  'MODULE  X25-SER  MACRO  V05.0?b  Saturday  29-Jun-85  05:29 
SET  MODULE  X25  SERVER 


Page  7 


105 
106 
107 
108 
109 
110 
111 
112 
113 
11A 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A  OOCOOO 

125  000000 

126  000006 
127 

128 

129  000010 

130  OOOOK 
131 

132 

133 

13'; 

135 

136 

137 

138 

139 

1A0 

141 

142  000020 

U3  000024 

144  000026 

145  000032 
146 

147  000034 

148  000040 

149  000044 

150  000046 

151  000052 
152 

153  000U54 
^54  OOCOiO 

155  003064 

156  000066 

157  C00074 
^58 

159 

160  000076 

161 


.SBTTL  SET  MODULE  X25  SERVER 

$NIX25  -  SET  STATE  LOCAL  ON 

REQUEST  THE  X25ACP  TO  START 

«**  NOTE:  THIS  MODULE  SHOULD  NOT  BE  ASSEMBLED  FOR  IAS  SYSTEMS 

INPUTS: 

X25ACr  INSTALLED 

OUTPUTS: 

THE  DEVICE  LIST  IS  SCANNED  TO  FIND  THE  ;;25ACP.   IF  IT  IS  FOUND, 
A  VCB  IS  ALLOCATED  FOR  H,  AND  IT  IS  REQUESTED  TO  RUN. 
SNIRDB  IS  SET  TO  INDICATE  SUCCESS  (+)  OR  FAILURE  (-)  OR  NO-OP  (0). 
CARRY  IS  SET  ON  FAILURE. 


$NIX25: 


103474 


017700  OOOOOOG 
016005  000102 


016504  000034 

001020 

012701  000034 

005000 


103402 

010066  000002 


012703  000206' 
010065  000034 
001433 

103425 

012792  062751 


DIR$ 

#ASSIGN 

BCS 

101$ 

.IF 

NDF,R$$MPL 

MOV 

.  :eadr,ro 

MOV 

H.LUN+4(R0),R5 

.IFF 

SWSTKS 

10$ 

SAVMAP 

MOV 

aSAHDB,SKSAR6 

MUV 

aSAHPI.RO 

MOV 

H.LUNt4(R0),R5 

RESMAP 

MOV 

R5,14(SP) 

RETURN 

10$: 

.ENDC 

MOV 

U.VC8(R5),R4 

ONE 

40$ 

MOV 

*V$LEN,R1 

CLR 

RO 

SWSTI<;$ 

30$ 

CALL 

aALOCB 

BCS 

20$ 

MOV 

R0,2(SP) 

20$: 

RETURN 

30$: 

MOV 

#111$. R3 

MOV 

R0,U.VCB(R5) 

BEQ 

70i 

4()«: 

DIR$ 

#L0NACP 

BCS 

60$ 

.IF  NDF 

R$$11S 

MOV 

#*RPLI,R2 

.-ASSIGN  LUN  2  TO  NW: 

,-bR  IF  UNABLE  TO  ASSIGN  LUN 


GET  TASK  HEADER  ADDRESS 
GET  NW:  UCB  ADDRESS 

*  ENTER  KERNAL  MODE 

»  SAVE  APR6  CONTENTS 

*  MAP  TO  HEADER  IN  SECONDARY  PO 

*  GET  THE  HEADER  POINTER 

*  ADDRESS  OF  NS:  UCB 

*  RESTORE  APR6 

*  STORE  VALUE  IN  USER  R5 

*  RETURN  TO  USER  STATE 


IS  THERE  ALREADY  A  VCB  ? 

..  YES 
VCB  LENGTH 
ASSUME  FAILURE  TO  ALLOCATE  VCB 

«  ENTER  KERNAL  MODE 

*  TRY  TO  ALLOCATE  FROM  POOL 
«  BR  IF  FAILURE 

*  SET  USER  MODE  RO  VCB  ADDRESS 

*  BACK  TO  USER  MODE 

ASSUME  ALLOCATION  FAILURE 
STORE  VCB  ADDRESS 

..  ALLOCATION  FAILURE 
REQUEST  THE  ACP 

IF  CS,  SOMETHING'S  WRONG 


GET  RAD50  PROCESS  NAME 


NT  1X25  -  NTINIT  'MODULE  X25-SER  MACRO  V05.03b  Saturday  29-Jun-85 
SET  MODULE  X25  SERVER 
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LOCVL    INITIALIZATION 


C  3 


16Q 

.SBTTL 

LOCAL  initializat; 

ON 

161 

162 
163 
16A 
165 

+ 
NTILINI  -  LOCAL 

INITIALIZATION 

LOAD 

UIR'S  ANt 

VALIDATE  CSR'S  AS 

NEEDED 

166 
16(' 

THIS 

ROUTINE  REQUIRES  THE  GLOBAL 

ADDRESSES  "$NIUMR",  AND  "SNICSR" 

168 

TO  BE  lEFINED 

ANY  OF  THESE  ROUTINES  MAY  BE  EXCLUDED  FROM 

169 

THE 

TASK  BUILt 

IF  IT  IS  KNOWN  THAT  THEY  WILL  NOT  BE  CALLED  (IF 

170 

EXCLUDED,  THE 

SYMBOLS  SHOULD  BE 

Globally  defined  as  follows: 

171 

$NIUMR=177777 

$NICSR=0).  ALSO, 

ON  an  Rsxn-s  system. 

172 
173 
174 

THE 

3L0BAL  "SNIDLI"  SHOULD  BE  DEFINED  (ZERO  IF  MODULE  IS  EXCLUDED). 

INPUTS: 

175 

SNTLPT 

=  ADDRESS 

(BIAS)  OF  NTL  DATA  CONTROL  BLOCK 

176 

BLOCK+2 

=  ADDRESS 

OF  UMR  CONTROL  BLOCK  (0  IF  NONE) 

177 

178 
179 

BLOCK+. 

XCSR    =  ADDRESS 

(BIAS)  OF  CSR  CHECK  LIST  (0  IF  NONE) 

OUTPUTS: 

180 

"SNIDLI 

'  IS  CALLED  TO  INII 

DOWN-LINE  LOAD  PARAMETERS  (IIS  ONLY) 

181 

IF  BLOCK+2      IS  NON-ZERO,  "SNIUMR  IS  CALLED 

182 

IF  BLOCK+.CXCSR  IS  NCN-ZERO,  "SNICSR"  IS  CALLED 

183 

IF  AN  ERROR  OCCURS  IN  ANY 

OF  THESE,  THE  INITIALIZATION  FAILED 

18A 

IF  THE 

NITIALIZATION  SUCCEEDED,  THE  TIMERS  ARE  STARTED 

185 
186 

:. 

CARRY  IS  SET  IF  INITIALIZATION  FAILED 

187 
188 
189 
190 

000000 

MTiLIN 

::CALL 

FNDPDV 

;FIND  NSP  PROCESSES  (ECL  6  XPT) 

000004 

017700 

OOOOOOG 

MOV 

aPDVTA.RO 

;  GET  PDV  TABLE  ADDRESS 

191 

000010 

017701 

OOOOOOG 

MOV 

aPDVNM,R1 

;  GET  NUMBER  OF  PDV'S 

192 

000014 

012002 

2$: 

MOV 

(R0)+,R2 

;  GET  NEXT  PDV 

193 

000016 

032762 

040000  000010 

BH 

#ZF.INI,Z.FLG(R2) 

;  PDV  NEED  INITIALIZATION  ? 

194 

000024 

001426 

BEO 

4$ 

;  IF  NO  -  BRANCH 

195 

000026 

005762 

000012 

TST 

Z.PC8(R2) 

;  IF  PROCESS  LOADED  ? 

196 

000032 

001423 

BEQ 

4$ 

;  IF  NO  -  BRANCH 

197 

000034 

016205 

000016 

MOV 

Z.DAT(R2),R5 

;  GET  DATA  BASE  ADDRESS 

198 

000040 

011503 

MOV 

(R1),R3 

;  GET  FIRST  WORD 

199 

000042 

006003 

ROR 

R5 

;  HAS  PROCESS  BEEN  INITIALIZED 

200 
201 
202 

000044 

103415 

6CS 

3$ 

;  IF  YES  -  BRANCH 

000046 

SWSTKS 

3$ 

;  ENTER  SYSTEM  STATE 

203 

000052 

016202 

000004 

MOV 

Z.NAM(R2),R2 

;♦  GET  PDV  NAME 

20A 

000056 

CALL 

aPDVID 

;*  GET  PDV  INDEX 

205 

000062 

016746 

000000' 

MOV 

;r;:fu.N,-(SP) 

;«  GET  INIT  FUNCTION  CODE 

206 

000066 

010603 

MOV 

SP,R3 

;»  GET  ADDRESS  OF  FUNCTION  CODE 

207 

000070 

CALL 

aCLCAL 

;*  DISPATCH  TO  PROCESS 

208 
209 
210 
?11 
212 

000074 

005726 

TST 

(SP)* 

;*  CLEAN  UP  STACK 

0000^6 

RETURN 

000100 

00024: 

3$^ 

CLC 

213 

000102 

OC55C1 

4$: 

de: 

R1 

;  COUNT  ONE  LESS  PDV 

216 

000104 

001 34 3 

BNE 

2$ 

.IF 

r>F,R$$11S 

;*-CO»E  FOR  AN  RSX11S  SYSTEM-* 

NTICEX  MACRO  V05.03b  Saturday  29-Jun-85  03:29  Page  8-1 
LOCAL  INITIALIZATION 


D  3 


NTKSR 
DATA 

55 
56 
5? 
53 
59 
6C 
61 
62 
65 
6A 
65 
66 
67 
^8 
69 
70 
71 
72 
7: 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
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.SBTTL   DATA 


C  4 


000000 
000000 
000000 


000000 


000000 
000006 


OOOOU  000250' 


000016 


000020 


000000 


.I8RARY  MACROS 

.(•ICALL      DIR$,SVTI<:$,EMSG$,I^TLER$,NHWDF$,SLTDF$,PDVDf$,SAVRG,RESRG 


NHUDFS 
SLTDFS 
PDVDFS 


LOCAL  (IMPURE)  DATA 
.PSECT  DATA,D 


.-HARDWARE  REGISTER  DEFINITIONS 
.-SYSTEM  LINE  TABLE  OFFSETS 
;PDV  OFFSETS 


DIRECTIVES  TO  ALLOW  PROGRAM  TO  TRAP  ILLEGAL  ADDRESS  USAGE  (FOR  CSR  CHECK) 


CSRENA:  SVTKS   CSRTAB.l 
CSRDIS:  SVTKS 

CSRTA8:  .WORD   CSRTRP 


.-IRAP  USING  "CSRTA8"  TABLE 
.-DISABLE  INTERNAL  PROGRAM  TRAPC 

.-TRAP  TO  "CSRTRP"  ON  ILLEGAL  ADDRESS 


WORD  TO  HOLD  SYSTEM  LINiE  TABLE  ADDRRE5S 


CSRSLT:  .BLKW   1 


ERROR  MESSAGES 


.-SYSTEM  LINE  TABLE  ADDRESS 


.ENABL  LC 
NTLERS  <;>,20,N0NE.$NIERR,$NERDN,.<Deuice  *  CffHne> 
.DSABL  LC 


PURE  CODE  SECnON 
.PSECT 
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NTIDLI  -  NTINIT  DOWN  LINE  LOAD  MACRO  V05.03b  Saturday  29-Jun-85  03:30  Page 
NODE  INFO  INITIALIZATION 


7-1 


134  00011A 

005721 

10$: 

Tsr 

(R1)t 

135  000116 

005721 

TST 

(R1)  + 

156  000120 

012100 

MOV 

(Rwt.RO 

137  000122 

138 

139  0001 2^; 

001411 

BEQ 

15$ 

010063 

000006 

MOV 

R0,D$LNAM(R3) 

'40  000130 

012163 

000010 

MOV 

(Ri)+,D$LNAM+2(R3) 

'.1   000134 

012163 

000012 

MOV 

(R1)+,D$LNAM+4(R3) 

-,2  000140 

062701 

000012 

ADD 

#10.,R1 

143  000144 

000402 

BR 

20$ 

144  000146 

062701 

000016 

15$: 

ADD 

#14.,R1 

145 

146  000152 

062701 

000020 

20$: 

ADD 

*i6.,Rl 

147  000156 

012100 

MOV 

(R1)+,R0 

148  000160 

001414 

BEQ 

21$ 

149  000162 

010046 

MOV 

RO,-(SP) 

150  000164 

042716 

001777 

BIC 

#*CAREA,(SP) 

151   000170 

005726 

TST 

(SP)  + 

152  000172 

001005 

BNE 

12$ 

153  000174 

016346 

000022 

MOV 

D$H0ST(R3),-(SP) 

154  000200 

042716 

001777 

BK 

#'CAREA,(SP) 

155  000204 

156 

157  000206 

052600 

BIS 

(SP)+,PO 

010063 

000022 

12$: 

MOV 

R0,D$HOST(R3) 

158  000212 

062701 

000004 

21$: 

ADD 

#4,R1 

159  C00216 

105721 

[STB 

(RV■^ 

160  000220 

001410 

BEQ 

30$ 

161   000222 

012703 

177764G 

MOV 

*$TTNS-14,R3 

162  000226 

163 

164   300232 

012702 

000006 

MOV 

#6,R2 

112100 

22$: 

M0V8 

(R1)+,R0 

ro,(r!)*- 

165  000234 

010023 

MOV 

166  000236 

SOB 

R2,22$ 

167 

168  00024? 

169 

-70 

30$: 

RETURN 

000001 

.END 

NT 
SE' 


:POINT  AT  NODE  NAME  FIELD 

; is' THERE  A  NODE  NAME  PRESENT? 
;BR  IF  NO 

:SET  IT  IN  CEXCM 

;ALSO  SECOND  WORD 

:ALSO  THIRD  WORD 

;SKIP  PAST  THE  REST  OF  LOCAL  NODE  NAME 

;AND  CHECK  NEXT  FIELD 

iPOINT  AT  NEXT  FIELD 

:SKIP  HOST  NODE  NAME  FIELD 

;GET  HOST  NODE  ADDRESS 

;IF  EQ,  NONE 

;SAVE  HOST  ADDRESS 

; ISOLATE  AREA 

;AREA  0  ? 

;IF  NO  -  BRANCH 

.-SAVE  VNP'D  HOST  ADDRESS 

;  ISOLATE  AREA 

;SET  AREA 

;SrORE  HOST  NODE  ADDRESS 

.-POINT  AT  DATE/TIME  FIELD 

.-CHECK  CENTURY  IN  DATE/TIME  FIELD 

;IF  EQ,  NO  TIME  PARAMETERS  TO  HANDLE 

.-POINT  TO  SYSCM  DATE/TIME  VECTOR 

.-NUMBER  OF  FIELDS  TO  COPY  FROM  PARAMETER 

;  MESSAGE  TO  CURRENT  DATE/TIME  VECTOR 

.-GET  NEXT  DATE/TIME  PARAMETER 

.STORE  IN  DATE/TIME  VECTOR  IN  SYSCM 

;LOOP  THROUGH  ALL  THE  PARAMETERS 

;FINISHED  -  RETURN  TO  USER  STATE 


NTlDLl  -  NtlNlT  DOWN  LINE  LOAD 
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NULOf>i  -  NTINIT  'EXECUTOR  ON'  R  MACRO  V05.03b  Saturday  29-Jun-85  03:31 
SET  EXECUTOR  ON 


Pine  9-3 


NT 
DA 


29?  000362 

296  000570 

297  000376 
298 


350$ 
360$ 
370$ 


EMSGSR  17 
EMSGIR  18 
EMSGSR  11 


RUNS  FAILURE 

PLB  ALLOCATION  FAILURE 

ROUTER  PRIORITIES  DATA  BASE  ALlOC.  FAILURE 


J 


NTILON  -  NTINIT  'EXECUTOR  ON' 


0  6 
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NT 


NIIMFE  - 

DO  MARKED-FOR-ENABLE  S 

DMA 

5A 

55 

56 

57 

58 

59 

60 

oocooo 

61 

62 

63 

64 

65 

66 

67 

68 

69 

000000 

70 

000000 

71 

000000 

72 

000000 

73 

000000 

7U 

000000 

75 

000000 

76 

000000 

n 

000000 

78 

000000 

79 

000000 

80 

81 

82 

83 

8A 

000004 

85 

000001 

86 

87 

88 

89 

90 

000000 

91 

000002 

92 

000003 

93 

000004 

000000 

9A 

95 

96 

OOOC06 

C  7 
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If  MEMORY  MANAGEMENT  IS  !N  EFFECT,  ALWAVS  ASSEMBLE  CODE  AS  IF 
IT  WERE  FOR  THE  11/70 


. IIF    DF,M$$MGE, 


LIBRARY  MACROS 


M$$EXT=0 


.-ALWAYS  ASSEMBLE  FOR  THE  11/70 


.MCALL  SLTDF$,PDVDF$,RETC,WSIG$S,CCBDF$,SAVRG,RESRG,XPDDB''-,.  DJDF$ 
.MCALL  BIAS, MAP, SAVMAP,RESMAP,CTRDF$.SVCDF$,PHBDF$,PLBDF$ 
.MCALL  MRKT$S,WTSE$S,EMSG$,DHBDF$,ECDDB$,CALLR 


DHBDFS 
ECDDBS 
CCBDFS 
CTRDFS 
XPDDBS 
SLTDFI 
SVCDFS 
PhBDFS 
PDVDFS 
PLBDFS 
ADJDFS 


CONSTANT  DEFINITIONS 


STRT  -  4 
TMEFN  =  1 


STATION  ADDRESS 


STAADD 
STANUM 
CTLNUM 
ACTCIS 


.BLKW 
.8LKB 
.9L<B 
.WORD 


.PSECT 


DEFINE  DECNET  HOME  BLOCK  OFFSETS 

DEFINE  ECL  DATA  BASE  OFFSETS 

DEFINE  CCB  OFFSETS  AND  CONSTANTS 

DEFINE  COdNTER  BLOCK  OFFSETS 

DEFINE  TRANSPORTS  DDB  OFFSETS 

DEFINE  SLT  OFFSETS  AND  CONSTANTS 

DEFINE  Si/C   OFFSETS 

DEFINE  PSI  HOME  BLOCK  OFFSETS 

DEFINE  PDV  OFFSETS  AND  CONSTANTS 

DEFINE  PLB  OFFSETS 

DEFINE  ADJACENCY  BLOCK  OFFSETS 


.-START  STATUS  FLAG  FOR  CCB 
; TEMPORARY  EVENT  FLAG 


ADDRESS  OF  STATION  TABLE  FROM  SLT 

STATION  NUMBER 

CONTROLLER  NUMBER 

XPT  CIRCUIT  ACTIVE,  ENDNODE  ONLY 
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C  8 

PAGE  ^ 

CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

ZF.MTM 

=   OOO'^OO 

#6-77 

ZF.MUX 

=  OOOOAO 

ltb-77 

ZF.PSE 

=  002000 

#6-77 

ZF.SLI 

=  010000 

#6-77 

ZF.TIM 

=  000200 

#6-77 

ZF.X3P 

=   000000 

#6-/7 

ZS.ASN 

=  100000 

#6-77 

ZS.BSY 

=  uoooo 

#6-77 

Z.AVL 

oooou 

#6-77 

Z.DAT 

oooou 

#6-77 

8-285 

Z.DSP 

000000 

#6-77 

6-77 

Z.FLG 

00001 c 

llb-77 

Z.LEN 

^i  000016 

»b-77 

Z.LLN 

000006 

ltb-77 

Z.MAP 

000020 

ltb-77 

Z.NAM 

000004 

ltb-77 

7-179 

Z.PCB 

000012 

ltb-77 

Z.SCH 

000007 

ltb-77 

IDBECL 

~      *  r+  **  * 

GX 

7-182 

7-226 

$ERR12 

r      ****** 

GX 

7-193 

7-237 

SHEADR 

r      ****** 

GX 

8-299 

SNIMFF 

00'',006 

RG 

#7-111 

SSAVAL 

~      *-**** 

GX 

7-117 

$$$ARG 

=  0OOC04 

#7-113 
7-113 

7-113 
7-113 

7-223 


7-113 


7-113 


7-113 


7-113 


7-113 


7-113 


7-113 
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C  9 


_J 


391 

392 

.If  NDf 

R$$11S 

395 

BIT 

#LS.CX5,$MFNC 

394 

BNE 

60$ 

395 

.ENDf 

395 

397  000064 

398 

399  000066 

000442 

BR 

90$ 

r.5777 

000514' 

40$: 

TST8 

aLGSTT 

400  000072 

001413 

BEQ 

50$ 

401  000074 

DIR$ 

*$NIMRK 

402  000102 

UTSE$S 

#MRKTEF               ; 

403  000114 

D!R$ 

ffiNIEVC 

404  000122 

50$: 

CALL 

$NIL0N 

405  000126 

103415 

BCS 

80$ 

406 

407 

.IF  NDF 

S$$BAS 

408 

.IF  OF  R$$11S 

409  000130 

032767 

020000 

000032' 

BIT 

*LS.UNF,$NIFNC 

410  000136 

001415 

BEQ 

90$ 

411  000140 

017700 

000446' 

MOV 

aTKTCB.RO 

412  000144 

042760 

002000 

000034 

BIC 

#T2.FXD,T.ST2(R0) 

413  000152 

012760 

131574 

000010 

MOV 

#*R...,T.NAMt2(R0) 
;DF  R$il1S 

',14 

.IFF 

415 

BIT 

#LS.CX5,$NIFNC 

416 

BNE 

60$ 

417 

.ENDC 

;DF  R$$11S 

418 

419 

420  000160 

421 

422 

.ENDC 

;NDF  S$$BAS 

000404 

BR 

90$ 

.IF  NDF 

'■'$$115 

423 

60$: 

TSTB 

aLGSTT 

454 

BEQ 

70$ 

425 

DIR$ 

#$NIMRK 

426 

WTSE$S 

#MRKTEF 

427 

DIR$ 

#$NIEVC 

428 

70$: 

CALL 

$NIX25 

429 

BCS 

80$ 

430 

BR 

90$ 

431 

432 
433 
434  000162 

.ENPC 

012767 

Mim 

000032' 

J6$: 

MOV 

*-1,$NIFNC 

435  0001^0 

000402 

BR 

100$                ; 

436  C00172 

437 

438  000176 

005067 

000032' 

90$: 

CLR 

$NIFNC 

100$: 

.IF  NDF 

R$$11S 

439 

DSAR$S 

440 

CLR 

$NJFLG                ; 

441 

TST 

$NIAST 

442 

BEQ 

in$ 

44  3 

CALL 

pu:rtST 

444 

BR 

120$ 

445 

446 

110$: 

D1R$ 

#NTISEN             ; 

447 

120$: 

CALL 

NTIRDX 

IS  IT  SET  X25  ON  ALSO? 
BR  IF  YES 


ELSE  FINISH  UP 

ARE  ANV  LOGGING  SINKS  ENABLED? 

IF  EO,  NO 

WAIT  TWO  SECONDS  FOR  EVL 

TRY  TO  START  EVENT  COLLECTOR 
FUNCTION  -  SET  EXECUTOR  ON 
BR  IF  ERROR 

DO-"T  PERM!"  UNFIX  ON  SERVER  BASE 

IS  THE  UNFIX  SUB-FUNCTION  SET  ? 

..  NO 

GET  OUR  TCB  ADDRESS 

CLEAR  THE  FIXED  BIT 

CHANGE  INSTALLED  NAME  TO  "NTI..." 

IS  IT  X25  STATE  ON  ALSO? 
BR  IF  YES 


ELSE  EXIT  WITH  SUCCESS 


ARE  ANY  LOGGING  SINKS  ENABLED? 

IF  EQ,  NO 

WAIT  TWO  SECONDS  FOR  EVL 

TRy'to  START  EVENT  COLLECTOR 
FUNCTION  -  SET  MODULE  X25-SERVER 
BR  IF  ERROR 
FINISH  UP 


INDICATE  NTINIT  FUNCTION  FAILED 
AND  FINISH  UP 
INDICATE  SUCCESS 


DISABLE  AST  RECOGNITION 

CLR  FLAGS  AND  BUSY  INDICATION 

NOTIFY  USERS  VIA  AST? 

BR  IF  NO 

ELSE  NOTIFY  USER  VIA  AST 

AND  CONTINUE 

SEND  COMPLETION  TO  THE  REQUESTOR 
GET  NEXT  FUNCTION  OR  EXIT 
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Symbol  table 


;-1 


C  10 


ABTIM 

00OA56RG 

002  CF.SYHJ= 

000040 

C.FLG2 

000032 

FS.LrM= 

001000 

LGSTT 

00O514RG    002 

ALOCB 

000436RG 

002  CF  .TIM= 

000400 

C.FIJC 

000010 

FS.MNT= 

004000 

LLCAL 

000524RG    002 

Ai,.DEL- 

000010 

CF.TRN= 

000100 

C.LIN 

000006 

fS.MSN= 

014000 

UCRS 

0OG5O4fi' 

G    UU^ 

AS.EXT= 

OOOOOA 

CLKHD 

000452RG 

002  C.LNK 

000000 

FS.REA= 

5S199S 

LLCTA 

000526RG    0U2 

AS.RED= 

000001 

CMODE  = 

140000 

C.MOD 

000011 

FS.RE1= 

000000 

LN.CLO= 

000000 

AS.URT= 

000002 

CM.CIR= 

000002 

C.NSP 

000004 

FS.REZ= 

003000 

LN.DUM= 

000005 

A$$CHK= 

000000 

CM.FMT= 

100000 

C.PRO 

000042 

FS.RLB= 

002000 

LN.LOA= 

000004 

A$ICPS= 

000000 

CM.HRD= 

000002 

C.RSV 

000002 

FS.RNG= 

011000 

LN.LOO= 

000003 

AS$PR!= 

000000 

CM.LIN= 

000000 

C.STA 

000007 

FS.RST= 

000000 

LN.0AU= 

000003 

A$$TRP= 

000000 

CM.lOO= 

000001 

C.STS 

000012 

FS.RTN= 

001000 

LN.OFF= 

000001 

A.  IOC 

000003 

CM.XL0= 

000004 

C.URM 

177776 

FS.SET= 

005000 

LN.ON  = 

000000 

A.LGTH= 

oooou 

CP.[)CF  = 

000040 

C.XACP 

000004 

FS.SFC= 

005000 

LN.OOP^ 

000004 

A.MPCT 

000011 

CP.HDL= 

000007 

C.XID 

000035 

FS.SFR= 

006000 

LN.OPE= 

000001 

A.PCB 

000012 

CP.PS  = 

177400 

C.XLEN 

000044 

FS.SFS= 

004000 

LN.REF= 

000002 

A.PCBL 

000000 

CP.PSI= 

000200 

C.XPLI 

000040 

FS.SPW= 

040000 

LN.SER= 

000002 

A.°RI 

000002 

CP.XCF= 

000100 

C.XPT 

000034 

FS.STM= 

000000 

LN.STA= 

000017 

A.SIAT 

000010 

CP.2FR= 

000030 

C.XSVC 

000042 

FS.STP= 

002000 

LN.SUB= 

000360 

A.TB 

OOOOOA 

CS.ASu- 

000100 

C.XTC 

000037 

FS.SrR= 

001000 

LN.TRI= 

000006 

A. iCBL 

000006 

CS.BRO= 

000002 

C.X25 

000036 

FS.TRM= 

003000 

LO.CON 

000006 

G 

BUFLIMP  = 

172354 

CS.BUF= 

000200 

DEACB 

000440RG 

002  F3.WLB= 

001000 

LO.CSR 

000006 

G 

:allx 

000'i72RG 

002  CS.CES= 

000002 

DECPT 

000516RG 

002  FS.XKL- 

002000 

LO.CTL 

000014 

G 

CB.CCB= 

000002 

CS.CHN= 

000010 

DEVHD 

000460Rr, 

002  FS.XOF= 

010000 

LO.LIN 

000004 

G 

CB.DDM= 

000040 

CS.CMP= 

000200 

D$$BUG= 

177514 

FS.XON= 

007000 

LO.PAR 

000010 

G 

CB.DlC= 

000020 

CS.DCR= 

000400 

D$$ISK= 

000000 

FS.ZER= 

002000 

LO.PRl 

000010 

G 

CB.RDB= 

000004 

CS.DEF= 

000004 

D$$L11= 

000001 

F$$LVL= 

000001 

LO.SCR 

000014 

G 

CB.SDB= 

000010 

CS.DEV= 

000002 

D$$YNC= 

000000 

G$$TPP= 

000000 

LO.STA 

000015 

G 

CB.SLI= 

000100 

CS.DIS= 

000040 

D$$yNM= 

000000 

G$$TSS= 

000000 

LO.VCT 

000012 

G 

CB.XLB= 

000001 

CS.ENA= 

000001 

EXEVEC 

000424R 

002  G$$TTK= 

000000 

LR.AST 

000026 

G 

CCBGT 

000502RG 

002  CS.ENB= 

000020 

E$$XPR= 

000000 

G$$WRD= 

000000 

LR.CIR 

000002 

G 

CC  .LLC  = 

000200 

CS.ERR= 

100000 

FC.CCP= 

000020 

HEADR 

000444RG 

002  LR.CTL 

000004 

G 

CEACC 

000510RG 

002  CS.FTL= 

001000 

FC.CTL= 

000006 

IO.WVB= 

«*»♦««  GX 

LR.EFN 

000004 

G 

CF.ABO= 

100362 

CS.HCR= 

000001 

FC.KCP= 

000016 

I$$RAR= 

000000 

LR.LIN 

000002 

G 

CE.DAO= 

100346 

CS.HFE= 

002000 

FC.KIL= 

000004 

I$$RDN= 

000000 

LR.PRM 

000030 

G 

CE.DIS= 

100366 

CS.LST= 

040000 

FC.MAN= 

000024 

KISARO= 

172340 

LR.PRO 

000002 

G 

CE.ERR= 

100370 

CS.MTL= 

004000 

FC.MLD= 

000026 

K1SAR6= 

172354 

LR.STS 

000000 

G 

CE. ILN= 

100^50 

CS.RNIG= 

000010 

FC.PCT= 

000030 

KSAR6 

000430RG 

002  LR.TCB 

000002 

6 

CE.LTO= 

100356 

CS.R0V= 

000004 

FC.PWR= 

000022 

K$$CNT- 

177546 

LR.UNT 

000005 

G 

CE.MOP= 

100372 

CS.RSN= 

010000 

FC.RCE= 

000002 

K$$CSR= 

177546 

LS.AST= 

100000 

G 

rE.NTE= 

100361 

CS.SHU= 

000001 

FC.RCP= 

000014 

K$$LDC= 

000000 

LS.CEX= 

000001 

G 

(;e.rte= 

100376 

CS.SID= 

000002 

FC.TIM= 

000010 

K$$TPS= 

000074 

LS.CIR= 

000010 

G 

CE.SRC= 

100364 

CS.STR= 

000004 

FC.XCP= 

000012 

LDPWF 

00046''RG 

002  LS.CX0= 

010000 

G 

CE.STP= 

100352 

CS.SUC= 

000001 

FC.XME= 

000000 

LD$LP  = 

OCOOOO 

LS.CX5= 

000400 

G 

CE.T^1E  = 

100354 

CS.TMO= 

020000 

FE.CEX= 

***»♦*  GX 

LF.ACT= 

100000 

LS.DLM= 

004000 

G 

CE.TMO= 

100374 

CS.XUR= 

000004 

FMASK 

000426RG 

002  LF.BR0= 

000400 

LS.ECH= 

001000 

G 

CE.UNS= 

100344 

C$$CKP= 

000000 

FNDPDV 

000204RG 

LF.8WT= 

000007 

LS.FDX= 

004000 

G 

CF.CHN= 

000001 

C$$0RE= 

000400 

FS.AST= 

000000 

LF.E'>JA= 

002000 

LS.HDX= 

010000 

G 

CF.DDM=: 

000002 

C$$RSH= 

177564 

FS.CI8= 

002000 

LF.LPB= 

001000 

LS.LIN= 

000003 

G 

CF.DYN= 

000004 

C.ADD 

000034 

F5.CRA= 

001000 

lF.MDC-- 

000100 

LS.LMC= 

000007 

G 

CF.EIS= 

000010 

C.BID 

000003 

FS.DIS= 

013000 

LF.MFL= 

004000 

LS.NT!= 

004000 

G 

CF.EOM= 

000004 

C.BUF 

000014 

FS.DVC= 

001000 

LF.MrR= 

000020 

LS.ON  = 

0000- 1 

G 

CF.FR<= 

100000 

C.SUFI 

000014 

FS.FNB= 

012000 

LF.PAC- 

000200 

l_S.0PT  = 

OOO'fOO 

6 

CF.hDR= 

000020 

C.8UF2 

000024 

FS.EXI= 

001000 

LF.RDY= 

040000 

LS.PR0= 

000002 

G 

CF.LB  = 

100000 

C.CNT 

000020 

FS.GET= 

006000 

LF.REA= 

010000 

LS.PUF= 

040000 

G 

CF .LIN- 

000002 

CCNll 

000020 

fS.HLT= 

000000 

LF.SER= 

OC0040 

LS.T0P= 

002000 

G 

CF.lOG  = 

000020 

C.CNT2 

000030 

FS.INI= 

000000 

LF.TIM^ 

000010 

LS.UNF= 

020000 

G 

CF.MD^1= 

0G0001 

C.-LG 

000022 

FS.KIl^ 

000000 

LF.IJNL  = 

U20000 

LS,X25= 

000012 

G 

rF.<;OM  = 

000010 

C.FLG1 

000022 

FS.LCL= 

100000 

LF.X2P= 

OCOOOO 

LS.riD  = 

004000 

G 
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NTITIM 

MAlRO  V05.05b  Saturday 

29- 

■Jun-85  03:53 

Page  6 

DATA 

55 

.SBTTL 

DATA 

56 
57 
58 
59 
60 
61 
62 

;  LIBRARr  MACROS 

.MCALL 

NHWDFS, CLKDFS 

000000 

NHWDFS 

63 

000000 

CLKDFS 

6A 

65 

66 

;  LOCAL 

DATA 

67 

68 

69 

000001 

T5 

=  1 

70 

000002 

T1 

=  2 

71 

12 

000000  000000 

TIFLG: 

.WORD 

0 

71 

Ik 

75 

76 

;  START 

OF  PURE 

CODE 

77 

78 

000002 

.PSECT 

;HARDWARE  DEFINITIONS 

.-DEFINE  CLOCK  QUEUE  FNTRY  OFFSETS 


50  MSEC  CLOCK  BLOCK  QUEUED 
1  SEC  CLOCK  BLOCK  QUEUED 


TIMER  BLOCK  FLAG  WORD 
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LOAD  UMR'S 


10? 


000001 


Page  8 
•  END 
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CFECOM     CREATED  BY  MACRO  ON  :'9-JUN-85  AT  04:55 
SYMBOL  '.ROSS  REFERENCE 


C  13 

PAGE  1 

CREF   OA.OO 


SYMBOL 

VALOE 

REFERENCE 

5 

ARROWS 

000503 

R 

#4-104 

5-152 

CR 

000501 

R 

#4-103 

5-159 

CRLF 

000A73 

R 

#4-102 

5-147 

iRRCAL 

000270 

RG 

#4-98 

;rrchn 

000162 

RG 

#4-96 

;rrcid 

OOOOAA 

RG 

#4-94 

:rrfsp 

000401 

RG 

#4-100 

;rrgcl 

r  ****** 

GX 

5-168 

;rrilc 

r   ****** 

(IX 

5-140 

ERRIPV 

000433 

RG 

#4-101 

ERRLID 

000000 

RG 

#4-93 

^RRLTY 

000220 

RG 

#4-97 

ERRPRO 

000113 

RG 

#4-95 

ERRWLD 

000341 

RG 

#4-99 

EXSERR 

-  000002 

#4-92 

4-101 

4-93 

IE. EOF 

r  <t*  *■•**■ 

GX 

5-165 

ORSKTB 

r  ****** 

GX 

5-138 

=RSSTB 

r   ****** 

GX 

5-139 

SBUFF 

:z      ♦*♦*«* 

GX 

5-150 

SCFCOM 

000510 

RG 

#5-122 

SCFERR 

-  ****** 

GX 

5-160 

5-168 

tCFERl 

r  ****** 

GX 

5-147 

5-150 

SCIRCT 

r  ****** 

GX 

•5-130 

SCLERR 

000760 

RG 

#6-178 

tCLlOS 

-   ****** 

GX 

5-165 

SCMAND 

::  ****** 

GX 

♦5-123 

SCOMP 

r  ****** 

GX 

*5-126 

SERROR 

000506 

RG 

#4-106 

•5-140 

SFLAGS 

~  ****** 

GX 

*5-128 

SGTPLN 

^  ****** 

GX 

5-141 

$INFO 

r  ****** 

GX 

•5-131 

SNODNA 

3  ****** 

GX 

•5-133 

•5-134 

SOPRND 

:     ****** 

GX 

•5-124 

S0PRN2 

=  ****** 

GX 

•5-125 

SSWICH 

-  ****** 

GX 

•5-127 

$TNUM 

—  ****** 

GX 

•5-132 

$VLVL 

r:  ****** 

GX 

•5-135 

$yJlLD 

-     ♦**•*» 

GX 

•5-129 

4-94 


5-152 


5-160 


4-95 


5-157 


•6-179 


4-96 


5-159 


4-97 


4-98 


4-99 


4-100 
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CFEDEf  - 
SETIRN  - 

353 

33A 
335 
336 
337 
338 
339 
340 
3A1 
3A2 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 


PROCESS  DEFINE  COMMAND  MACRO  V05.03b  Saturday  29-Jun-85 
SET  TRANSPORT  CIRCUIT  PARAMETERS 


04:3 
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001030 
001030 
001036 
001040 
U01046 
001050 
001054 
001062 
001064 
001070 
001072 
001100 
001102 
001106 


032767 
001004 
032767 
001402 
004767 
032767 
001403 
004767 
1034'^^ 
0327j^ 
001402 
004767 
000207 


INPUT: 


OUTPUT: 


.SBTTL   SETTRN  -  SET  TRANSPORT  CIRCUIT  PARAMETERS 
SETTRN  -  SET  TRANSPORT  CIRCUIT  PARAMETERS 

'SOPRND  =  OPERANDS  PRESENT 

T: 
CONTROL  PASSED  TO  PROPER  ROUTINE 


SETTRN: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG        5$: 
OOOOOOG  0000006  10$: 

OOOOOOG 

OOOOOOG  OOOOOOG  20$: 

OOOOOOG 

40$: 


BIT 

BNE 

BIT 

BEQ 

CALL 

BIT 

BEQ 

CALL 

BCS 

BIT 

BEQ 

CALL 

RETURN 


#SW.SLT,$SWICH 

5$ 

*0C.SLT,$0PRND 

10$ 

$SESLT 

*0C.CNT,$0PRND 

20$ 

$SECNT 

40$ 

#0C.UNT,$0PRND 

40$ 

$SEUNT 


.DSA8L  LS8 


CHANGE  THE  SLT/STATION  DEFINITION  ? 

If  NE,  yES 

CHANGE  THE  SLT/STATION  DEFINITION  ? 

IF  EQ,  NO 

CHANGE  THE  SLT  DEFINITION 

CHANGE  THE  CONTROLLER  DEFINITION  ? 

IF  EQ,  NO 

ELSE,  CHANGE  THE  CONTROLLER  DEFINITION 

It  rb       f- RROR 

CHANGE'THE  UNIT/STATION  DEFINITION  ? 
IF  EQ,  NO 
ELSE,  CHANGE  THE  UNIT  DEFINITION 


D  H 
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CFrDSP  -  DIPATCH  ROUTINE 
Symbci  table 

D5PTBL  OOOOOOR 
$CFDEF=  ••••••  GX 
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1 


SCFDSP     O&OOURG 
tCFHLP-    ••'■•♦«    GX 


$Cr'L]S=  *•»••< 
$CFPRG=  ♦••»•« 


GX 
GX 


$CMAND=  »*»••*  GX 
$FIN  =  »..**«  GX 


.EXIT 


**•••«  GX 


.  ABS.  COOOGO 

000 

(RW, 

,GBL,ABS,OVR) 

000050 

OCT 

(RW, 

,LCL,REL,CON) 

Errors  detected: 

0 

Assembler  statistics 


^ork   tile  reads;  C 

Work   file  writes:  C 

Size  ot  work  tile:  56  Words  (  1  Pages) 

Size  of  core  pool:  U440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLU5 

Elapsed  time:  00:00:04.01 
S1:CFEDSP.V2,[132,134]CFEDSP/CR/-SP=SV:[1, 


]RSXMCM.SML/ML,[130,110]NETL18/ML,[132,10]CFEDSP 


rDCSTCh  nv   Miron  nw  PO-IIIW-RS  47  fli.'SS 
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FEIMP  -  SYMBOL  DEflNITIONS  AND  MACRO  VOS.OSb  Saturday  2'r-Jun-85 


S.l^ 


5  Page  « 


56 
57 
58 
59 
60 
61 
62 


•  *  *  *  * 

':    LIBRARY  MACRO  CALLS 

•  *  *  *  * 


.MCALL   Ql  0W$,  F  SRS7$,fDB[)F$,F  DAI  $A,FDRC$A,fDOP$A,f  DOFFS 
.MCALL   GCLDf$,NSFDF$ 


D  16 
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D  1 


Nl 
SE 


]? 

]l 

U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
';i 
52 


.TITLE   NTIUMR 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  HAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  ^he  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  LOAD  UNIBUS  MAPPING  REGISTERS  FOR  NETWORK  BUFFER  POOL 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.O0  7-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 
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NTIX25  -  NTINIT   'MODULE    X25-SER  MACRO  VO5.03b  Saturday  29-Jun-85  '"3:29 
SET   MODULE    X25   SERVER 


Page  7-1 


162  000102 

163  000106 

164  000112 

165  000114 

166  000126 

167  000130 

168  000134 
169 

170  000156 

171  000140 
172 

173 

174  000144 

175  000146 
176 

177  000150 

178  000154 
179 

180  000156 

181  000162 

182  000164 
183 

184  000170 

185  000174 
186 

187  000200 

188  000206 

189  000214 
190 

191 


103006 

000402 

010266  000004 


103402 


000241 


012703  0001'^6' 
000113 

010465  000034 

001014 

012701  000034 


000001 


41$: 
42$: 

SWSTK$ 

CALL 

BCC 

RETC 

ER 

MOV 

RETURN 

45$ 

aPDVJD 

41$ 

RO 

42$ 

R2,4(SP) 

45$: 

BCS 

CALL 

.ENDC 

50$ 

$NIMfE 

;  NDF  R$$11S 

50$: 

CLC 
RETURN 

60$: 
70$: 

MOV 
JMP 

#90$, R3 
(R3) 

90$: 

MOV 
BNE 
MOV 

R4,U.VCB(R5) 

121$ 

#V$LEN,R1 

SWSTK$ 
CALLR 

121$ 
aDEACB 

101$: 
111$: 
121$: 

EMSG$R 

EMSG$R 

EMSG$R 

.ENDC 

.END 

40 
41 
42 

ENTER  SYSTEM  STATE 

GET  PLI'S  PDV  INDEX 

BR  IF  PLI  NOT  IN  SYSTEM 

RETURN  CARRY  SET 

AND  EXIT 

STORE  PDV  INDEX  IN  USER  R1 

EXIT  SYSTEM  STATE 

BR  IF  PLI  NOT  IN  SYSTEM 

DO  THE  MARK  FOR  ENABLE  SCAN 


.SUCCESS  -  ALL  DONE 


;  DON'T  FORGET  TO  DE-ALLOCATE  THE  VCB 
;  DE-ALLOCATE  VCB  OR  PRINT  ERROR  MESSAGE 

.-RESTORE  ORIGINAL  CONTENTS 
;  ..  IT  WAS  NON-ZERO  (?l?) 
;VCB  LENGTH 

;♦  ENTER  KERNEL  MODE 
;*  DE-ALLOCATE  THE  VCB 

;ALUN$  FAILURE  OR  NW  LOAD  FAILURE 
;VCS  ALLOCATION  FAILURE 
;RUN$  FAILURE 


NTIX25  -  NTINIT 
Svfnhol  table 


'MODULE  X25-SER  MACRO  V05.03b  Saturday  29-Jun-85 


^3:! 
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NTICEX  MACRO  V05.03b  Saturday  29-Jun-85  03:29  Page  8-1 
LOCAL  INITIALIZATION 


0    3 


217  000106 

218  000112 

219  0001U 

220  000116 
221 

222 
223 
224 
225 
226 

227  000116 

228  000122 
229 

230 

231  000130 

232 

233 

23A  000136 

235  OOOUA 

236  000U6 
237 

238 

239  000U6 

240  000150 
241 

242 

243 

244 

245 

2'.6  000152 

247  000156 

248 

249 

250  000160 

251  000164 
252 

253 

254  000166 

255 

256 

257 

258 

259 

260  000166 

261 

262 

263 

264 

265 

266 

267 

268  000172 

269  0001^6 

270  000200 


012700  OOOOOOG 
001401 


271 
2T, 
27 


5$: 


017777  OOOOOOG  OOOOOOG 
016766  140002'  000006 
016766  140000G  000010 


l.i: 


005702 
001406 


005777  OOOOOOG 
001403 


000402 


20$: 


000202 


005077  OOOOOOG 


012700  OOOOOOG       25$: 
001401 


30$: 


,'10V 
BEQ 
CALL 
.ENDC 

.IF  OF 
CALL 

.ENDC 

SWSTK$ 
MOV 

.IF 
MOV 
.ENDC 

MOV 
RETURN 

.IF 

TST 
BEO 


#$NIDLI,RO 

5$ 

(RO) 


R$$MPL 
INILIN 


10$ 
aNTLPT,aK3AR6 

DF,M$$EXT 
.BASEB+2,6(SP) 


.8ASEB+.CXCSR,10(SP) 


DF,M$$EXT 


R2 
20$ 

.IF  DF  R$$MPL 
BIT     #HF.U8M,aHFMSK 
BED     20$ 

.IFF 
TST     aUMRPT 
BEQ     20$ 

.ENDC 


DF  R$$MPL 
DF  R$$MPL 


ALL 
BR 
.ENDC 

.IF  DF 

SWSTK$ 

.IFTF 

CLR 

.IFT 

RETURN 

.lNDC 

MOV 
BEQ 
CALL 


$NIUMR 
25$ 


R$$MPL 

25$ 

;DF  R$$MPL 

aPUMR 

;DF  R$$MPL 


#$N!CSR,RO 

30$ 

(RO) 


.IF  OF   R$$MPL 


GET  DOWN-LINE  LOAD  INITIALIZER 
BR  IF  NO  SUCH  MODULE 
PERFORM  DOWN-LINE  LOAD  INIT 
*-END  RSX11S  CODE-* 

;CHP01] 
;  REINIT  HRC...  IF  RSX  DATA  STRUCTURES 
;  HAVE  CHANGED  ;CMP01] 

;CMP01] 

; ENTER  KERNEL  MODE 

;;MAP  TO  THE  NETLDR  DATA  BLOCK 


; RETURN  UMR  BLOCK  ADDRESS  IN  R2 


;;RETURN  CSR  CHECK  BLOCK  ADDRESS  IN  R3 
;;BACK  TO  U-^ER  MODE  AT  10$ 


:IS  THERE  A  UMR  BLOCK  ? 
;IF  EQ,  NO 


;DOES  THIS  SYSTEM  HAVE  UMR'S? 
;BR  IF  NO 

.-DOES  THIS  SYSTEM  HAVE  UMP'S? 
;BR  IF  NO 


;LOAD  THE  UMR'S 
;  CONTINUE 


;;ENTER  SYSTEM  STATE  IF  M+ 

;; (READ/WRITE  ACCESS  TO  LOW  MEMORY) 


lINDICAfE  NO  UMR'S 


.-RETURN  TO  USER  STATE  IF  M+ 


GET  CSR  CHECK  ROUTINE  ADDRESS 
BR  IF  NO  SUCH  ROUTINE 
CHECK  CSR  VALIDITY 


SPECIAL  CASE  HACK  FOR  NX 


; CMPOl ] 
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CSR  CHECK 


D  4 


96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 

117  000000 

118  000002 

119  000004 

120  000012 

121  000016 

122  000022 

123  000024 

124  000030 

125  000034 

126  000036 

127  000040 

128  000046 

129  000050 

130  000056 

131  000062 

132  000066 
133 

134  000070 
155  000074 

136  000076 

137  000100 
138 

139  00010? 

140  000106 

141  000112 
142 

143  000116 
144 

145  000120 

146  000122 
147 

148  000124 

149  000126 

150  000134 

151  000136 

152  000144 


.S8TTL  CSR  CHECK 

$NKSR  -  CHECK  IF  ALL  CSR'S  ARE  ON-LINE 
CSR  CHECK  LIST  FORMAT: 


.WORD 
.REPT 
.WORD 
.  WORD 
.ENDR 


LINK 

15. 
SLTA 
CSRA 


LINK  TO  NEXT  BLOCK  IN  LIST  OR  ZERO  (EOL) 
SERIES  OF  2  WORD  ENTRIES,  0  <-  X  <=  15. 

SYSTEM  LINE  TABLE  ADDRESS 

CSR  ADDRESS 
NUMBER  OF  ENTRIES  MAV  RANGE  FROM  0.  TO  15. 


INPUTS 


R3  =  ADDRESS  (BIAS)  OF  FIRST  BLOCK  IN  CSR  CHECK  LIST  (ZERO  IF  NONE) 

OUTPUTS: 

ALL  CSR'S  IN  LIST  ARE  CHECKED. 
R3  IS  DESTROYED. 


005703 
001521 

012702 
012701 
005000 

010377 
005302 
002014 
016766 
001423 
016777 
012701 
012702 
000762 

012167 
001002 
005721 
C00755 

C12166 
010166 
010266 


005700 
001445 

005046 

005710 

006026 


000017 
140002 


OOOOOOG 


SNICSR: 

10$: 
15$: 


140000'  000010 

140000'  OOOOOOG 

140002 

000017 


000016' 


000002 
000004 
0C0006 


TST 

BEQ 

SAVRG 

MOV 

MOV 

CLR 

SW3TK$ 

MOV 

DEC 

BGE 

MOV 

BEQ 

MOV 

MOV 

MOV 

BR 


R3 

60$ 

<R0,R1,R2> 

#17, R2 

#.8ASEB+2,R1 

RO 

30$ 

R3,aKSAR6 

R2 

20$ 

. BASES, lO(SP) 

25$ 

.BASEB,aKSAR6 

#.8ASEB+2,R1 

#17, R2 

15$ 


20$: 

MCV 
BNE 
TST 
BR 

(R1)+,CSRSLT 

23$ 

(R1)  + 

15$ 

23$: 

MOV 
MOV 
MOV 

(R1)t,2(SP) 

R1,'.(SP) 

R2,6(SP) 

25$: 

RETURN 

30$: 

TST 
BEQ 

RO 
50$ 

CLR 

DIRS 

TST 

DIR$ 

ROR 

-(SP) 

#CSRENA 

(RO) 

#c3rd;s 

(SP/  + 

CLEAR  CARRY,  ANY  CSR'S  TO  CHECK? 

BR  IF  NO,  FAST  EXIT 

SAVE  R0,R1,R2 

SET  INITIAL  MAX  COUNT 

R1  POINTS  AT  ENTRY  TO  CHECK 

RO  WILL  RETURN  CSR  ADDRESS  OR  ZERO 

GO  TO  SYSTEM  STATE 

MAP  TO  CURRENT  BLOCK  IN  LIST 

COUNT  DOWN  NUMBER  OF  ENTRIES 

BR  IF  ANOTHER  TO  CHECK 

RESET  USER  R3  TO  NEXT  BLOCK 

BR  IF  NO  NEXT  BLOCK,  END  OF  LIST 

MAP  TO  NEXT  BLOCK 

POINT  AT  FIRST  ENTRY 

RESET  MAX  COUNT 

GO  CHECK  IT 

PULL  OUT  THE  SLT  ADDRESS 
BR  IF  ENTRY  IS  NOT  EMPTY 
SKIP  SECOND  WORD 
GET  NEXT  ENTRY 

SET  USER  RO  "  i  CSR  ADDRESS 
POINT  USER  R   'T  NEXT  ENTRY 
PUT  CURRENT  COUNT  IN  USER  R2 

.•RETURN  TO  USER  MODE  AT  "30S" 

;GOT  CSR  ADDRESS  OR  END  OF  LIST? 
;BR  IF  FOUND  END  OF  LIST 

USE  AS  ARGUMENT  FOR  TRAP  RO'JTIN' 

ENABLE  ILLEGAL  ADDRESS  TRAPPING 

CHECK  THE  CSR  ADDRESS 

DISABLE  TRAPPING 

WAS  CSR  ADDRESS  ILLEGAL? 
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NTIDLl  -  NTINIT  DOWN  LINE  LOAD  MACRO  V05.03b  Saturday  29-Jun-85  03:i0 
ymboi  table 
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NT 
FN 


AREA  = 

176000 

DSLNAM 

000006 

A$SCHK= 

000000 

DSLNUM 

000014 

A$$CPS= 

000000 

DSLST 

000047 

A$tPRI= 

000000 

DSMAXC 

000064 

A$$TRP= 

000000 

DSMAXH 

000066 

3UFUMP= 

17235A 

DSMAXV 

000070 

CMODE  = 

UOOOO 

D$MLL 

000040 

C$$CICP= 

000000 

DSMNOD 

000041 

C$$ORE= 

OOOAOO 

D$NA 

000062 

C$SRSH= 

17756A 

DSNBEA 

000056 

DSAHXC 

000072 

DSNBRA 

000054 

OSAMXH 

00007A 

D$NEND= 

000054 

DSANN 

000000 

D$NLN 

000030 

DSBRPR 

000102 

D$NN 

000060 

DSBRTH 

000100 

DSOUTT 

000043 

DSDELf 

000045 

DSRETF 

000050 

DtDELW 

000046 

D$RNN 

000002 

DSEND  = 

0001 OA 

DSRTMR 

000076 

DSFNB 

00003A 

D$SEG 

000036 

DSHIDR 

000024 

DSSER 

000032 

OSHOST 

000022 

d:sqrl 

000052 

DSINAC 

000044 

D$$BUG= 

177514 

DIINCT 

000042 

D$$ISK= 

000000 

DSIPL 

000051 

D$$L11= 

000001 

D$L!D 

000020 

.  ABS. 

000104 

noo 

(RW,I,GBL,A8S,0VR) 

000244 

001 

(RW,I,L 

CL.REL.CON) 

Errors 

detected: 

U 

♦  ♦*  Assembler  stati'stit 

c 

Work   f 

lie  reads 

0 

Work   f 

1 le  writes 

0 

Size  of 

work  file 

112 

5  Words 

(  44  Pages) 

Size  or 

core  Bocl 

14440  words 

{  55  Pages) 

Operating  system 

RSX- 

■11M/PLUS 

0$$YNC= 
D$$YNM= 
E$$XPR= 
F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TIK= 
G$$WRD= 
I$$RAR^ 
I$$RDN= 
KISAR0= 
KISAR6= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 

L$$pn  = 

Li$11R= 
MPAR  = 
MPCSR  = 
M$$CRB= 


000000 
OOOOCO 
000000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
172340 
172354 
177546 
177546 
000000 
000074 
000000 
000000 
OOOuOO 
000001 
000000 
1/2100 
177746 
000124 


M$$CRX- 

M$$FCS= 

M$$MGE= 

H$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$f1CP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO   = 

PR1 

PP2   = 

PR3   = 

PR4   = 

PR5   = 

PR6   = 

PR7   = 

PS 


000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
177772 
030000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 


P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

SWR 

S$$WRG= 

S$$YSZ= 

TPS 

T$$KMG= 

T$$HIN= 

UBMPR  = 

UISARO= 

UISAR1= 

V$$CTR= 

X$$DBr= 

$DECPT= 

SNIDLI 

$SYSIZ= 

$TTNS  = 

.BASEB= 


000000 

000000 

000010 

000000 

000001 

000000 

000000 

000001 

177570 

000000 

007600 

177564 

000000 

000000 

170200 

177640 

177642 

001000 

000000 

******   GX 

OOOOOORG 

******  GX 

******  GX 

140000 


SY  :NTIDLins!v2.n32  J  34]NTIDLi;;S/CR/-SP=SY:[1J]RSXMCM.SML/ML,  [130,1 10]NETLje/ML,[130,10JRSXMCM/PA:1,  [132, 10]V2, NTIDLl 
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NT 


NTILOM 
FNDPLl 

300 
301 
302 
3C3 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
31A 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 
327 
328 
329 
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GET  plp:  pdv  index 


NT 
MA 


.SBTTL  FNDPLI  -  GET  PLI'S  PDV  INDEX 
f 

FNDPLI  -  GET  PDV  INDEX  FOR  PLJ  PROCESS 

INPUTS: 

NONE 

OUTPUTS: 

R1  -  PDV  INDEX  FOR  PLI 


000001 


.IF  NDF 

R$$11S 

FNDPLI 

SWSTK$ 
MOV 
CALL 
BCC 

20$ 

#*RPLI,R2 
aPDVID 
10$ 

RETC 
BR 

RO 
20$ 

10$: 

MOV 

R2,4(SP) 

20$: 

RETURN 

.ENDC 

.END 

ENTER  SYSTEM  STATE 
GET  RAD50  PROCESS  NAME 
LOOK  fOR  IT 
BR  IF  FOUND  IT 

RETURN  CARRY  SET 
AND  EXIT 

STORE  PDV  INDEX  IN  USER  R1 
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NT 


NTIMFE  -  DO  MARKED-FOR-ENAB: 
MARKED  FCR  ENABLE  .CAN 


98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000006 
112 

113  000006 
VA   000032 
115 
116 

117  000044 

118  000050 

119  000054 

120  000060 

121  000064 

122  000070 

123  000074 

124  000076 

125  000102 

126  000110 

127  000112 
128 

129  000116 

130  000122 
151  000126 

132  000130 

133  000136 
134 

135  000140 

136  000146 

137  000150 

138  000:56 
139 

140  000160 

141 

142  000164 
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.SBTTL  MARKED  FDR  ENABLE  SCAN 

SNIMFE  -  PERFORM  MARKED-FOR-ENABLE  SCAN 

INPUTS: 

ALL  PROCESS/LINES  MARKED  FOR  LOAD  HAVE  BEEN  LOADED 

OUTPUTS: 

ALL  LINES  THAT  ARE  READV  AND  OWNED  BY  SPECIFIED  LLC  ARE  ENABLED 
ALL  REGISTERS  ARE  PRESERVED 


SNIMFE:: 


005067 
017746 
017702 
017704 
012405 
00506? 
032765 
001002 


116500 
067700 
011000 
032765 
001412 

032765 
001404 
132765 

001402 


177724 
OOOOOOG 
OOOOOOG 
OOOOOOG 

177676 

040000  000000 


000003 
OOOOOOG 

100000  000000 


000400  000000 
000200  000022 


ENAC: 


1$: 


143 
144 
145 
146 
147 
148 
"49 
150 
151 
152 
153 

154 


4$: 
5$: 


.IF  NDF  S$$8AS 

MRKTSS  #TMEFN,#1,#2 

WTSESS  #TMEFN 
.ENDC 

CALL  SSAVAL 

CALL  FNDPDV 

CLR  ACTCIR 

MOV  aSLTNM,-(SP) 

MOV  aLLCTA.R? 

MOV  aSLTMA,R-< 

MOV  (R4)+,R5 

CLR  STAADD 

BIT  *LF.R0Y,L.FLG(R5) 

BNE  1$ 

CALLR  60$ 

MOVB  L.DLC(R5),R0 

ADD  aPDVTA.RO 

MOV  (fiO),RO 

BIT  #LF.ACT,L.FLGCR5) 

BEQ  5$ 

KIT  #lF.8R0,L.FLG(R5) 

BEQ  4$ 

BITS  *SF.ACT,L.MPF(R5) 

BEQ  5$ 

CALLR  60$ 


.IF  DF  R$$MPL 

BIT  *ZF.PSE,Z.FLG(R0) 

BNE  20$ 

MOV  L.KR8A'R5),R3 

BIT  #KS.0FL,K.STS(R3) 

BNE  4$ 

TST8  aNCPU 

BEQ  20$ 

BIT  K.URM(R3),aURMST 

EEQ  4$ 


Wait  1  second  in  case  system  has 
been  VNP'd  and  contains  a  DMV 


SAVE  ALL  REGISTERS 

FIND  ECL/XPT  DATA  STRUCTURES 

INIT  CIRCUIT  ENABLED  FLAG 

SET  NUMBER  OF  SYSTEM  LINES 

POINT  TO  FIRST  REVERSE  MAPPING 

POINT  TO  SLT  INDEX  TABLE 

GET  POINTER  TO  SYSTEM  LINE  TABL 

ASSUME  NOT  MULTIPOINT  LINE 

IS  EVERYTHING  READY  (DDM.DLCETC. 

IF  YES  -  ENABLE  IT 

CONTINUE 

GET  PDV  INDEX  OF  DDM 
POINT  TO  CORRECT  PDV 
GET  PDV  ADDRESS 
IS  LINE  ALREADY  ACTIVE? 
IF  NO  -  BRANCH 

BROADCAST  LINE  ? 
IF  NO  -  BRANCH 
XPT  CHANNEL  ACTIVE  ? 
IF  NO  -  BRANCH 

; CONTINUE 


;DLM  CIRCUIT  ? 
;IF  YES  -  BRANCH 

GET  POINTER  TO  KRB 

IS  THE  CONTROLLER  OFF-LINE? 

YES  .  .  CAN'T  ENABLE  IT 

ARE  WE  RUNNING  ON  A  MULTI-'^ROCESSGR? 

NO  ...  WE  CAN  ENABLE  THE  LINE 

IS  THE  REQUIRED  UNIBUS  ACTIVE? 

NO  ...  WE  CAN'T  ENABLE  THE  LINE 


E  7 
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MACRO  CROSS  REFERENCE  CREF   04.00 


MACRO  NAME 

REFERENCES 

ADJDFS 

#6-65 

6-79 

BIAS 

#6-66 

CALL 

7-117 

7-118 

7-193 

7-198 

7-257 

"ALLR 

#6-67 

7-127 

7-UO 

7-249 

8-297 

CCBDFS 

#6-65 

6-71 

CTRDFS 

#6-66 

6-72 

DHBDFS 

#6-67 

6-69 

DIRS 

#7-113 

7-113 

#7-114 

7-114 

#8-303 

ECDDBS 

#6-67 

6-70 

EMSGS 

#6-67 

7-193 

7-237 

MAP 

#6-66 

MOV$ 

#7-113 

7-113 

7-113 

7-113 

7-113 

MRKTSS 

#6-67 

7-113 

PDVDFS 

#6-65 

6-77 

PHBDFS 

#6-66 

6-76 

PLBDFS 

#6-66 

6-78 

RESMAP 

#6-66 

RESRG 

#6-65 

8-307 

RETC 

#6-65 

8-299 

RETURN 

7-253 

8-300 

8-308 

RVP$ 

#7-113 

7-113 

SAVMAP 

#6-66 

SAVRG 

#6-65 

8-269 

SLTDFS 

#6-65 

6-74 

SVCDFS 

#6-66 

6-75 

SWSTKS 

8-288 

WSIGSS 

#6-65 

8-303 

WTSESS 

#6-67 

7-114 

XPDDBS 

#6-65 

6-73 

7-241  8-288  8-289 

8-303 
#7-114  7-114 


►♦F!LE»MD**NTINI! 
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n:init  macro  vo5.03b 

MAIN  CONTROI 

4A8 

1,1,9 

A50 

451 

t,52 

453 

454 

455 

456 

457 

458 

459 

460 

i61 

462 

463  000176 

464 

465 

466 
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ENARSS 

CALLR   NTIGRQ 

.IFF     ;NDF  R$$11S 


.IF  DF 
DSARSS 
TST 
BEQ 
CALL 
BR 


S$$6AS 

SNIAST 
110$ 
PUTAST 
120$ 


110$: 
120$: 


D1R$    #NTISEN 
EMAR$S 
.ENDC 

EXIT$S 

.ENDl 


.-ENABLE  AST'S  AGAIN 
.-PROCESS  NEXT  REQUEST 


.-DISABLE  AST  RECOGNITION 
.-NOTIFY  USERS  VIA  AST? 
;BR  IF  NO 

.-ELSE  NOTIFY  USER  VIA  AST 
.-AND  CONTINUE 

;SEND  COMPLETION  TO  THE  REQUESTOR 
.-ENABLE  AST'S  AGAIN 


NTU.IT  MACRO  V05.03b  Th.irsday  05-Sep-85  11:09  Page  11 
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NTINIT  MACRO  V05.03b  Thursday  05-Sep-85 
Symbol  table 


11:09  Page  18-2 


D  10 


LX.CEX= 

000004  G 

LX.LIN= 

000006  G 

LX.PRO= 

000005  G 

L$$ASG= 

000000 

L$$DRV= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DDS 

OOOOJA 

L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

L.<RBA 

000016 

L.LEN  = 

000022 

L.MPF 

000022 

L.NMST 

000020 

L.N5TA 

OOOOK 

L.OWNR 

000U21 

L.UNT 

000013 

MPAR  = 

172100 

MPCSR  = 

177746 

MRKTEF= 

000001 

H$$CRB= 

000124 

M$$CRX= 

000000 

M$$FCS= 

000000 

M$$MGE= 

000000 

M$$NET= 

000000 

H$$OVR= 

000000 

M.8FVH 

000011 

M.BFVL 

000012 

M.KTAE^ 

000010 

M.KTEF= 

OOC002 

M.KTMC^ 

000004 

M.KTiJN= 

000006 

M.LGTH= 

000014 

M.LNK 

000000 

M.UMRA 

000002 

M.UMRN 

000004 

M.UMVH 

000010 

M.UMVL 

000006 

NTIERB 

00C137R 

NTIERN 

000124R 

NTIGRQ 

000006R 

NTINIT 

OOOOOOR 

NTIRC; 

00001 6P 

NTLPT 

000470RG 

N$$AC 

000001 

N$$BU 

000001 

N$$LD 

000001 

Mim 

000001 

N$$ML 

000001 

N$$M 

000010 

N$$N  1= 

000001 

N$$PEM= 

POVID 

PDVNM 

PDVTA 

PIRQ  = 

PMOPE  = 

PRO   = 

PR1 

PR2   - 

PR3 

PR4 

PR5 

PR6 

PR7 

P3 

PSIPT 

PS.APR= 

PS.CHIC= 

PS.CKP= 

PS.CKR= 

PS.COM= 

PS.DEL= 

PS.DRV= 

PS.FXD= 

PS.LIO= 

PS.NSF= 

PS.OUT= 

PS.PER= 

P!-.PIC  = 

Pb.SYS^ 

PUMR 

P$$P45= 

P$$WRD= 

P.8LKS 

P.BU?Y 

P. IOC 

P.LNK 

P. MAIN 

P.NAM 

P.  OWN 

P.PRI 

P.REL 

P. SIZE 

P.STAT 

i^.SUB 

.SWSZ 
.'.TCB 
P. WAIT 
002  nASTT 
002  0$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
R$$11S= 
R.QS6C= 
R.QSPC= 


OO:^ 
00,- 


000001 

000522RG 

000520RG 

000530RG 

177772 

030000 

OOOOOC 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000506RG 

000007 

010000 

040000 

020000 

000200 

000010 

000020 

004000 

001000 

000400 

100000 

002000 

000100 

000040 

000442RG 

000000 

000000 

000016 

000024 

000003 

000000 

000012 

000004 

000026 

000002 

000014 

000016 

000030 

000010 

000022 

G00026 

000020 

00C450RG 

000010 

000000 

000011 

000000 

000000 

000001 

000015 

000014 


002 
002 
002 


R.QSPN= 
R.QSPR= 
R.QSTN= 
R.VXBA= 
R.VX^N= 

sf.a:t= 

SF.ENA= 
SF.LPB= 
SF.MFL= 
SF.PAC= 
SF.REA= 
SF.SER= 
SF.SVC-- 
SF.UNL^ 
SLTMA 
002  SLTNM 
SPARE  = 
SP.EIP= 
$P.ENB= 
SP.LOG= 
SRSTD 
SWR  = 
S$$WRG= 
S$$YSZ^ 


002 


.BMSK 
.8MSV 
.CON 
.COST 
.CSR 
.CTM 
.DMCS 
.FLG 
.FRK 
.ITM 
.LEN 
S.LHD 
S.NMST 
S.OWNR 
S.PKT 
S.PRJ 
S.RCNT 
S.ROFF 
S.STS 
S.VCT 
TKPS 
TKTC8 
TKIOO 
TPS 
002  TS.BLK= 
TS.C/<;P= 
TS.CKR= 
^S.EXE= 

TS.r'I.D= 

TS.MSG= 
TS.NRP= 
TS.OUT= 
TS.RDN: 


000006 
000012 
000002 
000006 

ooou":' 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000464RG 

000466RG 

000010 

000001 

000002 

000004 

000434RG 

177570 

000000 

007600 

177776 

177774 

000010 

000001 

000012 

000006 

000020 

000000 

000016 

000007 

000004 

000000 

000002 

000003 

000014 

000004 

177772 

000011 

000005 

000454RG 

000446RG 

000500RG 

177564 

171700 

000200 

000100 

100000 

002000 

020000 

010000 

000400 

040000 


002 
002 


002 


TS.RUN= 

TS.STP= 

T$$I^MG= 

T$$MIN= 

T.ACTL 

T.ASTL 

T.ATT 

T.CPC8 

T.DPRI 

T.EFLG 

T.IOC 

T.LBN 

T.LDV 

T.LNK 

T.MXSZ 

r.NAM 

T.OFF 

T.PCB 

T.PRI 

T.RCVL 

f.RRFL 

T.SAST 

T.SRCT 


STAT 
T.ST2 
T.ST3 
T."  ' 
T. 
T. 
T. 


.TCBL 
.TIO 
.TKSZ 
.UCB 
TISCL 
TIOOC 
TIOOQ 
T2.AB0= 
T2.AST= 
T2.CAF= 
T2.CHK= 
T2.CKD= 
T2.DST= 
T2.FXD= 
T2.HLT=: 
T2.REX= 
T2.SEF= 
T2.SPN= 
002  T2.STP= 
002  T2.WFR= 
002  T3.ACP= 
T3.CAL= 
T3.CLI= 
T3.GFL= 
T3.MCR= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0V= 


004000 

001000 

000000 

000000 

000052 

000016 

000062 

000004 

000040 

000022 

000003 

000041 

000044 

000000 

000050 

000006 

000066 

000046 

000002 

000012 

000072 

000054 

000071 

000032 

000034 

000036 

000030 

000057 

000060 

000026 

00051 2RG 

000474RG 

000476RG 

000100 

100000 

000400 

020000 

010000 

040000 

002000 

000200 

001000 

004000 

00000.-, 

000020 

000001 

100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 


T3.RST= 
T3.SLV-- 
T3.SWS= 
UBMPR  = 
UISARO^ 
U1SAR1= 
UMRPT 
VECLN  = 
VF.LIB= 
V$$CTR= 
V.ADD 
V.BIAS 
V.FLG 
V.LEN 
V.LNK 
V.PDV 
V.SIZ 
X$$D8T= 
ZF.COU= 
ZF.DDM= 
ZF.DIA= 
ZF. DLC= 
ZF.DVP= 
ZF.INI= 
ZF.KMX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL= 
ZF.MTM= 
002  ZF.MUX= 
002  ZF.PSE= 
002  ZF.SLI= 
ZF.TIM= 
ZF.X3P= 
ZS.ASN= 
ZS.BSY= 
Z.AVL 


DAT 

DSP 

FLG 
Z.LEN  = 
Z.LLN 
Z.MAP 
Z.NAM 

z.pcr 

Z.SCH 

SABTIM:- 

$AL0CB= 

$CALLX= 

$CBDMG= 

$CCBGT= 

$CEACC= 

$CLKHD= 

$C5TA  = 

SDBECL 

SDBXPT 


000400 

002000 

000002 

1 70200 

177640 

177642 

000432RG 

000043  G 

000001 

001000 

0P0006 

000004 

000002 

000012 

000000 

000004 

000010 

000000 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000U10 

000016 

000006 

000020 

000004 

000012 

000007 

GX 
GX 
GX 
Ga 
GX 
GX 
GX 
GX 

000004RG 

000006RG 


****** 
****** 


****** 


****** 


002 


002 
002 


NTITIM 

MACRO  V05.03b  S 

START  CEX  TIMERS 

80 

81 

82 

83 

8^ 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

000002 

016700 

95 

96 

000006 

97 

98 

000012 

99 

000020 

0110J0 

100 

000022 

001416 

101 

000024 

026700 

102 

000030 

001004 

103 

000032 

05^767 

104 

000040 

00C767 

105 

106 

000042 

026700 

107 

000046 

001364 

108 

000050 

052767 

109 

000056 

000760 

110 

111 

000060 

112 

0000' 4 

032767 

113 

OOOOVc 

001002 

114 

000074 

115 

000100 

032767 

116 

000106 

001 0C2 

117 

ooono 

118 

119 

000114 
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.S8TTL  START  CEX  TIMERS 

SNITIM  -  START  CEX  TIMERS  IF  NOT  ALREADY  STARTED 

li>PUTS: 

NONE 

OUTPUTS: 

IF  THE  TIMERS  ARE  ALREADY  IN  THE  CLOCK  QUEUE,  THEN  THIS  IS  A 

NO-OP,  ELSE  THE  TIMERS  ARE  STARTED. 
RO  IS  DESTROYED. 


OOOOOOG 


$NITIM;:MOV 

SWSTKS 


OOOOOOG 
000001   177740 


OOOOOOG 
000002  1 

000001  i 

000002  1 


77722 


10$: 


12$: 


20$: 


77706 
77672  25$: 

30$: 


MTPS 

MOV 

BED 

CMP 

BNE 

BIS 

BR 

CMP 
BNE 
BIS 
BR 

MTPS 

BIT 

BNE 

CALL 

BIT 

BNE 

CALL 

RFTURN 


CLKHD,R0 

30$ 

#PR7 

(R0),R0 

20$ 

TIOOCRO 

12$ 

*T5,TIFLG 

10$ 

T1SCL,R0 
10$ 

#T1,TIFLG 
10$ 

HO 

#T5,TIFLG 

25$ 

T50JN 

#T1,TIFLG 

30$ 

TIS'N 


;P0INT  AT  THE  CLOCK  QUEUE 
;*  ENTER  SYSTEM  STATE 


♦  DISABLE  JNTERUPTS 

»  POINT  AT  NEXT  BLOCK 

♦  IF  EQ,  END 

*  ENTRY  FOR  50  MSEC  TIMER? 

•  IF  NO  -  BRANCH 

*  IF  YES  -  SET  50  MSEC  FLAG 

*  CONTINUE 

*  ENTRY  FOR  1  SEC  TIMER? 

♦  IF  NE,  NO  -  CHECK  NEXT  BLOC 

•  IF  YES  -  SET  1  SEC  FLAG 

♦  CONTINUE 

♦  RE-ENABLE  INTERRUPTS 
START  50  MSEC  TIMER  ? 
IF  NO  -  BRANCH 

START  50  MSEC  TIMER  (LGC/.l  CODE) 

START  1  SEC  TIMER  .' 

IF  NO  -  BRANCH 

START  1  SEC  VIMER  (LOCAL  COD[?> 


;•  i^ETURN  TO  USER  -iN'D  THEN  TQ  CALLER 
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NTIUMR  MACRO  V05.O3b  Saturday  :9-Jun-85  03:33 
Symbol  table 


A$$CHk;: 
A$$CPS= 
A$$PRI= 
A$$TRP= 
C$tCKP= 
Ct$ORE= 
C$$RSH= 
D$$BUG= 
D$$ISK= 
D$$L11= 
0$$YNC= 
0$$YNM= 
ES$XPR= 
F$tLVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 


AB5. 


000000 
000000 
000000 
000000 
000000 
000^00 
177564 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000000 
000000 


G$$URD= 
1$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$[)RV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$fCS= 
M$$MGE= 
l»l$$iMET-- 


000000 
000000 
000000 
1775A6 
177546 
000000 
00007A 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
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M$$0\/R  = 

H.BfVH 

M.BFVL 

M.LGTH= 

M.LNK 

M.UMRA 

H.UMRN 

H.UMVH 

M.UMVL 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 
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000000 

P$$P45=: 

000000 

S.CSR 

000012 

000011 

P$$WRD= 

000000 

■,CTM 

000006 

000012 

0$$0PT= 

000010 

L.DMCS 

000020 

oooou 

R$$DER= 

000000 

S.FRK 

000016 

000000 

R$$K11= 

000001 

S.ITM 

000007 

000002 

R$$SND= 

000000 

S.LHD 

000000 

000004 

R$$11M= 

000000 

S.PKT 

000014 

000010 

R$$11S= 

000001 

S.PRl 

000004 

000006 

SPARE  = 

000010 

S.RCNT 

\nm 

000001 

SP.E1P= 

000001 

S.ROFF 

177773 

000001 

SP.ENB= 

000002 

S.STS 

928911 

000001 

SP.L0G= 

000004 

S.VCT 

000005 

000001 

S$$URG= 

OOOOjO 

T$$KMG= 

000000 

000001 

S$$VSZ= 

007600 

T$$MIN= 

000000 

000010 

S.BMSK 

177776 

V$$CTR= 

001000 

000001 

S.BMSV 

177774 

X$$DBT= 

000000 

000001 

S.CON 

000010 

SNIUMR 

OOOOOORG 

177776 
000056 
Errors  detected: 


000 
001 
0 


CRW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


»«»  Assembler   statistics 

Work      fUe     reads:  0 

Work      f i le  writes:  0 

Size  of   work   file:  9373  Words      (   37  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

ODeratin"     -ystem:  RSX-11M/PLUS 

Sy:NT!uMRns!v2?[n2,134]NTIUMR1IS/CR/-SP=Sy:[1  J]RSXMCM.SML/ML,[130,110]NETL]B/ML,C130JO]R^ 
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CFECOM  CREAIED  BV     MACRO     ON  29-JUN-85  AT   O'-cSS 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 


EPRINT 
ERRORS 
PRINT 


»4-63 
#^-58 


5-U7 
5-160 


5-150 
5-168 


5-152 


D  13 
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CREF       OA.OO 
5-157 


5-159 
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♦  •FILE*MD««CfEDEF 


0  K 

CFEDEF  -  PROCESS  DEFINE  COMMAND  MACRO  V05.03b  Saturday  <:!9-Jun-85  OA:55 
SETSVC  -  SET  SVC  PARAMETERS 
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361 
362 
363 
36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 
37A 

375  001110 

376  001 1U 

377  001116 

378  001122 
379 

380 
381 
582 
383 
38A 

385  001124 

386  001130 

387  001136 

388  001144 

389  001146 

390  001152 

391  001160 

392  001162 

393  001166 

394  0^1172 
395 

396 
397 


.SBTTL 
.S8TTL 

»»*  -  SETSV 
*••  -  SETPVi 

INPUT: 


SETSVC 
SETPVC 


SET  SVC  PARAMETERS 
SET  PVC  PARAMETERS 


SET  SVC  PARAMETERS 
SET  PVC  PARAMETERS 


SOPRND  =  OPERANDS  PRESENT 

OUTPUT: 

CONTROL  PASSED  TO  PROPER  ROUTINE 


.ENAfiL  LS8 


004767 
000402 
004767 
103423 


016746 
042767 
032767 
001402 
004767 
032767 
001402 
004767 
012667 
000207 


OOOOOOG 
OOOOOOG 


SETPVC:  CALL 

aR 

SETSVC:  CALL 
5$:     BCS 


SSEPVC 
5$ 

JSESVC 
10$ 


SET  PVC  PARAMETERS 
JOIN  COMMON  CODE 
SET  SVC  PARAMETERS 
IF  CS,  FAILURE 


DLM  CIRCUITS:  SET  UNIT  AND  SLT  PARAMETERS.  TEMPORARILV 
TURN  OFF  ANY  LINE  OPTIONS  ON  THE  UNTSDF  AND  SLTSDF  (SOME 
OF  WHICH,  UNFORTUNATELY,  HAVE  THE  SAME  VALUES  OF  CIRCUIT 
OPTIONS), 


OOOOOOG 
OOOOOOC  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOC  OOOOOOG  6$: 


OOOOOOG 
OOOOOOG 


7$: 
10$: 


MOV 

SIC 

BIT 

BEQ 

CALL 

BIT 

BEQ 

CALL 

MOV 

RETURN 


.DSA8L  LS8 


$OPRND,-(SP) 

#"c<oc.cst:oc 


#0C.UNT,$0PRND 

6$ 

$SEUNT 

#0C.STAI0C 

7$ 

$SESLT 

(SP)t,$OP'iND 


;  SAVE  OPERATIONS  FLAGS 
HTM10C.STA>,$0PRND 


ANY  UNIT  PARAMETERS  TO  SET  ? 
IF  EQ,  NO 
SET  SVC  COST 
HTM, SOPRND   ;  SET  STATE  OR  HELLO  TIMER? 
IF  EQ,  NO 

SET  SVC  TRIB  STATE  AND  HELLO  TIMER 
RESTORE  OPERATION  FLAGS 
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SYMBOL   VALUE  REFERENCES 


0  15 

PAGE  1 

CREf   OA.OO 


OSPTBL 

000000 

R 

#4-62 

$CFDEF 

-       ♦****» 

(.X 

4-62 

SCFDSP 

00001 A 

RG 

#5-84 

SCFHLP 

=  »*•*** 

GX 

4-64 

tCFLIS 

****** 

(.X 

4-63 

SCFPRG 

=  ****** 

GX 

4-67 

SCMAND 

-  ****** 

GX 

5-85 

$FIN 

::  ****** 

GX 

4-65 

.EXIT 

r  ****** 

GX 

4-66 

5-S7 


**FII  F**ID*«rFFHLP 


E  15 


1% 
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SYMBOL  DEMNITI0N5 

.SBTIL  SYMBOL  DEFINITIONS 


6A 

65 

66 

67 

68 

000001 

69 

000002 

70 

000003 

71 

OOOOO'i 

7i 

000005 

73 

000006 

74 

000764 

75 

000036 

76 

001776 

77 

000077 

78 

001777 

79 

000031 

80 

000100 

81 

000100 

82 

83 

8A 

000100 

85 

86 

87  000000 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

040000 

100000 

1  EQUATED  SYMBOLS 

LUN1  = 

1 

LUN2  = 

i 

LUN3  = 

LUN4  = 

4 

LUN5  = 

5 

LUNX  ^■ 

6 

BUFSIZ 

SOU. 

MAXHOP 

=  = 

30. 

MAXCST 

=  = 

1022 

MAXARE 

=  = 

A<. 

MAXNN 

=  = 

1023 

MXCSTL 

r  = 

25. 

SMXSTA 

=  = 

64. 

SMXNLT 

~~ 

64. 

SMXNCT 

=  = 

64. 

NSFDFS 

, 

<  =  >,L 

NF.ACC==1 

NF.EVT==2 

NF.LLI==4 

NF.5UP==10 

NF.SMC==20 

NF.BCP==40 

NF.LV2==100 

;JF.END==200 

NF.SLI==400 

NF$EVT==40000 

NF$ACC==100000 

.IF  NB 

LIST 

GCL  LUN 

TERMINAL  LUN 

ERROR  LUN 

OUTPUT  FILE  LUN 

INPUT  FILE  LUN 

SCRATCH  LUN 

BUFFER  SIZE  IN  BYTES 

MAXIMUM  NUMBER  OF  HOPS  ALLOWED 

MAXIMUM  COST  ALLOWED 

MAXIMUM  AREA  NUMBER 

MAXIMUM  NUMBER  OF  NODES  ALLOWED 

MAXIMUM  COST  FOR  A  LINE 

MAXIMUM  NUMBER  0"^  STATIONS  ALLOWED 

MAXIMUM  #  OF  LINE  TABLES  AT  END  OF  PROCESS 

LARGEST  VALUE  ALLOWED  IS  255.,  FORMULA: 

(process  size  +  (NLT  »  $$LGTH))  <=  (4K  WORDS) 

MAXIMUM  #  OF  CONTROLLER  TABLES  AT  END  OF  DDM 

PROCESS.  SIMILAR  TO  SMXNLT. 

DEFINE  CNFIGS  BITS 

ACCESS  CONTROL  SUPPORT 
EVENT  LOGGING  SUPPORT 
LOGICAL  LINK  INTEGRITY  SUPPORT 
TASKS  SWAPABLE  WITH  OUTSTANDING  I/O 
SPAWN  MULTIPLE  COPIES  OF  THE  TASK 
BACKWARD  COMPATIBILITY  (PREVIOUS  VERSION)  SUPPORT 
LEVEL  2  ROUTING  NODE 
SYSTEM  IS  AN  END  NODE 
SYSTEM  LEVEL  INTERFACE  INCLUDED 
EVENT  LOGGING  IS  ENABLED 
ACCESS' VERIFICATION  IS  ENABLED 
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E  1 


5A 
55 


61  000000 

62 

63 

66 

67  000000 


.SBTTL  DATA 

LIBRARY  MACROS 

.MCALL  SCBDFS 
SCBDFS 

START  OF  PURE  CODE 
.PSECT 


;  UMR  BLOCK  OFFSETS 
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lOAD  UMR'S 
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ALOCB  = 

ASSIGN 

A$$CHK= 

A$$CPS= 

AS$PRI= 

A$$TRP= 

A.LULU= 

A.LUNA= 

A.LUNU= 

BUFUMP= 

CMODE  = 

C$tC<P= 

C$$ORE= 

C$$RSH= 

DEACB  = 

DV.CCL= 

[)V.COM= 

dv.::r= 

DV.EXT= 

DV.F11= 

DV.ISP= 

DV.MBC= 

DV.MNT= 

DV.MSD= 

0V.OSP= 

DV.PSE= 

DV.REC= 

OV.SDI= 

DV.SQD= 

DV.SWL= 

DV.TTY= 

f)V.UMD= 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

D.DSP 

D.LNK 

D.MSK 

D.NAM 

D.PCB 

D.UCB 

D.UCBL 

D.UNIT 

D.VCAN= 

D.VDEB= 

D.VINI= 

D.VOUT= 

D.VPWF= 

E$$XPR= 

F$$H,1  = 

G$STPP= 

G$$TSS= 

G$$TTK= 

GS$WRD= 

HEADR  - 


»»»«♦«  GX 

000026R 

000000 

000000 

000000 

000000 

000002 

OOOOOA 

000006 

172354 

"AOOOO 

000000 

000400 

177564 

******  GX 

000002 

020000 

000010 

OO.jiOO 

041  COO 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

0OOO01 

000000 

000000 

000012 

000000 

000014 

000004 

000034 

000002 

000010 

000006 

000002 

177776 

000000 

000004 

000006 

000000 

000001 

000000 

000000 

000000 

000000 

*.♦*♦*  GX 


002 


H.CSP 

H.CUIC 

H.DSU 

H.DUIC 

H.EFLM 

H.EFSV 

H.FCS 

H.FORT 

H.FPSA 

H.FPSL= 

H.FPVA 

H.GARD 

H.HDLN 

H.IPC 

H.IPS 

H.ISP 

H.LUN 

H.NLUN 

H.NML 

H.ODVA 

H.ODVL 

H.OVLY 

H.PFVA 

H.RCVA 

H.RRVA 

H.SPR] 

H.TKVA 

H.TKVL 

H.VEXT 

H.UND 

H.X25 

I$$RAR= 

I$$RDN= 

KISARO= 

KISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LONACP 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MPAR  = 

MPCSR  = 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NF$ACC= 

NF$EVT= 

NF.ACC= 

NF.BCP= 


000000 

000010 

000046 

000012 

000004 

000040 

000050 

000052 

000042 

000062 

000034 

000072 

000002 

000016 

000014 

000020 

000076 

000074 

000061 

000022 

000024 

000054 

000032 

000036 

000062 

000060 

000026 

000030 

000056 

000044 

000064 

000000 

000000 

172340 

172354 

177546 

177546 

000000 

000074 

000000 

OOOOOOR 

000000 

000000 

000001 

000000 

172100 

177746 

000124 

000000 

000000 

000000 

000000 

000000 

100000 

040000 

00000^ 

000040 


002 


NF.END= 

NF.EVT= 

NF.LLI= 

NF.LV2= 

NF.SLi= 

NF.SMC= 

NF.SWP= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$HOV= 

N$$NC7= 

N$$PEM= 

PDVJD  = 

PIRQ  = 

PMOUE  = 

PRO   = 

PR1 

PR2   = 

PR3   = 

PR4   = 

PR5 

PR6   = 

PR7   = 

PS 

P$$P45= 

P$$WRD= 

Q$$0PT= 

R$R0  = 

R$R1   = 

R$R2  = 

R$R3  = 

R$R4  = 

R$R5  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R.UNGC= 

R.UNPC= 

R.UNPN= 

R.UNPR= 

R . UNRH= 

R.UNRU= 

R.UNSM= 

R.UNSU= 

R.UNTN= 

SWR 

S$$WR6= 

S$$YSZ= 

S1.DEC= 

S1.DPR= 

S1.DSI= 

S1.ESC= 

S1.I8F= 


000200 
000002 
000004 
000100 
000400 
000020 
000010 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 

****** 

177772 
030000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
OOOOCO 
000000 
000010 
000002 
000004 
000006 
000010 
000012 
000014 
000000 
000001 
000000 
OOOOCO 
000015 
000014 
000006 
000012 
000022 
000024 
000016 
000020 
000002 
177570 
000000 
007600 
001000 
000400 
00400C 
00000^ 
C02000 


GX 


S1.IBY= 
S1.0BY= 
S1.PTH= 
S1.RES= 
S1.RNE= 
S1.RNF= 
S1.RSP= 
S1.RST= 
S1.TNE= 
S1.TSY= 
S1.USI= 
S2.BEL= 
S2.8RQ= 
S2.CR  = 
S2.CT0= 
S2.CTS= 
S2.ELF= 
S2.FLF= 
S2.1RQ= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
S2.SRQ= 
S2.WAL= 
S2.WRA= 
S2.WRB= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RU8= 
S3.TA8= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.A3D= 
S4.ANI= 
S4.AV0= 
S4.8LK= 
S4.DEC= 
S4.DL0= 
S4.EDT= 
S4.HFF= 
S4.HFL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.ABP= 


000200 
000100 
000010 
010000 
000020 
020000 
000004 
000001 
040000 
000040 
100000 
020000 
000020 
002000 
040000 
100000 
001000 
000400 
000200 
004000 
000100 
010000 
000001 
000040 
000010 
000006 
000002 
000001 
000004 
000200 
001000 
000400 
000020 
020000 
004000 
000010 
010000 
040000 
000002 
002000 
000040 
000100 
100000 
000400 
001000 
002000 
004000 
000100 
010000 
000020 
000007 
000040 
000200 
020000 
040000 
000010 
100000 


S5.8CC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ni  = 
S5.0XF= 
S5.RP0^ 
S5.SW1= 
S5.TMM= 
S5.VER= 
S5.X0F= 
S5.X0N= 
S6.EI0= 
S6.RDI= 
S6.RLIJ= 
TPS  = 
T$$KMG= 
T$$MIN= 
UBMPR  = 
UC.ALG= 
UC.ArT= 
UC.KIL= 
UC.LGH= 
UC.NPR= 
UC.PWF= 
UC.QUE= 
UD.UNS= 
UD.160= 
UD.200^ 
UD.556= 
UP. 625= 
UD.8K  = 
UD.800= 
UISARO= 
U1SAR1= 
UM.CLI= 
UM.DSB= 
UM.NBR= 
UM.OVR= 
US.A80= 
US.BSP= 
US.BSY= 
US.F0R= 
US.FRK= 
US.KPF= 
US.LAB= 
US.MDE= 
US.MDM= 
US.MNT= 
US.0FL= 
US.PUB= 
US.PWF= 
US.RED= 
US.SHR= 
US.SPU= 
US.UMD= 
US.VV  = 


020000 
040000 
000014 
000020 
000100 
000040 
002000 
000001 
000002 
010000 
000004 
000010 
000400 
100000 
001000 
177564 
000000 
000000 
170200 
000200 
000010 
000004 
000003 
000100 
000020 
000040 
000000 
000004 
000001 
000002 
000005 
000006 
000003 
177640 
177642 
000036 
000200 
000400 
000001 
000001 
000002 
000200 
000040 
000002 
000001 
000004 
000002 
000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
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LOCAL  INITIALIZATION 

275  CALL    SNXHCK 

276 

277  .ENDC 

278 

279  000202  CALL    SNITIM 

280  000206  000241  CLC 

281  000210  40$:    RETURN 
282 
283 
284 


E  3 


UNTIL  NEXT  BASE  LEVEL 
INIT  DLX  IF  NECESSARY 


;G0  START  TIMFRS 
;GOOD  FINISH 


;CMP01] 
;[MP01] 

;[MP01] 
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CSR  CHECK 


E  4 


103525 


016700  000016' 


153  0001A6 

154 

155 

156 

157  000150 

158 

159 

160 

161  00015A 

162  000156  116001  000002 

163  000162  067701  OOOOOOG 

164  000166  011101 

165  000170  016101  000004 
166 

167 

168 

169 

170 

171  000174  042760  042000  000000 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185  000202  005067  000002G 

186  000206  116067  000C12  000002G 

187  000214  116000  000002 

188  000220  010167  OOOOOOG 

189  000224 

190  000232 
191 
192 


193 

194 

195  000234 

000672 

196 

197  000236 

000241 

198  000240 

199  000246 

200 

201 

202 

203 

204  000250 

005266  000004 

205  000254 

000002 

206 

207 

208 

000001 

BCC 

10$               ; 

•  FOUND  A  BAD  CSR 

MOV 

CSRSLI.RO 

.IF  NDF 

S$$8AS 

SAVRG 

MOVB 

ADD 

MOV 

MOV 

<R1> 

L.DDM(R0),R1 

aPDVTA.RI 

(RD.RI 

Z.NAM(R1),R1 

.ENDC 

;NDF  S$$BAS 

.IFDF 

R$$11S 

BIC 

#LF.fiDY!LF.ENA,L.FL6(R0); 

.IFF 

;DF  R$$11S 

MOV 

M0V8 

MOVB 

MOV 

CALL 

#lx.lin,$ntlfc+lr.sts 
l.ctl(r6),lr.ctl+$ntlfc  , 
l.unt(ro),lr.unt+$ntlfc  . 
r1,lr.lin+$ntlfc 

$NINTL 

.IFFF 

;D.i^  R$$115 

.IF  NDF  S$$BAS 

CLR 

MOVB 

MOVB 

MOV 

EMSG$ 

RESRG 

$NIERA+2 

L.CTL(R0),$NIERA+2 

L.DDMCR0),R0 

R1,$NIERA 

20 

<R1> 

.ENDC   ;NDF  S$$BAS 

.ENDC 
BR 

;DF  R$$11S 
10$ 

50$:    CLC 

RESRG 
60$:    RETURN 

<R2,R1,R0>            ; 

;•  ILLEGAL  ADDRE 

SS  TRAP  ROUTINE,  EXPECTS  / 

CSRTRP:  INC 
RTI 

4(SP) 

BR  IF  NO,  CHECK  NEXT 


PICK  UP  SLT  Arr  'CSS 


SAVE  Rl 

GET  DDM  PDV  INDEX 

INDEX  INTO  PDV  VECTOR  TABLE 

GET  PDV  ADDRESS 

GET  DDM  NAME 


INDICATE  LINE  IS  UNUSABLE 


SET  "CLEAR  LINE"  FUNCTION  CODE 

SET  CONTROLLER  NUMBER 

SET  UNIT  NUMBER 

GET  DDM  NAME  (RAD50) 

SEND  REQUEST  TO  NTL 


MAKE  A  NULL 

SET  CONTROLLER  NUMBER 

GET  DDM  PDV  INDEX  (SIGN  BIT  NEVER  ON) 

SET  RAD50  DEVICE/PDV  NAME 

DEVICE  "DDM-NUM"  OFFLINE 

RESTORE  Rl 


CHECK  REST  ANVWAY 

ALWAYS  RETURN  SUCCESS 
RESTORE  REGISTERS 


SET  TOP  OF  USER  STACK  TO  A  "ONE" 
RETURN  WITH  "BAD  CSR"  INDICATION 


.END 
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CREF        OA.OO 


SYMBOL 

V 

\LUE 

REFERENCES 

AREA 

- 

176000 

#6-69 

7-126 

3UFUMP 

~ 

17235', 

#6-62 

CMODE 

- 

UOOOO 

#6-62 

)$HOST 

000022 

7-153 

*7-157 

)$LNAM 

000006 

»7-!39 

.7-140 

3tLNUH 

OOOOU 

7-129 

*7-1^2 

I$$AS 

~ 

****** 

6-62 

USARO 

~ 

1723A0 

#6-62 

<ISAR6 

= 

172354 

#6-62 

*7-117 

*IPAR 

= 

172100 

#6-62 

1PCSR 

r 

177746 

#6-62 

ISSMGt 

- 

000000 

6-62 

PIRQ 

= 

177772 

#6-62 

PMPDE 

- 

030000 

#6-62 

PRO 

= 

000000 

#6-62 

PR1 

= 

OOOOAO 

#6-62 

PR2 

r 

000100 

#6-62 

PR3 

r 

OOOUO 

#6-'? 

PR4 

= 

000200 

iit-'.C 

PR5 

;; 

000240 

#b-62 

PR6 

r 

000300 

#6-62 

PR  7 

- 

000340 

#6-62 

PS 

= 

177776 

#6-62 

R$$MPL 

= 

****** 

6-62 

6-62 

R$$nD 

= 

****** 

6-62 

P$$11S 

- 

000001 

#4-2 

SUR 

= 

177570 

#6-62 

TPS 

r 

177564 

#6-62 

UBMPR 

.1 

170200 

#6-62 

UISARO 

- 

177640 

#6-62 

U I  SARI 

r 

177642 

#6-62 

SDE'-PT 

- 

******  GX 

7-124 

SNIDLI 

000000  RG 

#7-103 

SSVSIZ 

- 

»♦♦*♦♦  GX 

7-103 

$TTNS 

- 

******  GX 

7-161 

.BASEB 

= 

140000 

#6-6? 

7-118 

7-150 


7-154 


*7-141 


6-62 


NT 

Sy 

AL 
AR 
AS 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
AT 
A$ 
A! 
A$ 
AJ 
AJ 
A1 
A! 
A1 
AS 
AJ 
A1 
A. 
A. 
A. 
Bl 
CE 
C£ 
CE 
CE 
CE 
CE 
CE 
C( 
Ci 
CI 
Cf 
Ci 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 
CI 

L  I 

Ci 

Ci 

C 
C 
C 
C 

CI 
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ALQCB  = 

»«•««»  GX 

CM.C1R= 

000002 

C.FNC 

000010 

D$MLL 

000040 

FC.MLD= 

000026 

AREAMK= 

176000 

CM.FMT= 

100000 

C.LJN 

000006 

DSMNOD 

fiOSS'^I 

FC.PCT= 

000030 

ASSIGN 

000036R 

002  CH.HRD= 

000002 

C.LNK 

000000 

D$NA 

000062 

FC.PWR= 

000022 

AT$ACL= 

000100 

CM.LIN= 

000000 

C.MOD 

000011 

DSNBEA 

000056 

FC.RCE= 

000002 

AT$ADN= 

000040 

CM.LOO= 

000001 

C.NSP 

000004 

DSNBRA 

000054 

FC.RCP= 

000014 

AT$AUP= 

000020 

CM.XLO= 

000004 

C.PRO 

000042 

DSNEND^ 

99S55i 

FC.TIM= 

000010 

ATI'  YC  = 

000004 

CP.DCF= 

000040 

C.RSV 

000002 

D$NLN 

000030 

FC.XCP^ 

000012 

AT$LV1= 

000002 

CP.HDL= 

000007 

C.STA 

000007 

D$NN 

000060 

FC.XME= 

000000 

AT$LV2= 

000001 

CP.PS  = 

177400 

C.STS 

000012 

DSmju 

000043 

FNDPDV= 

****** 

AT$NEX= 

000200 

CP.PSI= 

000200 

C.URM 

177776 

OV  fU 

9296J9 

FS.AST= 

000000 

ATSUP  = 

OOoOl 0 

CP.XCF= 

000100 

C.XACP 

000004 

Dl  MN 

000002 

FS.CIB= 

002000 

ASCIR 

000003 

CP.2FR= 

000030 

C.XJD 

000035 

DSRTMR 

000076 

FS.CRA= 

001000 

ASLEN 

000004 

CS.ABO^ 

000100 

C.XLEN 

000044 

D$SEG 

000036 

FS.DIS= 

013000 

A$NID 

000000 

CS.BRO= 

000002 

C.XPLI 

000040 

D$SER 

000032 

FS.DVC= 

001000 

A$TM 

000005 

CS.BUF= 

000200 

C.XPT 

000034 

DSSQRL 

000052 

FS.ENB= 

012000 

ASTMI 

000002 

CS.CES= 

000002 

C.XSVC 

000042 

D$$BUG= 

177514 

FS.EXI= 

001000 

ASTSZ 

000000 

CS.CHN= 

000010 

C.XTC 

000037 

D$$ISK= 

000000 

FS.6ET= 

006000 

ASTYP 

000002 

CS.CMP= 

000200 

C.X25 

000036 

D$$L11= 

000001 

FS.HLT= 

000000 

A$$CHK= 

000000 

CS.DCR= 

000400 

DECPT  = 

******  jX 

D$$YNC=: 

000000 

FS.INI= 

000000 

A$$CPS= 

000000 

CS.DEF= 

000004 

DV.CCL= 

000002 

D$$YNM= 

000000 

FS.KIL^ 

000000 

A$$PRI= 

000000 

CS.DEV= 

000002 

DV.C0M= 

020000 

D.DSP 

000012 

FS.LCL= 

100000 

A$$TRP= 

000000 

CS.DIS= 

000040 

DV.D1R= 

ooonic 

D.LNK 

000000 

FS.LTM= 

001000 

A.LULU^ 

000002 

CS.ENA= 

000001 

DV.EXT= 

000400 

D.MSK 

000014 

FS.«NT= 

004000 

A.LUNA= 

000004 

CS.ENB= 

000020 

DV.F11= 

040000 

D.NAM 

000004 

FS.MSN= 

014000 

A.LUNU= 

000006 

CS.ERR= 

100000 

DV.ISP= 

002000 

D.PCB 

000034 

FS.REA= 

001000 

BUFUMP= 

172354 

CS.FTL= 

001000 

DV.MBC= 

000400 

D.UCB 

000002 

FS.RET= 

000000 

CB.CCB= 

000002 

CS.HCR= 

000001 

DV.MNT= 

100000 

D.UCBL 

000010 

FS.REZ= 

003000 

CB.DDM= 

000040 

CS.HFE= 

002000 

DV.MSD= 

000100 

D.UNIT 

000006 

FS.RLB= 

002000 

''B.DLC= 

000020 

CS.LST= 

040000 

DV.OSP= 

004000 

D.VCAN= 

000002 

FS.RNG= 

011000 

CB.RDB= 

000004 

CS.MTL= 

004000 

DV.PSE= 

010000 

D.VDEB= 

177776 

FS.RST= 

000000 

CB.SDB= 

000010 

CS.RNG= 

000010 

DV.REC= 

000001 

D.V]NI= 

000000 

FS.RTN= 

001000 

CB.SLI= 

000100 

CS.ROV= 

000004 

DV.SDI= 

000020 

D.VOUT= 

000004 

FS.SET= 

005000 

CB.XLB= 

000001 

CS.RSN= 

010000 

DV.SQD= 

000040 

D.VPUF= 

000006 

FS.SFC= 

005000 

CC.LLC= 

000200 

CS.SHU= 

000001 

DV.SWL= 

001000 

ESNBR 

000014 

FS.SFR= 

006000 

CE.ABO= 

100362 

CS.SID= 

000002 

DV.TTV= 

000004 

E$NBS 

000020 

FS.SFS= 

004000 

CE.DAO= 

100346 

CS.STR= 

000004 

DV.UMD= 

000200 

E$NCR 

000034 

FS.SPW= 

040000 

CE.DIS= 

100366 

CS.SUC= 

000001 

DSAMXC 

000072 

ESNCS 

000036 

FS.STM= 

000000 

CE.ERR= 

100370 

CS.THO= 

020000 

DSAMXH 

000074 

ESNIC 

000044 

FS.STP= 

002000 

CE.!LN= 

100350 

CS.XUR= 

000004 

0$ANN 

000000 

ESNLEN 

000050 

FS.STR= 

001000 

CE.LTO= 

100356 

CSLEN 

000012 

DSBRPR 

000102 

ESNLLA 

000012 

FS.TRM== 

003000 

CE.MOP= 

100372 

CSNID 

000000 

D$8RTM 

000100 

ESNLNK 

000000 

FS.WLB= 

001000 

CE.NTE= 

100361 

C$NXH 

000002 

DSDELF 

000045 

E$NML 

000040 

FS.XKL= 

002000 

CE.RTE= 

100376 

CSTIM 

000010 

DSDELW 

000046 

E$NMR 

000024 

FS.XOF= 

010000 

CE.SRC= 

100364 

C$$CKP= 

000000 

D$END  = 

000104 

E$NMS 

000030 

FS.XON= 

007000 

CE.STP= 

100352 

C$$ORE= 

000400 

0$FNB 

000034 

ESNNOD 

000002 

FS.ZER= 

002000 

CE.TME= 

100354 

C$$RSH= 

177564 

D$HI0R 

000024 

ESNRT 

000042 

F$$LVL= 

000001 

CE.1M0= 

100374 

C.ADD 

000034 

DSHOST 

000022 

ESNRTP 

000005 

G$$TPP= 

000000 

CE.UNS= 

100344 

C.BID 

000003 

DSINAC 

000044 

ESNSEG 

000010 

G$$TSS= 

000000 

CF.CHN= 

000001 

C.BUF 

000014 

DSINCT 

000042 

ESNTIM 

000046 

G$$TTK= 

000000 

CF.FOM= 

000004 

C.BUF1 

000014 

DSIPL 

000051 

ESNUSE 

000004 

G$$WRD= 

000000 

CF.HDR= 

000020 

C.BJF2 

000024 

D$LID 

000020 

ESSTRT 

000006 

HEADR  = 

****** 

CF.LB  = 

100000 

C.CNT 

000020 

OSLNAM 

000006 

E$$XPR= 

000000 

H.CSP 

000000 

CF.LIN= 

000002 

C.CNTl 

000020 

DSLNUM 

000014 

FC.CCP= 

000020 

H.CUIC 

000010 

CF.SOM= 

000010 

C.CNT2 

000030 

D$LST 

000047 

FC.CTL= 

000006 

H.DSW 

000046 

CF.SVN= 

000040 

C.FLG 

000022 

DSMAXC 

000C64 

FC.KCP= 

000016 

H.DUIC 

000012 

CF.TRN= 

0OC100 

C.FLG1 

000022 

DSMAXH 

000066 

FC.K;a= 

000004 

H.EFLM 

000004 

CMODE  = 

140000 

C.FLG2 

000032 

DSMAXV 

000070 

FC.MAN= 

000024 

H.EFSV 

000040 

GX 


GX 
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155 
156 
157 
158  000164 

20$: 

.ENDC 

116503 

000014 

MOVB 

L.f,'STA(R5),R3 

159  000170 

001516 

BEQ 

^0$ 

160  000172 

010246 

MOV 

H2,-(SP) 
(R2),R2 

161  000174 

011202 

MOV 

162  000176 

006302 

ASL 

R2 

163  000200 

005046 

CLR 

-(SP) 

164  000202 

010546 

MOV 

R5,-(SP) 

165  000204 

010346 

MOV 

R3,-(SP) 

166  000206 

116567 

000012  177567 

MOVB 

L.CTL(R5),CTLNUM 

167  000214 

105067 

177562 

CLRB 

STANUM 

168  000220 

062705 

000022 

ADD 

#L.MPF,R5 

169  000224 

132715 

000100        50$: 

BITS 

#SF.ENA,(R5) 

170  000230 

171 

172  000252 

001461 

BEQ 

40$ 

011246 

MOV 

(R2),-(SP) 

173  000234 

000516 

SWAB 

(SP) 

174  000236 

005001 

CLR 

Rl 

175  000240 

111601 

MOVB 

(SP),R1 

176  000242 

005726 

Tsr 

(SP)  + 

177  000244 

067701 

OOOOOOG 

ADD 

aPDVTA.RI 

178  000250 

011101 

MOV 

(R1),R1 

179  000252 

022761 

114224  000004 

CMP 

#*RXPT,Z.NAM(R1) 

180  000260 

181 

182  000262 

001030 

BNE 

36$ 

016701 

OOOOOOG 

MOV 

$D8ECL,R1 

183  000266 

152761 

000040  000005 

BITB 

#NF$M0U,N$FLG(R1) 

184  000274 

OOlOOi 

BNE 

31$ 

185  000276 

186 

187  000500 

000456 

BR 

40$ 

017701 

OOOOOOG        51$: 

MOV 

aDECPT.Rl 

188  000304 

005761 

000060 

TST 

D$NN(R1) 

189  000310 

001014 

BNE 

36$ 

190  000312 

005767 

177466 

TST 

ACTCIR 

191  000316 

001407 

BEQ 

35$ 

192  000520 

142765 

000100  000000 

BICB 

#SF.ENA,S.FLG(R5) 

195  000526 

EMSG$ 

12 

194  000354 

195 

196  000556 

000417 

BR 

40$ 

005267 

177442         35$: 

INC 

ACTCIR 

197  000542 

010567 

177432         36$: 

MOV 

R5,STAADD 

198  000346 

CALL 

ENALIN 

199  000352 

103410 

BCS 

40$ 

200  000554 

012766 

■^3000  000004 

MOV 

#LF.ACT,4(SP) 

201  000562 

152715 

:>CC200 

B1S6 

#SF.ACT,(R5) 

202  000566 

112765 

OOOOOC  000002 

MOVB 

#LN.0N,S.NMST(R5) 

?05  000374 

022525 

40$: 

CMP 

(R5)t,(R5)+ 

204  000376 

062702 

000002 

ADD 

*2,R2 

205  000402 

105267 

177374 

INC8 

STAMUM 

206  000406 

005316 

DEC 

(SP) 

207  000410 

001505 

BNE 

30$ 

208  000412 

005726 

TST 

(SP)  + 

209  000414 

012605 

MOV 

(SP)+,R5 

210  000416 

052665 

000000 

BIS 

(SP)+,L.FLG(R5) 

211  000422 

012602 

MOV 

(SP)t,R2 

GET  #  OF  STATIONS  ON  THIS  LINE 

IF  EQ,  NOT  A  MULTI-DROP  LINE 

SAVE  REVERSE  MAPPING  TABLE  POINTER 

GET  POINTER  TO  REVERSE  MAPPING  TABLE/2 

GET  REAL  POINTER 

INITIALISE  BIT  TO  SET  IN  LINE  FLAGS 

SAVE  SLT  POINTER 

SAVE  COUNT  OF  STATIONS 

SAVE  CONTROLLER  NUMBER 

START  WITH  STATION  NUMBER  ZERO 

POINT  TO  MULTI-DROP  FLAGS  TABLE 

SHOULD  THIS  STATION  BE  ENABLED? 

NO 

GET  REVERSE  MAPPING  VALUE 
GET  OWNER  LLC  INDEX 


CLEAN  UP  STACK 

GET  OWNER  LLC  PDV  ADDRESS 

OWNER  XPT  ? 
IF  NO  -  BRANCH 

COPY  ECL  DATA  BASE  ADDRESS 

IS  NETWORK  n'J  ? 

IF  YES  -  BF   H 

IF  NO  -  DO     ENABLE  CIRCUIT 

GET  DECNET  HOME  BLOCK  ADDRESS 

ROUTING  NODE  ? 

IF  YES  -  BRANCH 

IF  NO  -  ANY  OTHER  LINES  ENABLED  ? 

IF  NO  -  BRANCH 

IF  YES  -  DISABLE  LINE 

PRINT  MSG 

CONTINUE 

COUNT  ANOTHER  XPT  CIRCUIT  ENABLED 

SAVE  STATION  TABLE  ADDRESS 

ENABLE  THE  LINE 

BR  IF  LINE  NOT  OWNED  BY  SPECIFIED  LLC 

WE  WILL  MAKE  THE  LINE  ACTIVE 

MARK  THE  STATION  ACTIVE 

MARK  THE  MANAGEMENT  STATE  AS  'ON' 

MOVE  ON  TO  NEXT  STATION 

MOVE  ON  TO  NEXT  LINE 

INCREMENT  STATION  NUMBER 

REDUCE  COUNT  OF  STATIONS  TO  GO 

LOOP  TILL  ALL  CHECKED 

REMOVE  COUNT  FROM  STACK 

RECOVER  SLT  ADDRESS 

POSSIBLY  MARK  THE  LINE  ACTIVE 

RECOVER  REVERSE  MAPPING  TABLE  ADDRESS 
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VECSET 


5$: 


NTIMT     MACRO  V05.03b  Thiirsday  05-Sep-85  11:09 
MAIN  CONTROL 

469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

51& 

51^5 

520 

521 

522 

523 

524 
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.SBTTL     VECSET   -   SET  UP  PROCESS  VECTOR   TABLE 

VECSET   -   SET   UP  PROCESS   VECTOR   TABLE 

INPUTS: 

.CXVEC  -  LIST  OF  VECTOR  BLOCKS 

OUTPUTS: 

PROCESS  VECTOR  TABLES  TRANSLATED 


.IF  DF   R$$MPL 


6$: 
9$: 


10$: 


SWSTKS 

SAVMAP 

MOV 

MOV 

BEO 

MOV 

CLR 

MOV 

CALL 

MOV 

MOV 

BIC 

BIS 

MOV 

MOV 

SAVMAP 

BIT 
BEQ 
MOV 
BR 

MOV 

MOV 

MOV 
MOV 
MOV 
CALL 
RE SWAP 

MOV 
BNE 

MOV 

MOV 
MOV 
CALL 
MOV 


20$ 

aNTLPT,aKSAR6 
140000+. CXVEC, R5 
15$ 

R5,VECLHD 
140000+. CXVEC 

R5,-(SP) 
aCEACC 
(SP)+,R5 
V.ADD(R5),R3 
#160000, R3 
#140000, R3 
V.SIZ(R5),R2 
V.PDV(R5),R4 


#VF.LIB,V.FLG(R5) 

6$ 

R4,aKSAR6 

9$ 


ENTER  SYSTEM  STATE 
SAVE  MAPPING 
MAP  TO  NTL  HOME  BLOCK 
:  GET  VECTOR  BLOCK  ADDRESS 
IF  NONE-  BRANCH 

SAVE  LISTHEAD  FOR  DEALLOCATION 
INIT  VECTOR  BLOCK  LISTHEAD 

SAVE  UNMAPPED  POOL..  ADDRESS 

GET  MAPPED  VIRTUAL  ADDRESS 
COPY  TABLE  ADDRESS  OF  PROCESS 
BIAS  FOR  APR6 

COPY  TABLE  LENGTH 

GET  PDV  ADDRESS  OR  LIBRARY  TABLE  BIAS 

SAVE  MAPPING  TO  VECTOR  BLOCKS 

;  LIBRARY  VECTORED  BLOCK  ? 
IF  NO  -  BRANCH 
MAP  TO  LIBRARY 
CONTINUE 


Z.DSP(R4),aKSAR6  ;  MAP  TO  PROCESS 


a#112,R1 

(R1),R1 
(R1),-(SP) 
#120000, -(SP) 
aWPPRO 


(R5),R5 
5$ 

VECLHD,R5 

R5,-(SP) 
(SP),-(SP) 
aCEACf 
(SP)t,R5 


COPY  BIAS  OF  EXEC  ROUTINE  WHICH 

CALLS  THE  VECTOR  TRANSLATE  ROUTINE 

GETTING  TO  ACTUAL  BIAS 

PUT  BIAS  ON  STACK  FOR  $MPPRO 

MAP  THRU  APR5 

CALL  DIRECTIVE  COMMON  ROUTINE  THE  LONG  WAY 

RESTORE  MAPPING  TO  VECTOR  BLOCKS 

GET  NEXT  BLOCK 
IF  MORE  -  BRANCH 

DEALLOCATE  BLOCKS  (AUX  VECTOR  TABLE  IS 

NOW  SET  UP) 

COPY  UNMAPPED  ADDRESS 

SAVE  UNMAPPED  ADDRESS 

MAP  TO  BLOCK 

COPY  VIRTUAL  ADDRESS  OF  BLOCK 
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tDEACB= 

•♦♦*»*  GX 

SNERDN 

000526RG 

SNiXPT 

000002RG 

002  $T1SCL= 

$DECPT= 

♦*•»«*  GX 

$NER50 

00050ARG 

$NTLPT= 

****** 

GX 

$T100C= 

$DEVHD= 

***••*  GX 

SNIAST 

000120R 

00? 

$PDV]D= 

****** 

GX 

$T100Q= 

$ERR03 

0002A6R 

no? 

$NICEX= 

*♦♦♦*•  GX 

$PDVNM= 

****** 

GX 

F'l 

tERRO^ 

OOC300R 

002 

SNIECL 

OOOOOORG 

002 

$rrwTA= 

****** 

GX 

$ERR12 

000336RG 

00? 

SNIERA 

00001  ORG 

002 

$PSIPT= 

****** 

GX 

$$$ARG= 

$FMASK= 

•♦»«»«  GX 

SNJERR 

000332RG 

$PUMR  = 

****** 

GX 

$$$OST= 

tHEADR= 

♦**»♦*  GX 

SNIEVC 

000102RG 

002 

$QA5TT= 

****** 

GX 

$$$T1  = 

$LDPUF= 

•♦•«♦♦  GX 

$NIFNC= 

000032RG 

002 

$SLT«A= 

*****  k 

GX 

$$$$  = 

$LGSTT= 

*«»*♦•  GX 

$N1L0N= 

«*»»«»  GX 

$SLTNM= 

****** 

GX 

.BASEB= 

$LLCAL= 

*»*»»•  GX 

INIMRK 

000070R 

002 

$SRSTD= 

****** 

GX 

.CXALL 

$LLCRS= 

*»♦**•  GX 

SNIPRM 

000122R 

002 

$TKPS  = 

****** 

GX 

.CXCSR 

$LLCTA= 

•»♦*♦«  GX 

SNIRDB 

000032RG 

002 

$TKTCB= 

****** 

GX 

.CXLBR 

SNERDD 

000550RG 

SNIRTN 

000026RG 

002 

$TK100= 

****** 

GX 

.  ASS. 

177776 
000576 

000 
001 

(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

DATA 

000532 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

****** 

GX 

.CXLB1 

000030  G 

****** 

GX 

.CXL82 

000041  G 

****** 

GX 

.CXLEN 

000064  G 

****** 

GX 

.CXPC8 

000006  G 

000062 

.CXSYH 

000010  G 

000002 

.CXUNL 

000024  G 

000016 

.CXVEC 

000026  G 

000006 

.CXVSM 

000016  6 

000001 

.NTGCD 

000000 

UOOOO 

.NTPCB 

000000  G 

000062 

G 

.NTUMR 

000002  G 

000004 

G 

.SBPCB 

000066  G 

000060 

G 

.$$$$.= 

000034 

••♦  Assembler  statistics 


Work     file     reads:  116 

Work      f i le  writes:  107 

Size  of   work   file:  25359  Words      (    100  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 
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INSERT  1  SECOND  TIMER  FORK  BLOCK 


121 

122 

123 

12^ 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO 

U1  000116 

142  000116 

K3  000122 

KA  000126 

K5  000130 

146  000130 

147  000134 

148  000136 

149  000142 

150  000146 

151  000150 

152  000154 

153  000160 
154 


.S8TTL 
.SBTTL 
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TISIN  -  INSERT  1  SECOND  IIMCR  FORK  BLOCK 
T50IN  -  INSERT  50  MSEC  TIMER  FO,?K  BLOCK 


♦  ♦•  -  TISIN  -  INSERT  1  SECOND  TIMER  FORK  B;.CiCK 
•«•  -  T50IN  -  INSERT  50  MSEC  TIMER  FORK  BLOCK 

THIS  ROUTINE  IS  USED  TO  INSERT  ENTRIES  ON  THE  CLOCK  QUEUE,  WITHOUT  CHANGING 
THE  PREDEFINED  APRS  VALUE  STORED  IN  THE  CLOCK  BLOCK.  THIS  ROUTINE  IS  ONLV 
NEEDED  ON  MAPPED  SrSTEMS. 

THIS  ROUTINE  SHOULD  BE  CALLED  AT  SYSTEM  STATE  -  TO  INHIBIT  TASK  SWITCHING 

INPUTS: 

NONE. 

OUTPUTS: 

SPECIFIED  CLOCK  BLOCK  IN  INSERT  IN  CLOCK  QUEUE 


016700  OOOOOOG 

017702  OOOOOOG 
000407 

005777  OOOOOOG 

001411 

016700  OOOOOOG 

017702  OOOOOOG 

005001 

012704  000006 


TISIN: 


T50IN: 


.ENABL  LSB 


10$: 


20$: 


MOV 

TISCL.RO 

MOV 

aTKPS,R2 

BR 

10$ 

TSl 

aTlOOQ 

BE  (J 

20$ 

MOV 

TIOOCRO 

MOV 

aTKl00,R2 

CLR 

R1 

MOV 

#6,R4 

CALLR 

CLINS 

RETURN 

.DSA8L 

LSB 

GET  ADDRESS  OF  CLOCK  QUEUE  EN 
GET  H  OF  CLOCK  TICKS  PER  SECO 
JOIN  COMMON  CODE 

ANYTHING  IN  THE  50  MSEC  TIMER  QUEUE  ? 
IF  EQ,  NO  ..  DON'T  START  THE  TIMER 
ELSE,  GET  ADDRESS  OF  CLOCK  QUEUE  ENTRY 
GET  #  OF  CLOCK  TICKS  IN  50  MSEC 
NO  HIGH  ORDER  #  OF  TICKS 
SET  SYSTEM  REQUEST  INDICATOR 
INSERT  CLOCK  BLOCK  IN  QUEUE 
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NT1UMR11S  CREATED  BY 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

M.BFVH 

000011 

7-87 

•I.BFVL 

000012 

7-86 

11.UMRA 

000002 

7-88 

»1.UMRM 

OOOOOA 

7-89 

R$$1|S 

=  000001 

#«-2 

SNIUMR 

000000  RG 

#7-8A 

MACRO  ON  29-JUN-85  AT  03:33 


7-90 


E  12 

PAGE    1 

CREF       0^.00 


MTiiiMoil<;      roFiTPn   Rv     Mirun     nw  ?<3-min-8S   AT   03:33 


PAGE    2 


F  12 


E  13 


•FILE'MD"CfEDEF 


CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

DDDDDDDD 

EEEEEEEEEE    F 

FFFFFFFFF 

CCCCCCCC   F 

FFFFF'-FFF 

EEEEEEEEEE 

DDDDDDDD 

EEEEEEEEEE   F 

FFFFFFFFF 

EE 

DD 

DD 

EE          F 

EE 

DD 

DD 

EE          F 

EE 

DD 

DD 

EE          F 

EE 

DD 

DD 

EE          F 

FFFFFFF 

EEEEEEEE 

DD 

DD 

EEEEEEEE     F 

FFFFFFF 

FFFFFFF 

EEEEEEEE 

DD 

DD 

EEEEEEEE     F 

FFFFFFF 

EE 

DD 

DD 

EE           F 

EE 

DD 

DD 

EE          F 

EE 

DD 

DD 

EE          F 

EE 

DD 

DD 

EE          F 

CCCCCCCC    F 

EEEEEEEEEE 

DDDDDDDD 

EEEEEEEEEE   F 

CCCCCCCC   F 

EEEEEEEEEE 

DDDDDDDD 

EEEEEEEEEE   F 

ssssssss 

TTTTTl 

TTTT 

ssssssss 

TTTTTl 

III! 

ss 

s: 

ss 

ss 

SS5SSS 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLlLLL 

ssssssss 

T 

llllllllli 

ssssssss 

rzcr\cc    _    Donrccc    r\ccTMF 


F  13 

MjiMSMn   Ktran   ufl';   n?h    t;j»tirrHav    ?9-liin-RS    ni:SS 


CFEDEF 
SETSVS 


5  1* 

-  Pi^OCESS  DEFINE  COMMAND  MACRO  V05.03b  Saturday  29-Jun-85  0^:5 

-  PROCESS  SET  SYSTEM"  REQUEST 
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399 
ADO 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 


.SBTTL  SETSVS  -  PROCESS  "SET  SYSTEM"  REQUEST 
'«»*  -  SETSYS  -  PROCESS  "SET  SYSTEM"  REQUESI 
INPUT: 


SOPRND  =  OPERAND  WORD 


OUTPUT: 


CONTROL  IS  DISPATCHED  TO  THE  PROPER  ROUTINE 


001174 
001174 
001202 
001204 
001210 
001216 
001220 
001224 


032767 
001402 
004767 
052767 
001402 
004767 
000207 


SETSYS: 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG  10$: 

OOOOOOG 

20$: 


BIT 

BEQ 

CALL 

BIT 

BEQ 

CAL 

RETURN 


#0S.PRT,$0PRND 

10$ 

$SEPAR 

#0S.8UF,$0PRND 

20$ 

$SEBUF 


CHANGE  THE  PARTITION  DEFINITION 

IF  EQ,  NO 

CHANGE  THE  PARTITION  DEFINITION 

CHANGE  THE  BUFFER  DEFINITION  ? 

IF  EQ,  NO  ..  LEAVE 

CHANGE  THE  BUFFER  DEFINITION 


F  H 
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CCCCCCCC   F 

FFFFFFFFF 

EFEEEEEEEE 

HH 

HH 

PPPPPPPP 

CCCCCCCC   F 

■FFFFFFFF 

EEEEEEEEEE 

HH 

HH 

PPPPPPPP 

EE 

HH 

HH 

PP      PP 

EE 

HH 

HH 

PP      PP 

EE 

HH 

HH 

PP      PP 

EE 

HH 

HH 

PP      PP 

FFFFFFF 

EEEEEEEE 

HHHHHHHHHH 

PPPPPPPP 

FFFFFFF 

EEEEEEEE 

HHHHHHHHHH 

PPPPPPPP 

EE 

HH 

HH 

PP 

EE 

HH 

HH 

PP 

EE 

HH 

HH 

PP 

EE 

HH 

HH 

PP 

CCCCCCCC   F 

EEEEEEEEEE 

HH 

HH 

LLLLLLLLLL 

PP 

CCCCCCCC   F 

EEEEEEEEEE 

HH 

HH 

LLLLLLLLLL 

PP 

LL 

SSSSSSSS 

htt; 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

II  1  II 

LL 

SS 

LL 

SS 

-L 

SS 

_L 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

uPiC:     f\x\^     C 
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CFEIMP  -  SYMBOL  DEFINITIONS  AND  MACRO 
DATA  DEFINITIONS  FOR  FILE  I/O 


V05.03b  Saturday  29-Jun-85 


g.l? 
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89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

in 

112 
113 
lU 
115 
116 
117 
118 
119 
120 
121 


.S8TTL  DATA  DEFINITIONS  FOR  FILE  I/O 


000000 

000000 

000000     000207 

000002 


000002 
000K2 
0001A2 


0001A2 
000302 
000302 
000302 

000302 

000340 

000340     377     004 

000342     000346'  000000 

000346 


DEFINE  THE  FSR  REGION 
FSRSZS  3 


INPUT,  OUTPUT 


SCLRTN; 


GCLDFS  LUN1,LUN1,<CFE>, 
.GL08L  CL.CMT,CL.EIF,CL 
RETURN 


FDOFFS 
.GLOBL 


DEf$L 
F.NRSD.F.URBD 


DEFINE  THE  OUTPUT  FILE  FDB 

iOFDS:;  FDBDFS 

FDATSA  R.VAR.FD.CR 
FDOPSA  LUN4,,$DEFNB,F0, 

■  r  -INE  THE  INPUT  FILE  FDB 

ilFDS: 


;  DEFINE  SIZE  OF  FSR  REGION 
;  ALLOW  FOR  3  FILE"!  OPEN:  GCL, 

$8UFF,BUFSIZ-1 

.LCC,CL.OPN,CL.XIT,CL.RNE 

;  FUDGE  LABEL  FOR  GCLDF  MACRO 

;  DEFINE  FDB  OFFSETS 


;  VAR  LENGTH  FILE,  NORMAL  CARRIAGE  CTL 

WRT  ;  OPEN  THE  FILE  "SY:CETAB.MAC"  FOR  WRITE 


SDEFNB; 
SFIATR: 

10$: 


FDBDFS 

FDATSA  R.VAR,FD.CR 

FDRCSA  ,$6UFF,BUFSIZ 

FDCPSA  LUN5,, SDEFNB, FO. 

:NM8LKS  CETAB,MAC, ,SY,0   ;    DEFAULT   NAME    IS   "SY : CETAB.MAC 


;  VAR  LENGTH  FILE,  NORMAL  CARRIAGE  CTL 

;  POINT  AT  INPUT  BUFFER 

UPD  ;  OPEN  FILE  "SY:CErAB.MAC"  FOR  UPDATE 


.BYTE   -1,4 
.WORD   10$,  0 
.BLKW   3 


ATTRIBUTE  LIST  FOR  lO.RAT/IO.WAT  QIO 
READ  OWNER  UIC  AND  PROTECTION 

BUFFER  FOR  ATTRIBUTES 


I  F  16 
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LOAD  UMR'S 

69 

.SBTTL  LOAD  UMR'S 

70 

71 

+ 

73 

7A 

SNIUMR  -  INITIALIZE  UMR'S  ON  AN  11/70  SVSTEM 

PLEASE  NOTE  THAT  THIS  CODE  IS  ALWAYS  ASSEMBLED  FOR  AN  11/70  SYSTEM. 

75 

IT  SHOULD  NEVER  BE  CALLED  If  THERE  ARE  NO  UMR'S  TO  LOAD. 

76 

77 

INPUTS: 

78 

R2  =  UMR  BLOCK  ADDRESS 

79 

80 

OUTPUTS: 

81 

R2  =  DESTROYED 

82 
83 
84  OOOOOO 

- 

010346 

tNIUMR::MOV     R3,-(SP) 

SAVE  R3 

85  000002 

010446 

MOV     R4,-{SP) 

SAVE  R4 

86  000004 

016203 

000012 

MOV     M.8FVL(R2),R3 

GET  PARTITION  ADDRESS 

87  000010 

116204 

000011 

MOVB    M.BFVH(R2),R4 

88  000014 

016246 

000002 

MOV    M.UMRA(R2),-(SP) 

GET  FIRST  UMR  ADDRESS 

89  000020 

066216 

000004 

ADD     M.UMRN(R2),(SP) 

SET  UPPER  UMR  LIMIT 

90  000024 

016202 

000002 

MOV    M.UMRA(R2),R2 

POINT  AT  FIRST  UMR 

•^1  000030 

010322 

10$:    MOV     R3,(R2)<- 

LOAD  THE  ADDRESS  TO  MAP 

92  000032 

010422 

MOV     R4.(R2)+ 

INTO  A  UMR 

93  000034 

062703 

020000 

ADD    #20000, R3 
ADC     R4 

SET  ADDRESS  TO  NEXT  4K  WORDS 

94  000040 

005504 

95  000042 

020216 

CMP    R2.{SP) 

MORE  UMR'S  TO  LOAD? 

96  000044 

103771 

BLO     lOi 

BR  IF  NO,  STILL  BELOW  UPPER  LIMIT 

97  000046 

005726 

TST     (SP)+ 

DUMP  UPPER  LIMIT 

98  000050 

012604 

MOV     (SP)+,R4 

RECOVER  R4 

99  000052 

012603 

MOV     (SP)+,R3 

RECOVER  R3 

100  000054 

RETURN 

NTIUMR     MACRO  V05.03b   Saturday  29-Jjn-85  03:28 


Page 


G     1 


WnkS  -  NTINIT 
Symbol  table 
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US.WC<= 
UU.ABO= 
UU.ATN= 
UU.AVN= 
UU.GUS= 
UU.ICS= 
UU.ONL= 
UU.RCT= 
UU.RDY= 
UU.SER= 

uu.sn= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 

U.BUF 

U.CBF  = 

U.CLI 

U.CNT 

U.COTQ 

U.CTCB 

U.CTl 

u.cirp 

L.CWl 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE=-- 

.  ABS. 


000010 
OOOAOO 
000100 
OOOOOA 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
00006A 
000022 
000044 
000024 
000032 
177772 
000030 
000030 
000026 
000004 
000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 


U.FNUM= 

UGRP  := 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.MUP 

U.OWN 

U.RBNS= 

U.RC^C= 

u.R';rs= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 


000040 
000102 
000032 
000034 
177774 
000040 
000050 
177772 
177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
000036 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 


U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTJ= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJl= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LUC= 

U2.L3S= 

U2.L8S= 

U2.NEC= 

U2.PfiV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 


000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 
000120 
000070 
000020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
004000 
000010 
020000 
100000 
000004 
000200 
000002 
010000 


U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

VSGENQ 

VSLABL 

VSLEN 

VSMBOX 

VSPKSR 

VSTRCT 

V$TVPE 

VSVCHA 

V$$CTR= 

W.BATT 

W.8FPD 

W.BHVR 

W.BLGH 

W.BLPD 

W.BLVR 

U.BNPD 

W.BOFF 

W.BPCB 

W.BSIZ 

X$$[)8T= 

ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 


100000 
040000 
020000 
000100 
000024 
000004 
000034 
000030 
000020 
000000 
000002 
000003 
001000 
000006 
000014 
000004 
000020 
000016 
000002 
000015 
000012 
000000 
000010 
000000 
001000 
000001 
004000 
000002 
100000 
040000 
000020 
000004 


177776 
000222 
DATA  000206 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.HTM= 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

$ERR40 

$ERR41 

$ERR42 

$HEADR= 

$NiERR= 

$NIMFE= 

$NIX25 

$$$0ST= 

$$$T1  = 

$$$T2  = 

.BASEB= 


000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

000036R 

000076R 

0001 36R 

*♦♦*♦*  GX 

******  GX 

******  GX 

OOOOOORG 

000010 

000002 

000032R 

140000 


*♦*  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  nork    file:  16287  Words   (  64  Pages) 

Size  of  core  pool:  17608  Words   (  67  Pages) 

Operating  system:  RSX-1 IM/PLUS 

Elapsed  time:  00:00:17.11 
Sy:NTiX25.V2,[132,1343NTIX25/CR/-SP=SY:[1,l]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]NIIX25 


002 
002 
002 


002 


;^iTix25 
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286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 


*♦♦  -  INILIN  -  REINITIALIZE  HRC 

THIS  SUBROUTINE  IS  USED  AS  A  GENERALIZED  INTERFACE  TO  REQUEST  HRC. 
TO  REINITIALIZE  ITSELF  AFTER  THE  I/O  DATA  BASE  HAS  BEEN  CHANGED. 


INPUT: 


NONE. 


OUTPUT: 


HRC...  INITIALIZED  OR  ERROR  MESSAGE  PRINTED 


INILIN: 


1$: 


5$: 


10$: 
20$: 


000001 


.IF  DF 
CALL 
MOV 
MOV 

MOV 
BIT 
BNE 
DEC 
BNE 
BR 

ALUN$S 
BCS 

QIOW$S 

BCS 

QIOW$S 


ROR 

QIOW$S 

ROL 

BCS 

TST6 

BPL 

EMSG$R 

RETURN 
.ENDC 


.END 


R$$MPL 
$SAVAL 
aSLTMA,R5 
aSLTNM,R4 

(R5)+,R3 

#LF.RDY,L.FLG(R3) 

5$ 

R4 

1$ 

20$ 

#3,*"RD,*0 
20$ 

#I0.ATT,*3,#32.,,#STATUS 

20$ 

#I0.HRC,*3,#32.,,#STATUS 


RI 

#I0.DET, 

RI 

10$ 

STATUS 

20$ 

11 


#3, #32. 


SAVE  REG'S 

GET  START  OF  SLT'S 

GET  NUMBER  OF  SLT'S 

GET  NEXT  SLT  ADDRESS 

IS  AT  LEAST  ONE  LINE  LOADED  ? 

IF  YES  -  INIT  HRC... 

COUNT  ONE  LESS  SLT 

IF  MORE  -  BRANCH 

CONTINUE 

ASSIGN  LUN  TO  ROD: 
IF  CS,  EXIT 

;  ATTACH  TO  THE  RDO: 
IF  CS,  ERROR 
,<#M$INIT,#M$1NIT> 
REQUEST  HRC...  TO 
REINITIALIZE  ITSELF 
SAVE  ERROR  STATUS 

DETACH  FROM  RECONFIGURATION  DRIVER 
RESTORE  CARRY 
IF  CS,  EXIT 

WAS  THE  QIO  SUCCESSFUL  ? 
IF  PL,  YES 
ELSE,  INDICATE  ERROR 


NTICSR  MACRO  V05.03b  Saturday  29-Jun-85  0?:30 
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A$$CH<= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BUFUMP= 

CMODE  = 

CSRDIS 

CSRENA 

CSRSLT 

CSRTAB 

CSRTRP 

C$$CKP=: 

C$$ORE= 

C$$RSH= 

D$$BUG= 

[)$$ISK= 

D$$YNC= 
D$$YNM= 
E$$XPR= 
F$$LVL= 
G$$TPP= 

G$$rss= 

G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
KISARO= 
i<ISAR6= 
KSAR6  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
IC$$TPS=^ 
LD$LP  = 
LF.ACT= 
LF.BRO= 

.  ABS. 


000000 

000000 

000000 

000000 

172354 

HOOOO 

000006R 

OOOOOOR 

000016R 

OOOOHR 

000250R 

000000 

OOOAOO 

17756-; 

1775U 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

1723^0 

172354 

•«***♦  GX 

177546 

177546 

000000 

000074 

000000 

100000 

000400 


002 


LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
002  LF.PAC= 
002  LF.RDY= 
002  LF.REA= 
'"  LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
I.N.  ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
IN.SUB= 
LN.TRI= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 


000007 
002000 
001000 
000100 
004000 
000020 
CJ0200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 


177776 
000256 
DATA  000052 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL.ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


**♦  Assembler  statistics 


0 

0 

14216  Words  (   56  Pages) 

15496  Words   (  59  Pages) 

RSX-11M/PLUS 


Work  file  reads; 
Work  file  ivrites: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 

Elapsed  time:  00:00:13.05 
SV:NTICSRllS.V2,C132,134jNTICSR11S/CR/-SP=Sy: 


L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPAR  = 

MPCSR  = 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR- 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$HLL= 

N$tMOV= 

N'$NCT= 

NiIPEM= 

PDVTA  = 

p:rq  = 

RHODE  = 
PRO   = 
PR1 
PR2 

PR3   = 
PR4 
PR5 

PR6   = 
PR7   = 


000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

172100 

177746 

000124 

000000 

000000 

OOOCOO 

oOOOOO 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

♦«*«**  GX 

}77772 

030000 

OOOOOO 

000040 

000100 

000140 

000200 

000240 

000300 

000340 


PS 

P$$P45= 

P$$WRD= 

0$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11H= 

R$$11S= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SWR   = 

S$$WRG= 

S$$VSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

S.VTTA= 

S.VTTL= 

TPS   = 

T$$KHG= 

T$$MIN= 

UBMPR  = 

UISARO= 

UISAR1= 

V$$CTR= 

X$$DBT= 


177776 
OOOOOO 
OOOOOO 
000010 
OOOOOO 
000001 
OOOOOO 
OOOOOO 
000001 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
177570 
OOOOOO 
007600 
000001 
OOOOOO 
000004 
000002 
000003 
000002 
000004 
177564 
OOOOOO 
OOOOOO 
170200 
177640 
177642 
001000 
OOOOOO 


ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL= 

ZF.MTM= 

ZF.HUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.8S1'= 

Z.AVL 

Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

$ERR20 

$NERDN= 

SNICSR 

$NIERA= 

$NIERR= 

$$$OST= 

.BASEQ= 


001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

OOOOOO 

100000 

140000 

000014 

000016 

OOOOOO 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

000020RG 

*♦***♦  GX 

OOOOOORG 

******  GX 

******  GX 

000006 

140000 


NT 

MA 

MA 

CA 
DH 
NH 
RE 
SO 
SU 


002 
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CREF   OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

7-116 

)HBDF$ 

#6-60 

6-61 

NHWDFS 

#6-60 

6-62 

RETURN 

7-168 

SOB 

7-166 

SWSTKS 

7-116 
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H.FC5 

H.FORT 

H.FPSA 

H.FPSL= 

H.FPVA 

H.GARD 

H.HDLN 

H.IPC 

H.IPS 

H.ISP 

H.LUN 

H.NLUN 

H.NMl. 

H.ODVA 

H.ODVL 

H.OVLY 

H.PFVA 

H.RCVA 

H.RRVA 

H.SPRI 

H.TKVA 

H.TKVL 

H.VEXT 

H.UND 

H.X25 

I$$RAR= 

I$$RDN= 

KI5AR0= 

<ISAR6= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$STPS= 

LD$LP  == 

LONACP 

LVLl   = 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

MPAR  = 

MPCSR  = 

M$$CRB= 

l*l$$CRX= 

M$$FCS= 

M$$MGE= 

«$$NET= 

|V|$$0VR  = 

NF$ACC= 

nf$blk;= 

NF$DMO= 
NF$EVT= 
NF$M0U= 
NF$RST= 
NF$SCN= 
NF$SHU= 
NF$T1M= 


000050 

NF.ACC= 

000001 

00005? 

NF.BCP= 

000040 

000042 

NF.END= 

000200 

000062 

NF.EVT= 

000002 

00003A 

NF.LL1= 

000004 

000072 

NF.LV2= 

000100 

000002 

NF.SLI= 

000400 

000016 

NF.SMC= 

000020 

OOOOK 

NF.SWP= 

000010 

000020 

NSACQ 

000000 

000076 

NSACTL 

000032 

000074 

NSADJI 

000072 

000061 

N$ADJ2 

000074 

000022 

NSCACH 

000062 

000024 

NSCIR 

000034 

000054 

N$CRC 

000120 

000032 

N$DLA 

000020 

000036 

N$DLY 

OOOOK 

000062 

NSELEN 

000054 

000060 

N$ENC 

000042 

000026 

NSERRC 

000022 

000030 

N$FLG 

000005 

000056 

NSFNC 

000006 

000044 

NSGENQ 

000052 

000064 

NSGTM 

000015 

000000 

N$HC1 

000052 

000000 

N$HC2 

000056 

172340 

NSHIGH 

000033 

172354 

N$LLT 

000026 

177546 

NSLLTM 

000024 

177546 

N$LVC 

000036 

000000 

N$LV1 

000002 

000074 

N$LV2 

000010 

000000 

NSMBXQ 

000050 

00001  OR 

002  NSMHCI 

000036 

002000 

N$MHC2 

000044 

000000 

N$PLD 

000016 

000000 

NSPLLT 

000030 

000001 

NSPRI 

000076 

000000 

NSROAI 

000022 

172100 

N$R0A2 

000030 

177746 

NSRTMX 

000014 

000124 

NSRTMI 

000014 

000000 

N$RTM2 

000015 

000000 

N$RT1 

000000 

000000 

N$RT2 

000006 

000000 

N$SLA 

000016 

000000 

NSSNOD 

000012 

100000 

NSTCTL 

000112 

000100 

N$TIM 

000004 

000010 

N$TLC 

000100 

040000 

N$TNC 

000114 

000040 

N$TRC 

000106 

000002 

NSTTCB 

000110 

000020 

NSVCB 

000010 

000004 

N$VER 

000066 

000200 

NIXLEN 

000124 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

NI$MLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

PDVTA  = 

PF$BLK= 

PF$CLC= 

PF$DLM= 

PF$EIP= 

PF$ENB= 

PF$FAI= 

PF$FM1  = 

PF$FM2= 

PF$OFF= 

PF$RM1= 

PF$RM2= 

PF$RVR= 

PF$STA= 

PF$SVC= 

PF$UP  = 

PIRQ  = 

PMODE  = 

PR$BED= 

PR$BEU= 

PR$BRD= 

PR$BRU= 

PR$DWN= 

PR$LCC= 

PR$MOP= 

PRSUP  = 

PRO   = 

PR1 

PR2   = 

PR3 

PR4   = 

PR5   = 

PR6   = 

PR7 

PS 

PS$CHR= 

PS$FAI= 

PS$NTI= 

PS$0FF= 

PS$STR= 

PS$UP  = 

PS$VER= 

PS$WT  = 

PT$BR0= 

PT$DRT= 

PT$END= 

PT$LV1= 

PT$LV2= 

PT$PH3= 


000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

020000 

010000 

100000 

000002 

000001 

004000 

000100 

000200 

000000 

000020 

000040 

000010 

000004 

040000 

000004 

177772 

030000 

000200 

000100 

000040 

000020 

000002 

000010 

000004 

000001 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000016 

000014 

000006 

000000 

000002 

000012 

000010 

000004 

000200 

000100 

000004 

000002 

000001 

000010 


PT$XAR= 

PX$BLK= 

PX$DLM= 

PX$SVC= 

P$CHN 

P$CNT 

PSCTR 

PSDRCT 

PSDRTR 

P$FLG 

P$FWD 

PSICCB 

P$IPL 

P$LCD 

P$LEN 

P$LST 

PSNRNI 

PSOCCB 

P$PFQ 

PSPKSZ 

PSRMXI 

P$RMX2 

PSRPRI 

PSRTIM 

P$STA1 

P$STA2 

P$TIH 

PSTSCT 

PSTSIZ 

P$TYP 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RCP1NM 

RCP2NH 

RF.CTL= 

F(F.LD1  = 

RF.LD2= 

RF.T]M= 

RF.TI»IO= 

RF.WFC= 

RF.WTD= 

RF.WTM^ 

RF.WTS= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

R.UNGC= 

R.UNPC= 

R.UNPN= 

R.UNPR= 

R.UNRM= 

R.UNRU= 

R.UNSM= 

R.UNSU= 


000020 

000040 

000200 

000100 

000004 

000005 

000034 

000015 

000036 

000012 

000030 

000046 

000014 

000002 

000052 

000000 

000040 

000050 

000006 

000044 

000016 

000020 

000042 

000003 

000022 

000023 

000010 

000026 

000024 

000001 

000000 

000000 

000010 

OOOOOOR 

000004R 

000003 

000040 

000100 

177400 

000400 

000200 

000020 

000030 

000010 

000000 

000001 

000000 

000000 

000001 

000015 

000014 

000006 

000012 

000022 

000024 

000016 

000020 


SI. 
SI. 


R.UNTN= 
SRSTD  = 
SWR  = 
S$$WRG= 
$$$YSZ= 
S1.DEC= 
S1.DPR= 
S1.DSI= 
S1.ESC= 
.IBF  = 
.IBY= 
S1.0BY= 
S1.PTH= 
S1.RES= 
S1.RNE= 
S1.RNF= 
S1.RSP= 
S1.RST= 
S1.TN£= 
S1.TSY= 
S1.USI= 
S2.BEL= 
S2.BRQ= 
S2.CR  = 

s2.cro= 

S2.CTS= 
S2.ELF= 
S2.FLF= 
S2.IRQ= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
002  S2.SRQ= 
002  S2.UAL= 
S?.M^= 
j2.WRB= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RUB= 
S3.TAB= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.ABD= 
S4.ANI= 
S4.AV0= 
S4.8LK= 
S4.DEC= 


000002 

*♦***♦  GX 

177570 

000000 

007600 

001000 

000400 

004000 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 

000040 

100000 

020000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 

000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 
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212  000424 

213 

214  000426 

000461 

BR 

60$ 

032765 

002000 

000000 

50$: 

BIT 

#LF.ENA,L.FLG(R5) 

215  000434 

001455 

BEQ 

60$ 

216  000436 

011246 

MOV 

(R2),-(SP) 

217  000440 

000316 

SWAB 

(SP) 

218  000442 

005001 

CLR 

R1 

219  000444 

111601 

MOVB 

(SP),R1 

220  000446 

005726 

TST 

(SP)  + 

221  000450 

067701 

OOOOOOG 

ADD 

aPDVTA.RI 

222  000454 

011101 

MOV 

(R1),R1 

223  000456 

022761 

114224 

000004 

CMP 

#*fiXPT,Z.NAM(R1) 

224  000464 

225 

226  000466 

001030 

BNE 

56$ 

016701 

OOOOOOG 

MOV 

$D8ECL,R1 

227  000472 

132761 

000040 

000005 

BITB 

#NF$M0U,N$FLGCR1) 

228  000500 

001001 

BNE 

51$ 

229  000502 

230 

231  000504 

000432 

BR 

60$ 

017701 

OOOOOOG 

51$: 

MOV 

aOECPT.Rl 

232  000510 

005761 

000060 

TST 

D$NNfRl) 

233  000514 

001014 

BNE 

56$ 

234  000516 

005767 

177262 

TST 

ACTCJR 

235  000522 

001407 

BEQ 

55$ 

236  000524 

042765 

002000 

000000 

BIC 

#LF.ENA,L.FLG(R5) 

237  000532 

EMSG$ 

12 

238  000540 

000413 

BR 

60$ 

239 

240  000542 

005267 

177236 

55$: 

INC 

ACTCJR 

241  000546 

56$: 

CALL 

ENALIN 

242  000552 

103406 

BCS 

60$ 

243  000554 

052765 

100000 

000000 

BIS 

#LF.ACT,L.FLG(R5) 

244  000562 

245 

246  000570 

112765 

000000 

000020 

MOVB 

#LN.0N,L.NMST(R5) 

062702 

000002 

60$: 

ADD 

*2,R2 

247  000574 

005316 

DEC 

(SP) 

248  000576 

001402 

BEQ 

65$ 

249  000600 

250 

251  000604 

252 

253  000606 

CALLR 

ENAC 

005726 

65$: 

TST 

(SP)  + 

70$: 

RETURN 

AND  RETURN  TO  COMMON  CODE 

SHOULD  THIS  LINE  BE  ENABLED? 

NO 

GET  REVERSE  MAPPING  VALUE 

CALCULATE  OWNER  LLC  INDEX 


CLEAN  UP  STACK 

GET  LLC  PDV  ADDRESS 


XPT  ? 
IF  NO 


BRANCH 


copy  ECL  DATA  BASE  ADDRESS 

IS  NETWORK  ON  ? 

IF  YES  -  BRANCH 

IF  NO  -  DO  NOT  ENABLE  CIRCUIT 

GET  DECNET  HOME  BLOCK  ADDRESS 

ROUTING  NODE  ? 

IF  YES  -  BRANCH 

OTHER  LINES  ENABLED  ? 

IF  NO  -  BRANCH 

DISABLE  LINE 

PRINT  MSG 

CONTINUE 

COUNT  ANOTHER  LINE  ENABLED 

ENABLE  THE  LINE 

BR  IF  SPECIFIED  LLC  DOES  NOT  OWN  LI^"^ 

SET  LINE  ACTIVE 

SET  MANAGEMENT  STATE  TO  'ON' 

NEXT  SYSTEM  LINE  NUMBER 
REDUCE  SYSTEM  LINE  COUNT 
ANY  MORE  TO  SCAN? 
IF  YES  -  CHECK  NEXT  CIRCUIT 


;N0 


CLEAN  UP  THE  STACK 
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NTiNlT  MACRO  V05.05b  Thursday  05-Sep-85  11:09 
Table  of  contents 

MACRO  DEFINHIONS 

LOCAL  DATA 

ERROR  MESSAGES 

NETWORK  INITIALIZATION  COLD  START 

MAIN  CONTROL 

VECSET  -  SET  UP  PROCESS  VECTOR  TABLE 

NTL  COMMUNICATION 

FIND  PDV  INDICES  Of  NSP  PROCESSES  (ECL  AND  XPT) 

ERROR  MESSAGE  PROCESSOR 

RCV  DATA  AST 

RCV  DATA  SUBROUTINE 

PUTAST  -  PUT  COMPLETION  AST  IN  CALLER  TASK'S  AST  QUEUE 


(S- 

Sif, 

1- 

H4 

K- 

1SSI 

4- 

■?s^ 

10- 

SSk 

11- 

liM 

V- 

SW 

11- 

S(S« 

H- 

611 

1ft- 

/A/ 

\l- 

,'r^ 

18- 

851 
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NTINIT 
VECSET 

525 
526 
527 
528 
529 
550 
531 
532 
533 
53A 
535 
536 
537 
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15$: 
20$: 


MOV 

MOV 

MOV 

CALLX 

MOV 

BNE 

RESMAP 
RETURN 

.ENPC 


(SP)+,RO 

(R5),-(SP) 

#V.LEN,R1 

$DEACX,AUX 

(SP)+,R5 

10$ 


copy  UNMAPPED  ADDRESS  FOR  $DEACX 

SAVE  NEXT  BLOCK  ADDRESS 
GET  VECTOR  BLOCK  LENGTH 
DEALLOCATE  BLOCK 
GET  NEXT  BLOCK 


RESTORE  MAPPING 
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CREF   0^.00 


SYMBOL   VALUE 


ABTIM 

ALOCB 

BUFUMP 

CA.  LX 

CCBGT 

CEACC 

CF.DDM 

CF.DYN 

CF.EIS 

CF.FRK 

CF.LOG 

CF.MDM 

CF.TIM 

CLKHD 

CMODE 

DEACB 

DECPT 

DEVHD 

EXEVEC 

FE.CEX 

FMASK 

FNDPDV 

HEADR 

lO.WVB 

I$$AS 

KISARO 

KISAR6 

KSAR6 

LDPWF 

LF.ACT 

LP .BRO 

LF.BWT 

LF  ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SEP 

LF.TIM 

LF.UNL 

LF.X2P 

LGSTT 

LLCAL 

LLCRS 

LLCTA 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 


000456  RG 
000436  RG 
172354 
00047^  RG 
000502  RG 
000510  RG 
000002 
000004 
000010 
100000 
000020 
000001 
000400 
000452  RG 
140000 
000440  RG 
000516  RG 
000460  RG 
000424  R 
****** 

000426  RG 
000204  RG 
000444  RG 


GX 


=   ****** 


GX 


172340 

172354 

000430  RG 

000462  RG 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000514  RG 

000524  RG 

000504  RG 

000526  RG 

000000 

000005 

000004 

000003 


REFERENCES 

#8-224 

#8-216 

#6-77 

#8-235 

#8-239 

#8-242 

#6-74 

#6-74 

#6-74 

#6-74 

#6-74 

#6-74 

#6-74 

#8-222 

#6-77 

#8-217 

#8-245 

#8-225 

#8-202 

10-357 
#8-203 
#13-585 
#8-219 

14-689 

6-72 
#6-77 
#6-77 
#8-204 
#8-226 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-/6 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#8-244 
#8-248 
#8-240 
#8-249 
#6-76 
#6-76 
#6-76 
#6-76 


8-252 
10-357 

6-72 
8-204 


6-75 


6-77 


10-399 
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156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 

173  000162 

174  000162 

175  000164 

176  000166 

177  000170 

178  000172 

179  000176 

180  000200 

181  000202 

182  000204 

183  000210 

184  000212 

185  000214 

186  000216 

187  000222 

188  000224 

189  000226 

190  000234 

191  000236 

192  000242 

193  000244 

194  000246 
195 

196 


.SBITL  CLINS  -  INoERT  ENTRY  ON  CLOCK  QUEUE 

*••  -  CLINS  -  INSERT  ENTRY  ON  CLOCK  QUEUE  WITHOUT  CHANGING  APR5  MAPPING  VALUE 

THIS  ROUTINE  SHOULD  BF  CALLED  AT  SYSTEM  STATE  -  TO  INHIBIT  TASK  SWITCHING 

INPUTS: 

RO  =  ADDRESS  OF  THE  CLOCK  QUEUE  ENTRY  BLOCK 

R1  =  HIGH  ORDER  HALF  OF  DELTA  TIME 

R2  =  LOW  ORDER  HALF  OF  DELTA  TIME 

R4  =  REQUEST  TYPE 

OUTPUTS: 

THE  CLOCK  QUEUE  ENTRY  IS  INSERTED  IN  THE  CLOCK  QUEUE  ACCORDING 
TO  THE  TIME  THAT  IT  WILL  COME  DUE. 


005020 
110420 
005200 
005720 
067702 
005501 
010220 
010110 
016702 
010201 
011102 
001410 
021062 
101372 
103404 
026062 
103365 
162700 
010011 
010210 


CLINS: 


OOOOOOG 


OOOOOOG 


000010 


177776  000006 
000010 


10$: 


20$: 


CLR 

(R0)  + 

MOVB 

R4,(R01t 

INC 

RO 

TST 

(RO)t 

ADD 

SA8TIM,R2 

ADC 

Rl 

MOV 

R2,(R0)+ 

MOV 

R1,(R0) 

MOV 

CLKHD,R2 

MOV 

R2,R1 

MOV 

(R1),R2 

BEQ 

20$ 

LMP 

(R0),C.TIM'-2(R2) 

BHI 

10$ 

BLO 

20$ 

CMP 

-2(R0),C.TIM(R2) 

BHIS 

10$ 

SUB 

#8.,R0 

MOV 

R0,(R1) 

MOV 

R2,(R0) 

RETURN 


POINT  TO  TYPE  FIELD  AND  CLEAR  LINK 

SET  REQUEST  TYPE 

ADVANCE  TO  TCB  ADDRESS 

SKIP  TCB  LOCATION 

CALCULATE  ABSOLUTE  TIME  WHEN 

REQUEST  WILL  COME  DUE 

SET  LOW  ORDER  PART  OF  TIME 

SET  HIGH  ORDER  PART  OF  TIME 

POINT  TO  CLOCK  QUEUE  LIST  HEAD 

SAVE  ADDRESS  OF  PREVIOUS  ENTRY 

GET  ADDRESS  OF  NEXT  ENTRY 

IF  EQ,  END  OF  LIST 

ENTRY  GO  HERE  ? 

IF  HI,  NO 

IF  LO,  ENTRY  GOES  HERE 

REALLY  GO  HERE  ? 

IF  HIS,  NO 

BACK  UP  TO  FRONT  OF  BLOCK 

SET  NEW  NEXT  IN  PREVIOUS  ENTRY 

SET  NEXT  IN  NEW  ENTRY 
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CREF   0^.00 


RETURN 
SCBDFi 


7-100 


6-61 
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CFEDEF  -  PROCESS  DEFINE  COMMAND  MACRO  V05.03b  Saturday  29-Jun-85  OA:55 
Table  ot  contents 

PROCESS  DEFINE  COMMAND 

SET  EXECUTOR  PARAMETERS 

SET  LINE  PARAMETERS 

SET  CIRCUIT  PARAMETERS 

SET  KNOWN  CIRCUIT  PARAMETERS 

SET  TRANSPORT  CIRCUIT  PWAMETERS 

SET  SVC  PARAMETERS 

SET  PVC  PARAMETERS 

PROCESS  "SET  SYSTEM"  REQUEST 

SET  MODULE  X25-PROTOCOI  PARAMETERS 


s- 

122 

SCFDEF 

6- 

159 

SETEXE 

2^5 

SETLIN 

H- 

261 

SETCIR 

H- 

262 

SETKNC 

9- 

\^', 

SETIRN 

10- 

361 

SETSVC 

10- 

362 

SETPVC 

11- 

599 

SETSrS 

r^- 

A21 

SETXPR 
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CFEDEF  -  PROCESS  DEFINI 

SETXPR  -  SET  MODULE  X2! 

42' 

422 

423 

424 

425 

425 

427 

428 

429 

430  001226 

431  001225 

016700 

432  001232 

001435 

433  001234 

032767 

434  001242 

001406 

435  001244 

016760 

436  001252 

016760 

437  001260 

032767 

438  001266 

001402 

439  001270 

004767 

440  001274 

032767 

441  001302 

001402 

442  001304 

004767 

443  001310 

032767 

444  001316 

001402 

445  001320 

004767 

446  001324 

000207 

447 

448  001326 

449  001335 

000261 

450  001340 

000207 

451 

452 

000001 

.SBTTL  SETXPR  -  SET  MODULE  X25-PROTOCOL  PARAMETERS 
«♦  SETXPR  -  SET  MODULE  X25-PROTOCOL  PARAMETERS 
INPUT        SOPRND  =  PARSED  PARAMETERS 
OUTPUT       THE  PROPER  ROUTINE  IS  DISPATCHED  TO 


SETXPR: 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOC  OOOOOOG  5$: 

OOOOOOG 

OOOOOOC  OOOOOOG  10$: 

OOOOOOG 

OOOOOOG  OOOOOOG  20$: 

OOOOOOG 

_  30$: 

101$: 


MOV 

8EQ 

BIT 

BEQ 

MOV 

MOV 

BIT 

BEQ 

CALL 

BIT 

BEQ 

CALL 

BIT 

BEQ 

CALL 

RETURN 

ERROR$ 

SEC 

RETURN 

.END 


$PSIPT,RO 

101$ 

*XP.NNA,$OPRND 

5$ 

$NNAM,P$SNAM(RO) 

$NNAMt2,P$SNAMi2 

#<XP.DTEIXP.KND> 

10$ 

$$EDTE 

#<XP.CUG!XP.KNG> 

20$ 

$SECUG 

#XP.LV3,$0PRND 

30$ 

$SEX3P 


POINT  TO  PSN$DF 

IF  EQ,  TEMPLATE  MISSING 

CHANGE  NETUORD  NAME  7 

IF  EQ,  NO 

UPDATE  NETWORK  NAME 
(RO)  ;  ... 
$OPRND  ;  DTE  PARAMETERS  ? 

IF  EO,  NO 

DO  DTE  OPERATIONS 
$OPRND  ;  GROUP  PARAMETERS  ? 

IF  EQ,  NO 

DO  GROUP  OPERATION 

UPDATE  LEVEL  3  CHARACTERISTICS? 

IF  EQ,  NO 

UPDATE  LEVEL  3 


#ERfiPSI 


;  YES  WE  HAVE  NO  PSl 
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Table  of  contents 


5-  105 


SCFHtP  -  PROCESS  HELP  COMMAND 
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GLOBAL    DATA 


Page  7 


12? 
12A 
125 
126 

127  000354 

128  OOOAOA 
129 

150  000^54 

151 

152  001420 

155  001424 

154  001426 

155  001450 

156  001452 

137  001434 

138  001456 
159 

140  001440 

141  001442 

142  001446 
145  001450 

144  001452 

145  001454 

146  001460 

147  001462 

148  001464 
149 

150 
151 
152 
155 

154  001465 

155  001466 

156  001470 

157  001472 

158  001474 

159  001476 

160  001500 

161  001504 
162 

165  001506 
164  001510 
165 

166  001512 

167  001512 

168  001514 

169  001516 
170 

171 
172 

173  001520 

174  001522 

175  001524 

176  001526 

177  001550 
178 

179 


000000  001420' 


000000 
000000 
000000 
000000 


000000 


000000 
000002 
000004 
000006 
000010 


000000 
000000 


000000 
000000 
M7777 


.SBTTL  GLOBAL  DATA 


;  DPB'S 

tTIDPB: 

.■QIOWS 

SERDPB: 

:QIOW$ 

$BUFF:: 

.BLKB 

STMLST: 

:.WORD 

SPSIPT: 

:.8LKW 

tSNAPT: 

:.BLKW 

SSVUPD: 

:.WORD 

SflLHD: 

:.WORD 

tLSTMP: 

:.WORD 

SLSNAD: 

:.WORD 

SCNFIG; 

:.WORD 

SFLAGS: 

:.8LKW 

SCMAND: 

:.BLKW 

SCOMP:: 

.BLKW 

SOPRND: 

:.8LKW 

$0PRN2: 

:.BLKW 

SSWICH: 

:.8LKW 

$WILD:: 

.BLKW 

SINFO:: 

.BLKB 

INSSUM 

INSSTA 

INSCHA 

INSCOU 

INSEVE 

.BLKB 

SCIKLT: 

:.BLKW 

SEXSTS: 

:.8LKW 

SHIVBN: 

:.8LKW 

SLOVBN: 

:.8LKW 

$8YTE:: 

.BLKW 

SNTNAM. 

:.BLKW 

SNTADD: 

:.BLKW 

10.WVB,LUN2,LUN2 
10.WVB,LUN5,LUN5 

BUFSIZ 

0,.-2 

1 

1 

0 

0 

0 

0 

0 
2 
1 
1 
1 
2 
1 
1 
1 

==  0 
==  2 
==  4 
==  6 
10 


SBVTMN: 
SBYTXT: 

.RNFSP 
SUMRIN 
SUMRUP 
$PSLK: 


.-.WORD   0 
:.WORD   0 


.WORD  0 
.WORD  0 
.WORD   -1 


COMPONENT  OPTIONS 


kCBNM 
SRDBNM 
SRDBSZ 
ISDBNM 
STHRSH 


i.BLKW 
i.BLKW 
I.BLKW 
:.8LKW 
:.8LKW 


,,<0,0,40> 
,,<0,0,40> 

TERMINAL  BUFFER  (TWICE  THE  NORMAL  BUFFER  SIZE) 

LISTHEAD  OF  TEMPLATES  IN  END  OF  TASK  BUFFER 

ADDRESS  OF  PSN$DF  TEMPLATE 

ADDRESS  OF  SNA$DF  TEMPLATE 

SVC  UPDATE  FLAGS 

file  descriptor  listhead 

POINTER  TO  LAST  TEMPLATE  IN  LIST  (FOR  REMSDF) 

NODE  ADDRESS  OF  LAST  REMSDF 

CONFIGURATION  FLAGS 
SPECIAL  FLAGS 
COMMAND  CODE 
COMPONENT  TYPE 
OPERANDS  PRESENT 
MORE  OPERANDS  PRESENT 
SWITCHES  (ON/OFF) 
WILD  CARDS  IN  EFFECT 
Information  type  for  LIST: 

summary 

status 

characteristics 

counters 

events 
(available) 
CIRCUIT  ID  PARSE  FLAG 
EXIT  STATUS 

SAVE  THE  V8N  AND  BYTE  ADDRESS  OF 
THE  INPUT  FILE  TO  POSITION  AT 
TOP  OF  FILE. 
EXECUTOR  NODE  NAME  (RAD50) 
EXECUTOR  ADDRESS 

POOL  BYTE  EXTENSION  MINIMUM  VALUE 
POOL  BYTE  EXTENSION  CURRENT  VALUE 

ADDRESS  OF  FILESPEC  (REMOTE  NODE  PARSING) 

NON-UMR  MAPPED  BYTES,  INITIAL 

NON-UMR  MAPPED  BYTES,  UPDATED 

FUDGE  FACTOR  IN  POOL  BLOCK  ALLOCATION 


NUMBER  OF  CCB'S 
NUMBER  OF  RDB'S 
SIZE  OF  EACH  RDB 
THE  NUMBER  OF  SDB'S 
RDB  THRESHOLD  VALUE 


LINE  DESCRIPTOR  -  MUST  BE  CONTIGUOUS 
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102 


000001 


.END 
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SYMBOL  VALUE 


ALOCB 

ASSIGN 

A. LULU 

BUFUMP 

CMOOE 

DEACB 

HEADR 

H.LUN 

I$$AS 

KISARO 

K1SAR6 

LONACP 

MPAR 

MPCSR 

M$$MGE 

N$$VCT 

PDVID 

PIRO 

PMODE 

PRO 

PR1 

PR2 

PR3 

PRA 

PR5 

PR6 

PR7 

PS 

R$RO 

R$R1 

R$R2 

R$R3 

RSRA 

R$R5 

R$$MPL 

R$$11D 

R$$11M 

R$$11S 

R.UNTN 

SWR 

S$$BAS 

TP5 

UBMPR 

UISARO 

UISAR1 

U.VCB 

V$LEN 

X$$MCB 

ZF.COU 

7F.DDM 

ZF.DIA 

ZF.OLC 


*♦•*♦♦  GX 

000026  R 

000002 

172554 

UOOOO 

GX 
GX 

000076 


=  ****** 
-  ****** 


=  ****** 
=  172340 
=  172354 

000000  R 
=   172100 
=   177746 
=  000000 
=  ****** 

-  ****** 
=  177772 
=  030000 
=  000000 
=  000040 
=  000100 
=  000140 
=  000200 
=  000240 
=  000300 
=  000340 
=  177776 
=  000002 
=  000004 
=  000006 
=  000010 
=  000012 
=  000014 

=      ****** 

-  ♦*♦*♦* 

=  000000 

=    ****** 

=  000002 
=  177570 

=      ****** 

=  177564 
=  170200 
=  177640 
=  177642 
=  000034 
000034 

r  *  ***** 

=  001000 

-  000001 

=  004000 

=  000002 


GX 


REFERENCES 

7-148 
#6-89 

6-89 
#5-59 
#5-59 

7-185 

7-129 

7-130 

5-55 
#5-59 
#5-59 
#6-88 
#5-59 
#5-59 

5-59 

7-165 

7-163 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#5-59 
#6-76 
#6-77 
#6-78 
#6-79 
#6-80 
#6-81 

5-59 

5-59 

5-60 

5-60 

6-88 
#5-59 

6-95 
#5-59 
#5-59 
#5-59 
#5-59 

7-142 

7-144 

5-60 
#5-60 
#5-60 
#5-60 
#5-60 


7-125 

5-59 
7-156 


5-60 


5-59 
5-60 

7-159 


6-95 


♦7-154 
7-182 
5-60 


5-59 


6-96 


•7-180 


7-128 


5-96 


6-97 


6-97 
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NTICEX  MACRO  V05.03b  Saturday  29-Jun-85  05:29 
Symbol  table 


A$$CHk;= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BUFUMP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

C8.SLI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.HOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

CF.EOM= 

CF.HDR- 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CMODE  = 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR= 

CS.ABO= 

CS.BRO= 

CS.BUF= 

CS.CES= 

CS.CHN= 

CS.CMP= 

CS.DCR= 

fS.DEF= 

CS.O[V= 


000000 
000000 

cooooo 

000000 

172354 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

140000 

000002 

100000 

000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 


CS.DIS= 

CS.ENA= 

CS.EN8= 

CS.ERR^ 

CS.FTL= 

CS.HCR= 

CS.HFE= 

CS.LST= 

CS.MTL= 

CS.RNG= 

CS.R0V= 

CS.RSN= 

CS.SHU= 

CS.SID= 

CS.STR= 

CS.SUC= 

CS.TMO^ 

CS.XUR= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

C.BUF1 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.RSV 

C.STA 

C.STS 

C.URM 

C.XACP 

C.XID 

C.XLEN 

C.XPL' 

C.XPT 

C.XS  . 

C.XTC 

C.X25 

DSAMXC 

DSAMXH 

OIANN 

DSBRPR 

DSBRTM 

DSDELF 

OSDELW 


000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

000072 

000074 

000000 

000102 

000100 

00004  5 

000046 
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DSEND  =  000104 

FS.HLT= 

000000 

LF.UNL= 

020000 

DSFNB   000034 

FS.INI^ 

000000 

LF.X2P= 

000000 

DSHIOR  000024 

FS.KIL= 

000000 

LLCAL  = 

***»*♦  GX 

DSHOST  000022 

FS.LCL= 

100000 

LN.CLO= 

000000 

DSINAC  000044 

FS.LTM= 

001000 

LN.DUM= 

000005 

DSINCT  000042 

FS.MNT= 

004000 

LN.LOA= 

000004 

DSIPL   000051 

FS.MSN= 

014000 

LN.LOO= 

000003 

DtLlD   000020 

FS.REA= 

001000 

LN.OAU= 

000003 

DSLNAM  000006 

FS.RET= 

000000 

LN.OFF= 

000001 

DSLNUH  000014 

FS.REZ= 

003000 

LN.ON  = 

000000 

DSLST   000047 

FS.RLB= 

002000 

LN.OOP= 

000004 

DSHAXC  000064 

FS.RNG= 

011000 

LN.OPE= 

000001 

DSMAXH  000066 

FS.RST= 

000000 

LN.REF= 

000002 

OSMAXV  000070 

FS.RTN= 

001000 

LN.SER= 

000002 

DSMLL   000040 

FS.SET= 

005000 

LN.STA= 

000017 

DSMNOD  000041 

FS.SFC= 

005000 

LN.SUB= 

000360 

D$NA    000062 

FS.SFR= 

006000 

LN.TRI= 

000006 

DSNBEA  000056 

FS.$FS= 

004000 

L$$ASG= 

000000 

DSNBRA  000054 

FS.SPW= 

040000 

L$$DRV= 

000000 

0$NEND=  000054 

FS.STM= 

000000 

L$$P11= 

000001 

DSNLN   000030 

FS.STP= 

002000 

L$$11R= 

000000 

D$NN    000060 

FS.STR= 

001000 

L.COST 

000015 

DSOUTT  000043 

FS.TR|V|= 

003000 

L.CTL 

000012 

DSRETF  000050 

FS.WLB= 

001000 

L.CVA 

177776 

DSRNN   000002 

FS.XKL^ 

002000 

L.DDM 

000002 

DSRTMR  000076 

FS.XOF= 

010000 

L.DDS 

000004 

DSSEG   000036 

FS.XON= 

007000 

L.DLC 

000003 

DSSER   00005/ 

FS.ZER= 

002000 

L.DLM 

000006 

DSSQRL  000C52 

F$$LVL= 

000001 

L.DLS 

000010 

D$$BUG=  177514 

G$$TPP= 

000000 

L.FLG 

000000 

D$$ISK=  000000 

G$$TSS= 

000000 

L.KRBA 

000016 

D$$L11=  000001 

G$$TTK= 

000000 

L.LEN  = 

000022 

D$$YNC=  000000 

G$$URD= 

000000 

L.MPF 

000022 

D$$YNM=  000000 

INIFUN 

OOOOOOR 

002  L.NMST 

000020 

E$$XPR=  000000 

I$$RAR= 

000000 

L.NSTA 

000014 

FC.CCP=  000020 

I$$RDN= 

000000 

L.OWNR 

000021 

FC.CTL=  000006 

k:saro= 

172340 

L.UNT 

000013 

FC.KCP=  000016 

K1JAR6= 

172354 

MPAR  = 

172100 

FC.K1L=  000004 

KSAR6  = 

♦«***'  ^x 

MPCSR  = 

177746 

FC.MAN=  000024 

K$$CNT= 

177': 

M$$CRB= 

000124 

FC.MLD=  000026 

K$$CSR= 

177..  .o 

M$$CRX= 

000000 

FC.PCr=  000030 

K$$LDC= 

000000 

M$$EXT= 

000000  G 

FC.PUR=  000022 

K$$TPS= 

000074 

M$$FCS= 

000000 

FC.RCE=  000002 

LDSLP  = 

000000 

M$$MGE= 

000000 

FC.RCP=  000014 

LF.ACT= 

100000 

H$$NET= 

000000 

FC.TIM=  000010 

LF.BR0= 

000400 

H$$OVR= 

000000 

FC.XCP=  000012 

LF.BWT= 

000007 

NTILIN 

OOOOOORG 

FC.XME=  000000 

LF.ENA= 

002000 

NTLPT  = 

******  GX 

FNDPDV=  **♦**♦  GX 

LF.LPB= 

001000 

N$$ACC= 

000001 

FS.AST=  000000 

LF.MDC= 

000100 

N$$BUF= 

000001 

FS.CI8=  002000 

LF.MFL= 

004000 

N$$LDV= 

000001 

FS.CRA=  001000 

LF.MTP= 

000020 

N$$MCP= 

000001 

FS.DJS=  013000 

LF.PAC= 

000200 

N$$MLL= 

000001 

FS.DVC=  001000 

LF.RDY= 

040000 

N$$MOV= 

000010 

FS.ENB=  012000 

LF.REA= 

010000 

N$$NCT= 

000001 

FS.EX1=  001000 

LF.SER= 

000040 

N$$PEM= 

000001 

FS.GET=  006000 

LF.TIM= 

000010 

PDVID  = 

******  5x 
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SYMBOL      VALUE 


BUFOMP 

CMODE 

CSRDIS 

CSRENA 

CSRSLT 

CSRTAB 

CSRTRP 

I$$AS 

KISARO 

KISAR6 

KSAR6 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

IN. LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRl 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 


=  172354 
=  UOOOO 
000006  R 
000000  R 
000016  R 
OOOOH  R 
000250  R 

=  172340 
=   172354 

=   ****** 

=  100000 

=  000400 

=  000007 

^  002000 

=  001000 

=  000100 

=  004000 

=  000020 

=  000200 

=  040000 

=  010000 

=  000040 

=  000010 

=  020000 

=  000000 

=  000000 

=  000005 

=  000004 

=  000003 

=  000003 

=  000001 

=  000000 

=  000004 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 


GX 


REFERENCES 

#6-61 
#6-61 
#6-75 
#6-74 
#6-82 

6-74 

6-77 

6-61 
#6-61 
#6-61 

7-124 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 


7-151 

7-149 

*7-134 

#6-77 

#7-204 

6-63 


7-129 


7-171 


7-171 


7-157 


NN 
N^ 

N^ 

HV 

N^ 
w 
w 
Nr 
N^ 
Nr 

Nf 
Nf 
Nf 


7-186 
7-162 

*7-171 


-187 
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NN    m 

TTTTTTTTTT 

III 

II 

000000 

NN      NN 

NN      NN 

TTTTTTTTTT 

III 

II 

000000 

NN     NN 

NN      NN 

I 

00 

00 

NN      NN 

NN      NN 

I 

00 

00 

NN      NN 

NNNN    NN 

I 

00 

00 

NNNN    NN 

NNNN    NN 

I 

00 

00 

NNNN    NN 

NN  NN  NN 

I 

00 

00 

NN  NN  NN 

NN   NN  NN 

I 

00 

00 

NN  NN  NN 

NN    NNNN 

I 

00 

00 

NN    NNNN 

NN    NNNN 

I 

00 

00 

NN    NNNN 

NN      NN 

I 

00 

00 

NN      NN 

NN      NN 

I 

00 

00 

NN      NN 

NN      NN 

III 

M 

LLLLLLLLLL 

000000 

NN      NN 

NN      NN 

III 

II 

LLLLLLLLLL 

000000 

NN      NN 

1 

ssssssss 

1 

ssssssss 

in 

111 

ss 

in 

111 
1 
■ 
; 

1 
1 

ss 
ss 
ss 
ssssss 
ssssss 
ss 
ss 
ss 
ss 

ni 

111 

111 

in 

ssssssss 

1 11 

111 

111 

111 

ssssssss 
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NTILON  -  NTINIT 
Symbol  table 


S4.DL0= 

S4.EDT= 

S4.HFF= 

S4.HFL= 

SA.HHT= 

S4.HSY= 

S4.RGS= 

S4.SFC= 

S4.VFL= 

S5.ABP= 

S5.BCC= 

S5.DA0= 

S5.HPC= 

S5.HP0= 

S5.ITI= 

S5.0XF= 

S5.RP0= 

S5.SiJl  = 

S5.TMM= 

S5.VER= 

S5.X0F= 

S5.X0N= 

S6.EI0= 

S6.RDI= 

S6.RLU= 

IPS 

TSFLAG 

TSLIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TtNAPL 

rSNFE 

TSNLEN 

TSNNUL 

TSNOPL 

T$NRM 

TSNRPL 

rSNRUL 

T$NVR 

rSRPRI 

TSSVC 


000100 

010000 

000020 

00000? 

OOOOAO 

000200 

020000 

040000 

000010 

100000 

020000 

040000 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

177564 

000044 

00001 1 

00001 3 

000015 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 


T$T5 

T$T6 

T$$KMG= 

T$$MIN= 

UBMPR  = 

UC.ALG= 

UC.ATT= 

UC.KIL= 

UC.LGH= 

UC.NPR= 

UC.PWF= 

UC.QUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UISARO= 

UISAR1= 

UM.CLI= 

UM.DSB= 

UM.NBR= 

UM.OVR= 

US.ABO= 

US.BSP= 

US.BSy= 

US.FOR= 

US.FRK= 

US.KPF= 

US.LAB= 

US.MDE= 

US.MDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.WCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 


000030 
000032 
000000 
000000 
170200 
000200 
000010 
000004 
000003 
000100 
000020 
000040 
000000 
000004 
000001 
000002 
000005 
000006 
000003 
177640 
177642 
000036 
000200 
000400 
000001 
000001 
000002 
000200 
000040 
000002 
000001 
000004 
000002 
000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
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U.ACB 

000062 

U.TUX   000024 

U.BHVR 

000004 

U.ACP  = 

000032 

U.UHVR=  000107 

W.8LGH 

000020 

U.ADMA 

000066 

U.UIC   000044 

W.BLPD 

000016 

U.AFLG 

000064 

U.UNFL=  000052 

W.BLVR 

M°M 

J. ATT 

000022 

U.UNIT  000006 

W.BNPD 

000015 

U.BPKT= 

000044 

U.UNSZ=  000114 

U.BOFF 

000012 

U.BUF 

000024 

U.UNT1=  000060 

W.ePCB 

000000 

U.CBF  = 

000032 

U.USVR=  000106 

U.BSIZ 

000010 

U.CL 

177772 

U.UTIL=  000036 

X$$DBT= 

000000 

U.CNT 

000030 

U.VCB  =  000034 

ZF.COU= 

001000 

U.COTQ 

000030 

U.VSER=  000120 

ZF.DDM= 

000001 

U.CTCB 

000026 

U.2MED=  000070 

ZF.DIA= 

004000 

U.CTL 

000004 

U2.AT.=  000020 

ZF.DLC= 

000002 

U.CTYP 

000052 

U2.CRT=  002000 

ZF.DVP= 

100000 

U.CWl 

000010 

U2.DH1=  100000 

ZF.INI= 

040000 

U.CU2 

000012 

U2.DJ1=  040000 

ZF.KMX= 

000020 

U.CW3 

000014 

U2.DZ1=  000100 

ZF.LLC= 

000004 

U.CU4 

000016 

U2.ESC=  001000 

ZF.LMC= 

000100 

U.CYL  = 

000104 

U2.HFF=:  010000 

ZF.MAN= 

020000 

U.DCB 

000000 

U2.HLD=  000040 

ZF.MFL= 

000010 

U.FCDE= 

000042 

U2.L0G=  000400 

ZF.MTM= 

000400 

U.FNUM= 

000040 

U2.LWC=  000001 

ZF.MUX= 

000040 

U.GRP  = 

000102 

U2.L3S=  000004 

ZF.PSE= 

002000 

U.KCSR= 

000032 

U2.L8S=  010000 

2F.SLI= 

010000 

U.KCS6= 

000034 

U2.NEC=  004000 

ZF.T]M= 

000200 

U.LUJC 

177774 

U2.PRV=  000010 

ZF.X3P= 

000000 

U.MED]= 

000040 

U2.RMT=  020000 

ZS.ASN= 

100000 

U.MLUN= 

000050 

U2.R04=  100000 

ZS.BSY= 

140000 

U.MUP 

177772 

U2.SCS=  000004 

Z.AVL 

000014 

U.OWN 

177776 

U2.SLV=  000200 

Z.DAT 

000016 

U.RBNS= 

000112 

U2.VT5=  000002 

Z.DSP 

000000 

U.RCTC= 

000113 

U2.7CH=  010000 

Z.FLG 

000010 

U.RCTS= 

000110 

U3.0PA=  100000 

Z.LEN  = 

000016 

U.RED 

000002 

U3.PAR=  040000 

Z.LLN 

000006 

U.RED2 

000034 

U3.UPC=  020000 

Z.MAP 

000020 

U.SCB 

000020 

U4.CR  =  000100 

Z.NAM 

000004 

U.SHST= 

000076 

VF$RCV=  100000 

Z.PCB 

000012 

U.SHUN= 

000074 

VF$XMT=  040000 

Z.SCH 

000007 

U.SPC  = 

000036 

VSFLG   000000 

$DBECL= 

******   GX 

U.STS 

000005 

VSLEN   000022 

$DBXPT= 

******  GX 

U.ST2 

000007 

VSRCV   000002 

SERRll 

000046RG    002 

U.SUB  = 

000036 

VSXMT   000012 

$ERR15 

0001 36RG    002 

U.TCHP 

000042 

V$$CTR=  001000 

$ERR17 

0001 76RG    002 

U.TCVP 

000043 

V.CULT  000004 

$ERR18 

000252R    002 

U.TFLK 

000040 

V.GENQ  000016 

$ERR19 

00031 2RG    002 

U.TFRO 

000036 

V.MBXQ  000012 

$NIERR= 

******  GX 

U.TIXL 

000060 

V.TIME  000003 

$N  LON 

OOOOOORG 

U.TLPP 

000053 

V.TIMR  000002 

$N  MFE= 

******  GX 

U.TMTI 

000047 

V.TRCT  000000 

$NIXPT= 

******   GX 

U.TRCK= 

000100 

V.ULT   000006 

$$$0ST= 

000010 

U.TSTA 

000026 

V.ULTE  000010 

$$$T1  = 

000002 

U.TST5 

000054 

V.VBL  =  000022 

$$$T2  = 

000042R    002 

U.TST6 

000056 

W.BATT  000006 

.BASEB= 

140000 

U.TTAB 

000050 

W.BFPD  000014 

.$$$$.= 

000034 

U.TTYP 

000046 

NT 
EN 
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ENABLE  A  LINE 
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255 
256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 

269  000610 

270  000614 

271  000616 

272  000620 

273  000624 

274  000626 

275  000630 

276  000634 

277  000636 
278 

279 
280 
281 
282 
283 
284 

285  000640 

286  000644 
287 

288  000646 

289  000652 

290  000656 

291  000660 

292  000664 

293  000670 

294  000674 

295  000700 

296  000706 

297  000714 
298 

299  000720 

300  000732 
301 

302  000734 

303  000736 

304  000744 
305 

306  000746 

307  C00750 
508  000754 


010005 

005001 

156201     000001 

111203 

001447 

017700     OOOOOOG 

060100 

011000 


016000     000016 
001440 


103420 

005064  000014 

110164  000007 

110364  000006 

005064  000004 

012764  000004     000012 

012764  001006     000010 


103005 
000740 
000261 


.SBTTL      ENABLE    A   LINE 

'**-ENALIN-ENABLE   A  LINE    IF   OWNED  BY   SPECIFIED   LLC 

IF    SO,    ENABLE    THE   LINE   BY   OUEUEING  A   CCB   TO   THE   PROPER  LLC 

INPUTS: 

RO  -  PDV  ADDRESS   OF    ASSOCIATED   DDM 

R2  -  POINTER   TO  IINE'S   ENTRY    IN   THE  REVERSE  MAPPING   TABLE 

OUTPUTS: 

START  FUNCTION  QUEUED  TO  OWNING  LLC 


SAVE  R3,R5 

GET  PDV  ADDRESS  OF  DDM 

GET  OWNING  LLC  PDV  INDEX 

get' CHANNEL  # 
IF  ZERO,  BAD  CHANNEL 
POINT  TO  PDV  INDEX  TABLE 
ADD  OFFSET  FOR  SPECIFIED  LLC 
POINT  TO  LLC'S  PDV 


ENALIN: 

SAVRG 

<R0,R5> 

MOV 

R0,R5 

CLR 

R1 

BISB 

1(fi2),R1 

MOVB 

(fi2),R3 

BEQ 

35$ 

MOV 

aPDVTA.RO 

ADD 

RI.RO 

MOV 

(r6),R0 

.IF  NDF 

R$$11S 

BIT 

#ZF.PSE,Z.FLG(R5) 

BEQ 

10$ 

CALL 

DLMSET 

.ENDC 

10$: 

MOV 

Z.DAT(RO),RO 

BEQ 

35$ 

15$: 

SWSTK$ 

30$ 

CALL 

aCCBGT 

BCS 

20$ 

CLR 

C.eUF1(R4) 

MOVB 

R1,C.STA(R4) 

MOVB 

R3,C.L1N(R4) 

CLR 

C.NSP(R4) 

MOV 

#STRT,C.STS(R4) 

MOV 

#FC.CTL!FS.STR,C.FNC(R4) 

CALLR 

aLLCRS 

20$: 

RETC 
RETURN 

RO 

30$: 

BCC 
WSIG$S 

40$ 

BR 

15$ 

35$: 
40$: 


IS  THIS  A  DLM  CIRCUIT? 

BR  IF  NO 

SET  UP  DATA  LINK  MAPPING  PARAMETERS 


;GET  POINTER  TO  LLC'S  DATABASE 
;IF  ZERO,  LLC  NOT  LOADED! !  ! 

ENTER  SYSTEM  STATE 

TRY  TO  ALLOCATE  A  CCB 

IF  CS,  ALLOCATION  FAILURE 

CLEAR  FLAGS  WORD 

SET  UP  PDV  AND 

CHANNEL  #  TO  TURN  ON 
CONTROL  IS  RETURNED  TO  AUX 
TURN  ON  THE  LINE 
SET  UP  FUNCTION  CODE 
QUEUE  CCB  TO  LLC 


;  SET  USER  C-BIT 

;  LEAVE  SYSTEM  STATE 

IF  CC,  REQUEST  QUEUED 
ALLOCATION  FAILURE  ... 
THEN  TRY  AGAIN 


;  **-1 


WAIT  A  BIT 


SEC 

RESRG 

RETURN 


<R5,R0> 


INDICATE  LINE  NOT  ENABLED 
RESTORE  R5,R3 
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1 

2 

3 

I, 

5 

6 

7 

8 

9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  NTINIT 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1978,1979,1980, 
DIGITAL  EQUIPMENT  CORPORATION, 


^982,  1983,  1985  BY 
MAYNARD,  MASS. 


THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NETWORK  INITIALIZER  (NTINIT)  MAIN  CONTROL 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-lIM  V3.1 
DECNET-llM-PLUS  VI.  1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF   ITS 
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NTINIT  MACRO 
NTL  COMMUNICAT 

539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
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.SBTIL  NTL  COMMUNICATION 

SNINTL  -  SEND  DATA  TO  NTL  AND  WAIT  FOR  RESPONSE 

THIS  ROUINE  IS  ONLV  NECESSARY  ON  AN  RSXIIM  OR  IAS  SYSTEM 

INPUTS: 

SNTLFC  IS  ALREADY  SET  FOR  NTL 

OUTPUTS: 

CARRY  INDICATES  SUCCESS/FAILURE 
SNTLFC  CONTAINS  RESPONSE  FROM  NTL 


SNINTL: 


10$: 


.IF  NDF  RSS11S 


DIRS 

BCS 

DIRS 

UTSESS 

CLFFSS 

RETURN 


EMSGSR  02 
.ENDC 


#SMSNL 

IDS 

*SNIRNL 

*15. 

#15. 


;*-RSX11M  SYSTEM  ONLY-* 

;SEND  DATA  TO  NTL 

;BR  IF  CAN'T,  PROBABLY  NOT  INSTALLED 

.-REQUEST  NTL  TO  RUN  IF  NOT  ALREADY 

;WAIT  FOR  NTL'S  RESPONSE 

.-CLEAR  FLAG  15.  FOR  NEXT  TIME 

;  WITH  C-BIT  CLEAR 

;NTL  PROBABLY  NOT  INSTALLED 

;*-END  RSXIIM  CODE-* 
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CREf       04.00 


SYMBOL      VALUE 


LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LO.CON 

LO.CSR 

LO.CTL 

LO.LIN 

LO.PAR 

LO.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFN 

LR.LIN 

LR.PRM 

LR.PRO 

LR.STS 

LR.TCB 

LR.UNT 

LS.AST 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.DLM 

LS.ECH 

LS.FDX 

LS.HDX 

LS.LIN 

LS.LMC 

LS.NTl 

LS.ON 

L5.0PT 

LS.PRO 

LS.PWF 

LS.TOP 

LS.UNF 

LS.X25 

LS.11D 

LX.CEX 

LX.LIN 

LX.PRO 


-  000003 

=  000001 

=  000000 

=  OOOOOA 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000006 

000006 

OOOOU 

000004 

000010 

000010 

oooou 

000015 

000012 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 

000005 

=  100000 

=  000001 

=  000010 

=  010000 

=  000400 

=  004000 

=  001000 

=  004000 

=  010000 

=  000003 

=  000007 

=  004000 

=  000011 

=  000400 

=  000002 

=  040000 

=  002000 

=  020000 

=  000012 

=  004000 

=  000004 

=  000006 

=  000005 


REFERENCES 

#6-76 
#6-76 
ltb-76 
ltb-?(> 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-72 
#6-72 
#6-72 
#6-72 
#6-/2 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 
#6-72 


10-361 
10-389 


10-409 
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MACRO  V05.03b  Saturday  29-Jun-85  03:35  Page  10 
INSERT  ENTRY  ON  CLOCK  QUEUE 


6  11 


198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 


.IF  DF  R$$MPL 


VNP'D  SYSTEM  IMAGE  HACK 


;CMP01,1 


THIS  ROUTINE  UILL  BE  REMOVED  FOR  NEXT  BASE  LEVEL, AFTER  A 
MORE  GENERAL  SOLUTION  IS  DESIGNED  . 

SNXHCK  -  INIT  DLX  THRU  POWERFAIL  CALL  IF  SYSTEM  IS  VNP'D 

INPUTS:  NONE 

OUTPUTS:  DLX  CALLED  AT  POWERFAIL  SYSTEM  IS  VNP'D 


SNXHCK: :CMP 
BEQ 


10$: 


20$: 


000001 


NTISEN<-S.DATN,**RNTL  ;  IS  THIS  FROM  NTL  ? 

20$  ;  IF  YES  -  BRANCH   (NX  POWERFAIL  COMPLETED) 


SWSTK$  20$ 


MOV 
MOV 
MOV 
BEQ 
CMP 
BNE 

MOV 
MOV 
MOV 
MOV 
CALL 

RETURN 


.ENDC 
.END 


*"NX,R3 

aDEVHD.RO 

(RO),R0 

20$ 

R3,D.NAM(R0) 

loi 

R0,R3 

D.UCB(R3),R5 

U.SC8(R5),R4 

D.DSP(R3),R2 

aLDPWF 


ENTER  KERNEL  STATE 

t  GET  DEVICE  NAME 

•  GET  HEAD  OF  DEVICE  LIST 
»  GET  NEXT  DEVICE 

»  IF  END  -  BRANCH 

•  IS  THIS  NX  ? 

»  ir  NO  -  BRANCH 

»  SAVE  DCB  ADDRESS 

•  GET  UC8  ADDRESS 

•  GET   SC8  ADDRESS 

"   GET   DISPATCH   TABLE 

»   CALL   NX  AT   POWERFAIL   ROUTINE 


NTITIM     Mirpn  uns_n3h  i;atiirriav  ?9-Jun-85  03:33     Paae   10-1 
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G  12 


CCCCCCCCCCCC     Ff 

FFFFFFFFFFFFF 

EEEEEEEEEEEEEEE 

ccccccccccc    f 

FFFFFFFFFFFFF 

EEEEEEEEEEEEEEE 

cccccccrccc    f 

FFFFFFFFFFFFF 

EEEEEEEEEEEEEEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

FFFFFFFFFF 

EEEEEEEEEEEE 

rrr 

FFFFFFFFFF 

EEEEEEEEEEEE 

rrr 

FFFFFFFFFF 

EEEEEEEEEEEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

rrr 

EEE 

CCCCCCCCCCCC     F 

EEEEEEEEEEEEEEE 

CCCCCCCCCCCC     F 

EEEEEEEEEEEEEEE 

CCCCCCCCCCCC     F 

c  p 

EEEEEEEEEEEEEEE 

.in.trfFrnM 


H  12 
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04:5 


1 
2 

I* 
5 

6 
7 
8 
9 

10 

11 
12 
15 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  CFEDEF  - 
.IDENT  /V05.00/ 
.ENA8L  LC 


5  Page  3 


PROCESS  DEFINE  COMMAND 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURN'SriED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  PROCESS  DEFINE  COMMAND 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

'.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-MJcro/RSX  V1.0 
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CFEDEF    -  PROC 
Symbol   table 


CS.TH1= 

****** 

GX 

OC 

MRI  = 

****** 

GX 

CS.TLO=: 

GX 

or. 

MWI  = 

****** 

GX 

C.STS  = 

****** 

GX 

OC 

MXR  = 

****** 

GX 

DSPTBL 

OOOOOOF 

OC 

NWC  = 

****** 

GX 

ERRIGR 

0001 15F 

OC 

PVC  = 

****** 

GX 

ERhlWC 

00003AF 

OC 

RPR= 

****** 

GX 

ERRPSI 

0001 70F 

OC 

SLI  = 

****** 

GX 

EX$ERR= 

000002 

OC 

SIA= 

****** 

GX 

E2.NSP= 

****** 

GX 

OC 

SVC  = 

****** 

GX 

E2.R0U= 

****** 

GX 

OC 

IR1  = 

****** 

GX 

FL.CRE= 

****** 

GX 

OC 

UNU 

****** 

GX 

FL.PVC= 

GX 

Ob 

NUD= 

****** 

GX 

FL.X25= 

****** 

GX 

OF 

NSP= 

****** 

GX 

OC.APR= 

****** 

GX 

ot 

ROU= 

****** 

GX 

OC.CNT= 

****** 

GX 

Ob 

SUB= 

****** 

GX 

OC.CST= 

****** 

GX 

01 

CNI  = 

****** 

GX 

OC.CTM= 

****** 

GX 

ni 

.SI  1  = 

****** 

GX 

OC.DTE= 

****** 

GX 

01 

.UNT= 

****** 

GX 

OC.HTM= 

****** 

GX 

CL 

.X2b= 

****** 

GX 

.  ABS. 

000000 

000 

(RW,I,GBL,A8S, 

DVR 

0013A2 

001 

(RW,I,LCL,REL, 

;oN 

Errors 

detected:  0 

29-Jun-85  0A;55 

turday 

Page  12 

-1 

OS.BUF= 

***»♦«  GX 

XP.KNG= 

****** 

GX 

OS.PRT= 

******  GX 

XP.LV3= 

****** 

GX 

P$SNAM= 

******  GX 

XP.NNA= 

****** 

GX 

P$STH1= 

******  GX 

SCFDEF 

000252RG 

P$STLO= 

******  GX 

$CFERR= 

****** 

GX 

SETCIR 

000622R 

$COMP  = 

****** 

GX 

SETEXE 

00026AR 

$ESU8  = 

****** 

GX 

SETKNC 

000632R 

$FLAGS= 

****** 

GX 

SETLIN 

000536R 

$NNAM  = 

****** 

GX 

SETPVC 

001110R 

$OPRND= 

****** 

GX 

SETSVC 

001116R 

$0PRN2= 

****** 

GX 

SETSYS 

00117AR 

$PSIPT= 

****** 

GX 

SETTRN 

001030R 

$SEBUF= 

****** 

GX 

SETXPR 

001226R 

$SECNT= 

****** 

GX 

SW.SLT= 

******  GX 

$SECUG= 

****** 

GX 

WC.CJR= 

******  GX 

$SEDTE= 

****** 

GX 

XP.CUG= 

******  GX 

$SEL0G= 

****** 

GX 

XP.DTE= 

******  GX 

$SENOD= 

****** 

GX 

XP.KND= 

******  GX 

»»»   Assembler   statistics 

Uork      file     reads:  0 

Work      file  writes:  0 

Size  of  work   file:  SSAA  Words      (   5'!.  Pages) 

Size  of   core  pool:  1AAA0  Words      (   55  Pages) 

Operating      system:  RSX-11M/PLUS 

SYfcFEDEF!v2|C132,13A]CFEDEF/CR/-SP=5Y:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C132,10]CFEDEF 


$SENSP= 

****** 

GX 

$SE0BJ= 

****** 

GX 

$SEPAR= 

*♦*»♦* 

GX 

$SEPRO= 

****** 

GX 

$SEPVC= 

****** 

GX 

$SEREM= 

****** 

GX 

$SEROU= 

****** 

GX 

$SESLT= 

****** 

GX 

$SESNA= 

****** 

GX 

$SESVC= 

****** 

GX 

$SEUNT= 

****** 

GX 

SSEXAC:^ 

****** 

GX 

$SEXSV= 

****** 

GX 

$SEX2P= 

GX 

$SEX29= 

****** 

(iX 

$SEX3P= 

****** 

GX 

$SWICH= 

****** 

GX 

SWILP  = 

****** 

GX 

rDCHTFn   nv     Miron     nw  ?q-iiiw-8S   AT   nii:S5 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
2? 
2U 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


CFEHLP  -  HELP  ROUTINE  FOR  CFE 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  HANDLE  PROCESSING  OF  HELP  INFORMATION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-HM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 
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CFEIMP  -  SYMBOL    DEFINITIONS   AND  MACRO  V05.03b   Saturday  29-Jun-85 
GLOBAL    DATA 


V.^ 


5     Page  ^-1 


180 

181   001532 

182 

183  00153'. 

ISi  001536 

185  0015AO 

186 

187 

1 88 

189  0015A2 

190  001546 

191  001550 

192  001552 

193  001554 

194  001556 

195  001560 

196  001562 

197  001564 

198  001570 
199 

200  001574 

201  001574 

202  001574 

203  001576 

204  001602 

205  001604 

206  00;614 
20/  001616 

208  001620 

209  001622 

210  001622 

211  001624 

212  001664 
213 

214 
215 

216  001706 

217  001710 

218  001712 
219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233  001716 

234 

235 

236 


001532' 


001634' 
001704' 
000050 


001550' 
001552' 
001556' 
001574' 
001564' 
001620' 
001550' 
001566' 
00156,' 
001451' 
001570' 
001572' 
0C1560' 
00^712' 

001716' 
001720' 
001716' 


tPRNAM:;.8LKW 
IDVNAM 


SCNTNM 
tUNTNM 
»STAN; 


:.8LKW 

:.BLKW 

.BLKW 


SPRNAM 


STORAGE  FOR  THE  DEVICE/PROCESS  NAME  (RAD50) 
ALIAS  FOR  DEVICE  NAME 
THE  CONTROLLER  NUMBER 
THE  UNIT  NUMBER 
THE  STATION  NUMBER 


THE  PREVIOUS  LINE  MUST  BE  CONTIGUOUS 


iN0DNA:;.8LK;W 
$NODAD::.BLKW 


$VEC: 

$PRI: 

$8AUD 

$CSR: 

$SCSR 

SLINKS 

SPOLNA 

SPARNA 

SCOPES: 
SRST:: 

STNAM: 
STNUM: 
SEVENT 
SCLASS 
SEV8EG 
SVLVL: 
SDTE:: 
SID:: 


SNLN: 
SCOST 
SOBJ : 


SDST:: 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


.BLKW 

1 

.BLKB 

32. 

.BLKW 

33.-<.-SID>tl2 

SCHNLS 

==  SID  +  12 

SCHNND 

==  .-2 

SCHNLN 

==  .-$CHNLS-2 

.BLKW 

1 

.BLKW 

1 

.BLKW 

2 

SMAXC  = 

=  SVEC 

smxH  = 

=  SPRI 

SNN   = 

=  SCSR 

SNCOU  = 

=  SCOPES 

SNLT  = 

=  SPOLNA 

SNCT  = 

=  SVLVL 

SBYT  = 

=  SVEC 

SSTADR 

==  SP0LNA*-2 

SURM 

==  SLINKS 

SCMDPT 

==  SCOMP 

SDPR 

==  SPARNA 

SAPR 

==  SPARNAMt2 

SH0S7 

==  SSCSR 

SCIRID 

==  SOBJ 

.BLKW 

2 

SCIMXR 

==  SDST 

SCIRPR 

==  SDSTt2 

SESU8 

==  SDST 

NODE  NAME  (2  WORDS  RAD50) 

NODE  ADDRESS 

THE  VECTOR  ADDRESS 

THE  PRIORITY 

THE  BAUD  RATE 

CSR  ADDRESS 

SECONDARY  CSR  ADDRESS 

MAXIMUM  NUMBER  OF  LOGICAL  LINKS 

POOL  NAME  (2  WOIDS  RAD50) 

PARTITION  NAME  (2  WORDS  RAD50) 


NbMBER  OF  OBJECT  TASK  COPIES 
RESTART  TIMER 


(OBJECT) 
(X25-PRO) 


OBJECT  TASK  NAME  (RAD50) 

OBJECT  TASK  NUMBER 

EVENT  FILTER  MASKS 

EVENT  CLASS 

BEGINNING  EVENT  TYPE  IN  EVENT  RANGE 

OBJECT  TASK  VERIFICATION  LEVEL 

NODE  ID  LENGTH 

32  CHAR  ASCII  NODE  ID  STRING 

32  WORD  CHANNEL  LIST 

CHANNEL  LIST  -  LEAVE  ROOM  FOR  DTE  STRING 

LENGTH  OF  CHANNEL  LIST 

NUMBER  OF  CHANNELS  IN  THE  SYSTEM 

COS"  OF  A  LINE 

OBJECT  ID  (DESTINATION) 

MAXIMUM  ROUTING  COST 

MAXIMUM  ROUTING  HOPS 

MAXIMUM  NUMBER  OF  NODES  IN  NETWORK 

MAXIMUM  NUMBER  OF  NODE  COUNTERS  FOR  NSP 

MAXIMUM  NUMBER  OF  LINE  TABLES  IN  PROCESS  SPACE 

MAXIMUM  NUMBER  OF  CONTROLLER  TABLES  FOR  PROCESS 

NTPOOL  BYTE-AREA  EXTENSION 

STATION  ADDRESS 

UNI3US  RUN  MASK  (FOR  RSX-11M+) 

POINTER  TO  LINE  AFTER  "HELP" 

■  AD  POLLING  RATIO 

/  TIVE  POLLING  RATIO 

~T  NODE  ADDRESS 
Clh.UIT  ID  (PVC  OR  SVC) 
DESTINATION  ID        (MODULE) 
MAXIMUM  ROUTERS       (CIRCUIT) 
ROU.iR  PRIORITY       (CIRCUIT) 
EXECUTOR  SUBADDRE5SES  (EXEC  NODE,  PSD 
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A$$CHK= 

000000 

GS$WRD= 

000000 

H$$OVR= 

000000 

P$$P45= 

000000 

S.CTM 

000006 

AtSCPS= 

000000 

I$$RAR= 

000000 

M.BFVH 

000011 

P$$URD= 

000000 

S.DMCS 

000020 

A$$PRI= 

000000 

I$$RDN= 

000000 

M.8FVL 

000012 

Q$$OPT= 

000010 

S.FRK 

000016 

A$$TRP= 

000000 

Kt$CNT= 

177546 

H.LGTH= 

000014 

R$$DER= 

000000 

S.ITM 

9.9,9.9,9.1 

CS$CKP= 

000000 

K$$CSR= 

177546 

M.LNK 

000000 

R$$K11= 

20fi921 

S.LHD 

000000 

C$$ORE= 

OOOAOO 

K$$LDC= 

000000 

M.UMRA 

000002 

R$$SND= 

000000 

S.PKT 

000014 

C$$RSH= 

17756A 

K$$TPS= 

000074 

M.UMRN 

000004 

R$$11M= 

000000 

S.PRI 

000004 

D$SBUG= 

1775U 

LDSLP  = 

000000 

M.UMVH 

000010 

SPARE  = 

000010 

S.RCNT 

^77772 

D$$ISK= 

000000 

L$$ASG= 

000000 

M.UMVL 

000006 

SP.EIP= 

000001 

S.ROFF 

177773 

()$$L11  = 

000001 

L$$DRV= 

000000 

N$$ACC= 

000001 

SP.ENB= 

000002 

S.STS 

000011 

D$$YNC= 

000000 

L$$P11= 

000001 

N$$BUF= 

000001 

SP.LOG^ 

U00004 

S.VCT 

000005 

D$$YNM= 

000000 

L$$11R= 

000000 

N$$LDV= 

000001 

S$$WRG= 

000000 

T$$KMG= 

000000 

E$$XPR= 

000000 

M$$CRB= 

000124 

N$$MCP= 

000001 

S$$YSZ= 

007600 

T$$MIN= 

000000 

F$$LVL= 

000001 

H$$CRX= 

000000 

N$$MLL= 

000001 

S.BMSK 

177776 

V$$CTR= 

001000 

GS$TPP= 

000000 

M$$FCS= 

000000 

N$$MOV= 

000010 

S.BMSV 

177774 

X$$DBT= 

000000 

G$$TSS= 

000000 

M$$MGE= 

000000 

N$$NCT= 

000001 

S.CON 

000010 

SNIUMR 

OOOOOORG 

G$$TT<= 

000000 

M$$NET= 

000000 

N$$PEM= 

000001 

S.CSR 

000012 

.  ABS. 

17777b 
000056 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 

Errors 

detected: 

0 

♦**  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   f 

lie  writes 

0 

Size  of 

work  file 

9373 

Words 

(  37  Pages) 

Size  of 

core  pool 

KAAO  Words 

(  55  Pages) 

Operating  system 

RSX- 

11M/PLUS 

SYfN1IUMR!v2;C''''',134]NTlUMR/CR/-SP  =  SY:[l,nRSXMCM.SI*IL/ML,[130,110]NETLI8/ML,[130,10]RSXMCM/PA:1,[132,10]NTIUMR 


NT!  JMR 


CREATED  BY      MACRO     ON  29-JUN-85  AT   03:28 
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Nnx25 

CREATED  BY 

MACRO     ON  29 

-JUN-85  AT 

03:29 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ZF.DVP 

=   100000 

#5-60 

Zf .INI 

=  040000 

#5-60 

ZF.KMX 

=  000020 

#5-60 

ZF.LLC 

=  000004 

#5-60 

ZF.LMC 

=  000100 

#5-60 

ZF.MAN 

=  020000 

#5-60 

ZF.MFL 

=  000010 

#5-60 

ZF.MTM 

=  OOOAOO 

#5-60 

ZF.MUX 

=  000040 

#5-60 

ZF.PSE 

=  002000 

#5-60 

ZF.SLI 

=  010000 

#5-60 

ZF.TIM 

=  000200 

#5-60 

ZF.X3P 

=  000000 

#5-60 

ZS.ASN 

=  100000 

#5-60 

ZS.BSY 

=  uoooo 

#5-60 

Z.AVL 

OOOOK 

#5-60 

Z.DAT 

000016 

#5-60 

Z.DSP 

000000 

#5-60 

5-60 

Z.FLG 

000010 

#5-60 

Z.LEN 

-  000016 

#5-60 

Z.LLN 

000006 

#5-60 

Z.MAP 

000020 

#5-60 

Z.NAM 

000004 

#5-60 

Z.PCB 

000012 

#5-60 

Z.SCH 

000007 

#5-60 

SERRAO 

000036 

R 

#6-95 

7-187 

$ERR4i 

000076 

R 

#6-96 

7-188 

$ERRA2 

000136 

R 

#6-97 

7-189 

SHEADR 

=:     ****** 

GX 

7-165 

IN I  ERR 

3     ****** 

GX 

6-95 

6-96 

6-97 

SNIMFE 

-     ****** 

GX 

7-171 

$NIX25 

000000 

RG 

#7-124 

$$$GLB 

=    ****** 

6-88 

6-89 

$s$n 

=  000002 

#6-88 

6-88 

6-88 

$$$T2 

=  000032 

R 

#6-8? 

6-89 

.BASEB 

=  140000 

#5-59 

H  2 
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NTIX25 


CREATED  BY  MACRO  ON  29-JUN-85  AT  03:29     PAGE  3 


I  2 


NTKEX  MACRO  V05.03b  Saturday  29-Jun-85  03:2" 
Symbol  table 


Page  9-2 


H  3 


PDVNM 

PDVTA 

PIRQ 

PMODE 

PRO 

PRl 

PR2 

PR3 

PR-; 

PR5 

PR6 

PR7 

PS 

PUMR 

P$$P45 

Pt$WRO= 

Q$$OPT= 


=  »♦«««•  GX 
=  »♦»*»»  5x 
=  177772 
=  030000 
=  000000 
=  0000^0 
=  000100 
=  OOOKO 
=  000200 
=  0002^.0 
=  000300 
=  000540 
^  177776 
=  »»»»**  GX 

000000 

000000 

000010 


R$$DER= 
R$SK11= 
R$$SND= 
R$$11M= 
R$$11S= 
SF.ACT= 
SF.ENA= 
SF.LPB= 
SF.MFL= 
SF.PAC= 
SF.REA= 
SF.SER= 
SF.SVC= 
SF.UNL= 
SWR  = 
S$$WRG= 
S$$YSZ= 


000000 
000001 
000000 
000000 
000001 
000200 
000100 
000004 
OOOOAO 
000020 
000010 
000001 
000002 
000040 
177570 
000000 
007600 


S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TPS 

T$$KMG= 

T$$MIN= 

UBMPR  = 

UISARO= 

UISAR1= 

UMRPT  = 

V$$CTR= 

X$$D8T= 

ZF.COU= 

ZF.DDM= 

ZF.D  A= 


000001 

000000 

000004 

000002 

000003 

177564 

000000 

000000 

170200 

177640 

177642 

******  GX 

001000 

000000 

001000 

000001 

004000 


ZF.DLC= 
ZF.DVP= 
ZF.INI= 
ZF.KMX= 
ZF.LLC= 
ZF.LMC= 
ZF.MAN= 
ZF.MFL= 
ZF.MTM= 
ZF.MUX= 
ZF.PSE= 
ZF.SLI= 
ZF.TIH= 
ZF.X3P= 
ZS.ASN= 
ZS.BSY= 
Z.AVL 


000002 
100000 
040000 
000020 
000004 
000100 
020000 
000010 
000400 
000040 
002000 
DIOOOO 
000200 
000000 
100000 
140000 
000014 


Z.DAT 

Z.DSP 

Z.FLG 

Z.LEN  = 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SNICEX 

$NICSR= 

$NIDLI= 

$NITIM= 

$NIUMR= 

.BASEB= 

.CXCSR= 

.$$$$.= 


000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

OOOOOORG 

******  GX 

******  GX 

****** 

****** 

140000 
****** 
000034 


GX 
GX 

GX 


ABS. 


177776 
000212 
DATA  000002 
Errors   detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


***  Assembler   statistics 


Work      file     reads:  49 

Work      file  writes :  60 

Size  of   work    file:  20950  Words 

Size  of   core  pool:  17608  Word: 

Operating     system:  RSX-11M/PLUS 
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Nl 
Ts 


L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MPAR 

MPCSR 

M$$MGE 

PDVTA 

PIRQ 

PMODE 

PRO 

PR1 

PR2 

PR3 

PRA 

PR5 

PR6 

PR7 

PS 

R$$MPL 

R$$11D 

R$$11M 

R$$11S 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SWR 

S$$BAS 

S.COST 

S.FLG 

S.LEN 

S.NM5T 

S.OWNR 

S.VTTA 

TPS 

UBMPR 

UISARO 

UISAR1 

X$$MCB 

ZF.COU 

ZF.DDM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 

ZF.KMX 


000020 
OOOOK 
000021 
000013 
172100 
177746 
000000 

****** 

177772 
030000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 

****** 
000000 
000001 
000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 
000040 
177570 

****** 

000001 

000000 

000004 

000002 

000003 

000002 

177564 

:  170200 

:  177640 

:  177642 

:  ****** 
r  001000 

:  000001 
^  004000 
■■   000002 

:     100000 

■■  040000 
^  000020 


GX 


#6-62 
#6-62 
#6-62 
#6-62 
#6-61 
#6-61 
6-61 
7-163 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
#6-61 
6-61 
6-61 
6-63 
#4-2 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-61 
6-88 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
6-74 
#6-61 
#6-61 
#6-61 
#6-61 
6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 


6-61 
6-63 

6-63 


6-61 
7-169 


6-8 


6-75 


6-63 


7-159 


7-183 
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Table  ot  contents 


fi- 

5A 

MACROS 

7- 

81 

LOCAL  DATA 

8- 

107 

ERROR  MESSAGES 

4- 

12A 

SET  EXECUTOR  ON 

10- 

300 

FNDPLI  -  GET  PLI'S  PDV  IMDEX 

NT 
S> 


Er 


Wc 
Wc 
Si 
Si 
Of 

El 
Si 
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Symbol  table 

000404 


Nl 
DL 


DATA         000366 
Errors    detected: 


001 
002 
0 


(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


*•*   Assembler   statistics 

Work      file     reads:  123 

Work      file  writes:  126 

Size  of  work   file:  29428  Words      (   115  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 
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310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

3A1 

342 

343 

3A4 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

558 

359 

360 

361 

362 

363 

364 

365 

366 


.SBTTL      DLMSET   -   SET  UP   COUNTER  BLOCK   FIELDS   FOR  DLM  CIRCUITS 


DLMSET   -   SET   UP   COUNTER   BLOCK   FIELDS   FOR  DLM   CIRCUITS 

INPUTS: 

STAADD  -  ADDRESS  OF  STATION  TABLE 

RO  -  XPT'S  PDV  ADDRESS 

R2  -  ADDRESS  OF  REVERSE  MAPPING  TABLE  ENTRY 

DLM  FLAGS  AND  SVC  DESCRIPTOR  ADDRESS  OR  PORT  NUMBER  (PVC)  STORED 

IN  COUNTER  BLOCK 
COUNTER  BLOCK  IS  ALLOCATED  IF  IT  DOES  NOT  ALREADY  EXIST 


.IF  NDF  R$$11S 


DLMSET: 

SWSTKS  60$ 

MOV  (R2),R4 

MOV  aPSIPT,R2 

BNE  10$ 

RETC  R2 

BR  60$ 

10$:    MOV  R0,fi3 

ADD  #Z.MAP,R3 

CLR  -(SP) 

MOVB  R4,CSP) 

ASL  (SP) 

ADD  (SP)+,R3 

MOV  (R3),R4 

SAVMAP 

MOV  Z.DAT(RO),RO 

MAP  N$TLCt2(R0) 

MOV  N$TLC(RC),R3 

MOV  N$TLC+4(R0),R0 

BIAS  RO 

20$:    TST  (RO) 

BMI  30$ 

CMP  R4,(R0) 

BED  30$ 

ADD  #T$LLEN,RO 

SOB  R3,20$ 

BR  50$  ,, 

30$:    BIS  #PX$DLM,T$FLAG(RO) 

BITB  #SF.SVC,SSTAADD  ; ; 

BEQ  50$  ;; 

BIS  #PX$SVC,T$FLAG(RO) 

SAVMAP 

ADD  #H$SVC.R2 

40$:    MOV  (R2),R2 

BEO  45$ 

MOV  R2,-(SP) 

CALL  aCEACC 

MOV  (SP)+,R? 

CMP6  S$CTL(R2),CTLNUM 


ENTER  SYSTEM  STATE 

GET  CHANNEL  NUMBER  AND  PDV 

GET  POINTER  TO  PSl  HOME  BLOCK 

BR  IF  HOME  BLOCK  EXISTS 

ELSE  SET  USER  C-BIT 

AND  EXIT 

POINT  TO  XPT'S  PDV 

POINT  TO  FORWARD  MAPPING 

GET  CHANNEL  NUMBER 

MAKE  IT  A  WORD  INDEX 

POINT  TO  SLN  AND  STATION  NUMBER 

GET  SLN  AND  STATION  NUMBER 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  XPT'S  DDB 

MAP  TO  CIRCUIT  COUNTERS 

GET  NUMBER  OF  COUNTERS 

GET  ADDRESS  OF  FIRST  COUNTER  BLOCK 

BIAS  COUNTER  BLOCK  ADDRESS 

HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 

BR  IF  NO  -  USE  IT 

ELSE  IS  THIS  THE  CORRECT  ENTRY? 

BR  If    YES 

POINT  TO  NEXT  COUNTER  BLOCK 

CHECK  ALL  COUNTER  BLOCKS 

EXIT 

;;  SET  FLAG  TO  INDICATE  DLM 

IS  THIS  AN  SVC? 

BR  IF  NO 

;;  ELSE  INDICATE  SVC 

SAVE  CURRENT  MAPPING 

GET  FIRST  SVC  DESCRIPTOR  ADDRESS 

GET  NEXT  BLOCK  IN  LIST 

BR  IF  NOT  FOUND 

GET  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

RETRIEVE  MAPPED  ADDRESS 

IS  THIS  THE  CORRECT  SVC  DESCRIPTOR? 
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5^ 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
n   000000 

73  000000 

74  000000 

75  000000 

76  000000 

77  000000 

78  000000 

79  000000 

80  000000 

81  000000 
82 


.SBTTL  MACRO  DEFINITIONS 


MACRO  CALLS 

.MCALL 
.MCALL 
.MCALL 
.MCALL 
.MCALL 


EMS6$,NTLER$,QJ0W$S,EX]T$S,ASTX$S,WTS£$S,WS1G$S,CLEF$S 

DIR$,CLEF$S,SETF$S,SRDA$S,RCVD$,SDAT$,RQST$,DSAR$S,ENAR$S 

CCeDF$,NHUDF$,NrLDF$,PDVDF$,SLTDF$,OPTDF$,MAP,CALLX,CALLR 

SDAT$S,EI»ISG$R,RCVX$,RETC,MRKT$,VECDF$ 

SCSDr$,PCBDF$,TC8DF$,SAVMAP,RESMAP 


.IF  OF  R$$MPL 
.MCALL  GiN$ 
.ENDC 


CONSTANTS  AND  OFFSETS 


NTLDFS 
CCBDFS 
OPTDFS 
PDVDFS 
SLTDFI 
NHWDFS 
PCBDFS 
SC8DF$ 
TCBDFS 
VECDFS 


<:>,<=>, NTLSVM 


NTL  REQ.  BLOCK  AND  SYMBOLS  (GLOBALLY) 

CCB  OFFSETS 

COMM/EXEC  OPTIONS  WORD 

PDV  OFFSETS 

SLT  OFFSETS 

HARDUARE    OFFSETS 

PARTITION   CONTROL   BLOCK   OFFSETS 

UMR  BLOCK   0,D 

TCB  OFFSETS 

VECTOR  BLOCK  OFFSETS 
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568 

569 

570 

571 

572 

575 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585  000204 

005067 

000000' 

586  000210 

005067 

000002' 

587  000214 

005067 

000004' 

588  000220 

005067 

000006' 

589 

590  000224 

591  000230 

012702 

017704 

592  000234 

593  000240 

105413 

594  000242 

010267 

000000' 

595  000246 

067702 

000530' 

596  000252 

011202 

597  000254 

005762 

000012 

598  000260 

001403 

599  000262 

016267 

000016  000004' 

600 

601  000270 

012702 

114224 

602  000274 

603  000300 

103413 

604  000302 

010267 

000002' 

605  000306 

067702 

000530' 

606  000312 

011202 

607  000314 

005762 

000012 

608  000320 

001403 

609  000322 

016267 

000016  000006' 

610 

611  000330 

.SBTTL  FIND  PDV  INDICES  OF  NSP  PROCESSES  (ECL  AND  XPT) 

VnDPDV  -  FIND  PDV  INDICES  OF  NSP  PROCESSES  (ECL  AND  XPTJ 

SCAN  THE  PDV  INDEX  TABLE  FOR  PROCESSES  WITH  THE  NAMES  'ECL'  AND  'XPT' 
AND  SAVE  THEIR  RESPECTIVE  PDV  INDICES  AND  DATA  BASE  ADDRESSES. 

INPUTS: 

NONE 

OUTPUTS: 

INIECL  --^  ECL  PDV  INDEX  OR  ZERO 

SDBECL  =  ADDRESS  OF  ECL'S  DDB  OR  ZERO 

SNIXPT  =  XPT  PDV  INDEX  OR  ZERO 

SDBXPT  =  ADDRESS  OF  XPT'S  DDB  OR  ZERO 


FNDPDV: 


10$: 


20$: 


CLR 

$NIECL 

CLR 

$NIXPT 

CLR 

$D8ECL 

CLR 

$D8XPT 

SWSTK$ 

20$ 

MOV 

#»RECL,R2 

CALL 

aPDVlD 

BCS 

10$ 

MOV 

R2,$NIECL 

ADD 

aPDVTA,R2 

MOV 

(R2),R2 

TST 

Z.PCB(R2) 

BED 

10$ 

MOV 

Z.DAT(R2),$DBECL 

MOV 

#"RXPT,R2 

CALL 

aPDVID 

BCS 

20$ 

MOV 

R2,$NIXPT 

ADD 

aPDVTA,R2 
(R2J,R^ 

MOV 

TST 

Z.PCB(R2) 

BEQ 

20$ 

MOV 

Z.DAT(R2), SDBXPT 

RETURN 


ASSUME  ECL  AND  XPT 

ARE  NOT  IN  THE  SYSTEM 


ENTER  SYSTEM  STATE 
LOOK  FOR  ECL'S  PDV 

IF'cS,  NOT  FOUND 

SAVE  ECL'S  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  ECL'S  PDV 

IS  THE  PROCESS  LOADED? 

IF  EQ,  NO 

SAVE  ADDRESS  OF  ECL'S  DATABASE 

LOOK  FOR  XPT'S  PDV 

IF'cS,  not  FOUND 

SAVE  XPT'S  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  XPT'S  PDV 

IS  THE  PROCESS  LOADED? 

IF   EQ,    NO 

SAVE  ADDRESS   OF    XPT'S   DATABASE 
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SYMBOL  VALUE 


L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

MPAR 

MPCSR 

MRKTEF 

H$$MGE 

M.KTEF 

NTIERB 

NTIERN 

NTIGRQ 

NTINIT 

NTIRCX 

NTLPT 

PDVIO 

PDVNM 

PDVTA 

PIRQ 

PMODE 

PRO 

PR1 

PR2 

PR3 

PR4 

PR  5 

PR6 

PR7 

PS 

PSIPT 

PUMR 

QASTT 

R$$MPL 

R$$11D 

R$$11M 

R$$11S 

R.Q5TN 
R.VXTN 
SF.ACT 


000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

OOOOU 

000021 

000013 

172100 

177746 

000001 

000000 
:  000002 

000137  R 

000124  R 

000006  R 

000000  R 

000016  R 

000470  RG 

000522  RG 

000520  RG 

000530  RG 
:  177772 
:  030000 
=  000000 
=  000040 
:  000100 
:  000140 
=  000200 
=  000240 
=  000300 
=  000340 
=  177776 

000506  RG 

000442  RG 

000450  RG 


000000 
000001 


000002 
000002 
000200 


REFERENCES 

#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-76 
#6-77 
#6-77 
#7-108 

6-77 

7-109 
#8-165 
#8-164 
#10-355 
#9-284 
#7-104 
#8-234 
#8-247 
#8-246 
#8-250 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#6-77 
#8-241 
#8-218 
#8-221 

6-65 

6-75 

6-75 
#4-2 

10-422 

7-110 

7-104 
#6-76 


7-109 

14-669 
14-688 

18-881 
9-309 

13-592 

13-595 


10-402 
14-689 

13-602 
13-605 


6-77 
6-77 

6-75 
10-438 


6-77 


7-115 
12-554 


6-77 


8-189 
16-760 


7-90 


9-297 
17-794 


8-206 


10-356 
18-847 


8-228  9-285  11-481 

10-364  10-392  10-408 
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ABTIM  = 

AS$CHK= 

A$$CPS= 

A$$PR!= 

A$$TRP= 

BUFUMP= 

CLINS 

CLKHD  = 

CMODE  = 

Ct$CK;P  = 

C$$ORE= 

C$$RSH= 

C.AR5 

CAST 

C.CSTP= 

COST 

C.EFN 

C.LGrH= 

C.LNK 

C.MRKT= 

C.ROT 

C.RSI 

C.SCHD= 


♦**♦♦•  GX 

000000 

000000 

000000 

000000 

17235'i 

000162R 

«**♦*»  GX 

HOOOO 

000000 

000400 

177564 

00001 4 

000012 

000012 

000016 

000003 

000020 

000000 

000000 

000002 

000012 

000002 


C.SRC 

C.SSHT= 

C.SUB 

C.SYST= 

C.SYTK= 

C.TCB 

C.TIM 

C.UIC 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

KISAR0= 

KISAR6= 


000014 
000004 
000012 
000006 
000010 
000004 
000006 
000016 
177514 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
172340 
172354 


K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$nR= 
MPAR  = 
MPCSR  = 
M$JCRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MDV= 


177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
172100 
177746 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 


N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO   = 

PRl 

PR2 

PR3   = 

PR4 

PR5   = 

PR6   = 

PR7   = 

PS 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

SWR   = 


000001 
000001 

Mim 

030000 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000001 
177570 


S$$WRG= 

S$$YSZ= 

TIFLG 

TKPS  = 

TK100  = 

TPS   = 

T$$KMG= 

T$$MIN= 

T1 

T1SCL  = 

T1SIN 

T100C  - 

T100Q  = 

T5 

T50IN 

UBMPR  = 

UISARO= 

UISAR1= 

V$$CTR= 

X$$DBT= 

SNITIM 

.BASEB= 


000000 
007600 
OOOOOOR 


GX 
GX 


GX 


****** 
****** 
177564 
000000 
000000 
000002 

****** 

000116R 

******  GX 

******  GX 

000001 

0001 30R 

170200 

177640 

177642 

001000 

000000 

000002RG 

140000 


.  ABS.  000020 
000250 
Errors  cietecteO: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


*♦*  Assembler  statistics 


0 

0 

10026  Wo'-ds 

14440  Words 

RSX-11M/PLUS 


Work  file  reads: 
Work  f i le  writes: 
Size  of  work  file; 
Size  of  core  pool : 
Operating  system: 

SY:NT!TIMlTs!v2?n32?134WTITIM11S/CR/-SP=SY:[1,l]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,101RSXMCM/PA:l,C132,10]V2,NTITlM 


(  40  Pages) 
(  55  Pages) 


MTtTTMIIC        rDCATCri    DV       MATDn       HM    30-IIIM-R5    AT    0^!^^ 


PAGF    1 


I  11 


♦  »F1LE«MD"CFEC0M 


H  12 


CC.CCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

CCCCCCCC 

000000 

MM     MM 

CCCCCCCC   F 

FFFFF^FFF 

EEEEEEEEEE 

CCCCCCCC 

000000 

MM      MM 

CC          F 

EE 

00 

00 

MMMM  MMMM 

CC          F 

EE 

00 

00 

MMMM  MMMM 

CC          F 

EE 

00 

00 

MM  MM  MM 

CC          F 

EE 

00 

00 

MM  MM  MM 

CC          F 

FFFFFFF 

EEEEEEEE 

00 

00 

MM     MM 

CC           F 

FFFFFFF 

EEEEEEEE 

00 

00 

MM     MM 

CC           F 

EE 

00 

00 

MM     MM 

CC           F 

EE 

'i' 

00 

00 

MM     MM 

CC           F 

EE 

''c 

00 

00 

MM     MM 

CC           F 

EE 

00 

00 

MM     MM 

CCCCCCCC   F 

EEEEEEEEEE 

CCCCCCCC 

000000 

MM     MM 

CCCCCCCC   F 

EEEEEEEEEE 

CCCCCCCC 

000000 

MM        MM 

LL 

SSSSSSSS 

TTTTTl 

:ttt 

LL 

ssssssss 

TTTTT 

nil 

LL 

ss 

Tl 

-L 

" 

Tl 

.L 

ji 

n 

-L 

ss 

T 

LL 

ssssss 

Tl 

LL 

ssssss 

T 

LL 

ss 

T 

LL 

ss 

■ 

lL 

ss 

■ 

LL 

ss 

T 

LLLLLLLLlL 

ssssssss 

7 

LLLLLLLLLL 

ssssssss 

T 

I  12 

OQ-  i,,.,_si^  n/. .";/. 
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55 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94  000000 

95  000000 

96  000002 

97  000004 

98  000006 

99  000010 

100  000012 

101  000014 

102  000016 

103  000020 

104  000022 

105  000024 

106  000026 

107  000030 

108  000032 
109 


**** 
LOCAL  MACROS 
**** 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPfiINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><rRO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

.MCALL  CALLR 


■  **** 

■  LOCAL  DATA 


OOOOOOG 
OOOOOOG 
000264' 
001174' 
OOOOOOG 
000536' 
OOOOOOG 
000622' 
000632' 
001226' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


;  DEFINE  THE  DISPATCH  TABLE 
DSPTBL: 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.WORD 

SSEREM 

"DEFINE 

.WORD 

SSEPRO 

"DEFINE 

.WORD 

SETEXE 

"DEFINE 

.WORD 

SETSYS 

"DEFINE 

.WORD 

SSEOBJ 

"DEFINE 

.WORD 

SETLIN 

"DEFINE 

.WORD 

SSELOG 

"DEFINE 

.WORD 

SETCIR 

"DEFINE 

.WORD 

SETKNC 

"DEFINE 

.WORD 

SETXPR 

"DEFINE 

.WORD 

SSEXSV 

"DEFINE 

.WORD 

SSEXAC 

"DEFINE 

.WORD 

SSEX29 

"DEFINE 

.WORD 

SSESNA 

"DEFINE 

NODE"  REQUEST 
PROCESS"  REQUEST 
EXECUTOR"  REQUEST 
SYSTEM"  REQUEST 
OBJECT"  REQUEST 
LINE"  REQUEST 
LOGGING"  REQUEST 
CIRCUIT"  REQUEST 
KNOWN  CIRCUITS"  REQUEST 
MODULE  X25-PROTOCOL" 
MODULE  X25-SERVER" 
MODULE  X25-ACCESS" 
MODULE  X29-SERVER" 
MODULE  SNA-PROTOCOL" 


A  f  ri(-\  K,r\c     n7u 


I  13 

^  D  c  n  /  .  t:  t; 


D  -,  ^  «  /  _  1 


H  H 


CFEDEf 

CREATED   BY 

MACRO     ON  2^ 

-JUN-85   AT 

04:55 

PAGE    1 

SYMBOL 

•ROSS  REFERENCE 

CREf        04.00 

SYMBOL 

VALUE 

REFERENCES 

CS.THl 

- 

t***** 

GX 

6-185 

6-193 

6-206 

6-222 

CS.TLO 

- 

*♦♦♦*■* 

GX 

6-185 

6-195 

6-206 

6-218 

C.STS 

r 

*  t*  ** t 

GX 

6-184 

»6-206 

♦6-218 

♦6-222 

DSPTSL 

000000 

R 

#A-94 

5-137 

ERRIGR 

000115 

R 

#4-116 

8-324 

ERRIWC 

00003A 

R 

#4-115 

8-321 

ERRPSl 

000170 

R 

#4-117 

6-230 

8-327 

12-448 

EXSERR 

:; 

000002 

#4-113 

4-115 

4-116 

4-117 

E2.NSP 

r 

****** 

GX 

6-161 

E2.R0U 

= 

****** 

GX 

6-154 

FL.CRE 

r 

****** 

GX 

8-302 

FL.PVC 

= 

****** 

GX 

8-304 

8-307 

FL.X25 

:; 

****** 

GX 

8-298 

OC.APR 

= 

GX 

8-290 

8-305 

8-309 

OC.CNT 

- 

****** 

GX 

9-350 

OC.CST 

=; 

****** 

GX 

8-290 

10-386 

OC.CTM 

r 

****** 

GX 

8-296 

OC.DTE 

- 

****** 

GX 

8-296 

OC.HTM 

= 

****** 

GX 

8-290 

10-386 

10-390 

OC.MBL 

= 

****** 

GX 

8-296 

OC.MWI 

r 

****** 

GX 

8-296 

OC.MXR 

= 

****** 

GX 

8-290 

OC.NWC 

- 

GX 

8-282 

OC.PVC 

r 

****** 

GX 

8-296 

8-309 

OC.RPR 

- 

****** 

GX 

8-290 

OC.SLT 

- 

****** 

GX 

9-347 

OC.STA 

= 

****** 

GX 

8-290 

10-386 

10-390 

DC. SVC 

- 

****** 

GX 

8-296 

8-305 

OC.TRI 

=: 

****** 

GX 

8-305 

8-309 

OC.UNT 

= 

****** 

GX 

9-354 

10-387 

OE.NOD 

= 

****** 

GX 

6-165 

OE.NSP 

r 

****** 

GX 

6-159 

OE.ROU 

= 

****** 

GX 

6-152 

OE.SUB 

- 

****** 

GX 

6-169 

OL.CNT 

= 

****** 

GX 

7-249 

OL.SLT 

= 

****** 

GX 

7-246 

OL.UNT 

- 

****** 

GX 

7-253 

OL.X25 

= 

****** 

GX 

7-256 

OS.BUf 

r 

****** 

GX 

11-415 

OS.PRT 

~ 

****** 

GX 

11-412 

PSSNAH 

= 

****** 

GX 

.12-435 

♦  12-4  36 

PSSTHl 

- 

****** 

GX 

*6-221 

PSSTLO 

= 

****** 

GX 

6-199 

♦6-217 

SETCIR 

000622 

R 

4-102 

#8-276 

SETEXE 

00026A 

fi 

4-97 

#6-151 

SETKNC 

000632 

R 

4-103 

#8-281 

SETLIN 

000536 

R 

4-100 

#7-245 

SETPVC 

ooino 

R 

8-284 

8-306 

#10-375 

SETSVr 

001116 

R 

8-285 

8-310 

#10-377 

SETSYS 

001 17A 

R 

4-98 

#11-411 

SETTRN 

001030 

R 

8-291 

8-297 

#9-344 

SETXPR 

001226 

R 

4-104 

#12-430 

OO-  li  iM_ot;    AT   r\/.  •  ^^ 


I  u 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
6^. 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 

n 

78 
79 
80 
81 
82 
83 
8^ 
85 
86 
87 


88  000000 

89 

90  000160 

000005 

000174' 

000166 

000201 ' 

000012 

91 

92  0001 7A 

IK 

102 

000177 

060 

072 

93 

000005 

9^, 

95  000201 

133 

061 

000204 

062 

135 

96 

000005 

97 

98  000206 

116 

105 

000211 

110 

11A 

0002U 

056 

125 

000217 

102 

99 

000012 

100 

101 

000005 
000206' 

060 


054 


124 
120 
114 


•  ♦  *  *  * 

■  LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRJNT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 


TEXT,RO 

ICfERR 
ERRORS 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


■*■*[** 

;  MACRO  CALLS 


.MCALL   DIR$,HLPOFS,CALLR 


LOCAL  DATA 


HELP  FILE    DEFINITION 


DATSET: 

DEVA: 
DEVL  = 
UICA: 
UICL  = 
FILA: 

FILL  = 


HLPDFS 
.WORD 

.ASCII 
.-DEVA 
.ASCII 
.-UICA 
.ASCI! 

.-FILA 
.EVEN 


6,2,2,<CFE>,,DArSET,,<CFE> 
DEVL, DEVA, UICL, UICA, FILL, FILA 

/L800:/ 
/[1, 2]/ 
/NETHLP.ULB/ 


I  15 

oc  n/ . cc 


H  16 

CFEIMP  -  SYMBOL  DEFINITIONS  AND  MACRO  V05.0?b  Saturday  29-Jun-85  0^:55 
GLOBAL  DATA 


237 

21?, 

259 

2A0 

2A1 

2« 

2A3  001722 

2^4 

2^.5 

2^.6 

2^7 

248 

249 

250 

251 

252 

253 

25A 

255 

256 

257 

258 

259  001724 

260  001724 

261  001726 

262  001754 

263  001756 

264  002004 

265  002006 

266  002010 

267  002012 

268  002014 

269  002016 

270  002020 

271  002022 

272  002024 

273  002025 

274  002026 

275  002027 
276 

277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 


001574' 
001570' 
001620' 
001564' 
001560' 
001556" 

001602' 
001616' 
001556' 
001564' 
001576' 
001576' 
001562' 
001602' 
001540' 
001560' 
001550' 
001620' 
001570' 
001542" 
001550' 


001724' 
001734' 
001744" 
001754' 
001764' 
001774' 


001622' 
001624" 


$cr 

=  SCOPES 

$CHN 

=  SDPR 

$HTM 

=  SVLVL 

$MBL 

=  SPOLNA 

$MRC 

=  SSCSR 

$MWI 

=  SNN 

$RTM:: 

.BLKW 

$HBr 

=  STNUM 

$RTC 

=  SEVBEf. 

$WSZ 

=  SNN 

$8SZ 

=  SPOLNA 

$CUC 

=  STNAH 

SCALT   = 

=  STNAM 

$CLT 

=  SLINKS 

$DFD 

=  STNUM 

$DFW 

=  SSTAN 

$MXC 

=  SSCSR 

$MRE 

=  SVEC 

SRET 

=  SVLVL 

$MXR 

=  SDPR 

$MC] 

=  SNODNA 

$NUM 

=  SVEC 

$mm 

.BLKW 

$CLM: 

.BLKW 
.BLKW 

1. 

$CLV: 

.BLKW 

1. 

SSUBI 

:  .BLKW 

$SUB2 

:  .BLKW 

SEAMA) 

::.BLKW 

SEACO. 

i::.BLKW 

SEAHOI 

'::.BLKW 

SEBRT 

:  .BLKW 

SEBEA 

:  .BLKW 

SESEG 

:  .BLKW 

SEINA 

:  .BLK8 

SEINC 

:  .BLK8 

SEOUT 

:  .BLKB 

SERET 

:  .BLKB 

■  SNA 

-Pi<ur0C0L  OPTIONS  — 

isciR 

:  ==  $CLM-2 

SSACM 

1  ==  $sc;rc 

HO 

SSPLU 

==  SSACNM 

MO 

SSMOD 

==  SSPLU^ 

0 

SSUID 

==  SSMOD t 

0 

SSPSW 

==  $5UID+ 

0 

==  SSPSWt 

10 

;  SNA 

-PROTOCOL  OPTIONS  — 

iSLUC 

r  ==  SID 

SSLUS 

==   SSLUCT 

t2 

Page  7-2 


COUNTER  TIMER 

CHANNEL  NUMBER 

HELLO  TIMER 

MAXIMUM  BLOCK 

MAXIMUM  RECALLS 

MAXIMUM  WINDOW 

RECALL  TIMER/ROUTING  TIMER 

HOLDBACK  TIMER 

MAXIMUM  RETRANSMITS 

MAXIMUM  WINDOW 

MAXIMUM  BLOCK 

CLOSED  USER  GROUP 

CALL  TIMER 

CLEAR  TIMER 

DEFAULT  DATA 

DEFAULT  WINDOW 

MAXIMUM  CLEARS 

MAXIMUM  RESETS 

RESET  TIMER 

MAXIMUM  RESTARTS 

MAXIMUM  CIRCUITS 

GROUP  NUMBER 

NETWORK  NAME 

LENGTH  WORD 

CALL  MASK 

LENGTH  WORD 

CALL  VALUE 

LOW  SUBADDRESS 

HIGH  SUBADDRESS 

MAX  AREA      (EXEC) 

AREA  MAX  COST  (EXEC) 

AREA  MAX  HOPS  (EXEC) 

BROADCAST  ROUTING  TIMER 

BROADCAST  ENDNODE  ADJACENCIES  (EXEC) 

ECL  SEGMENT  SIZE  (EXEC) 

INACTIVITY  TIMER 

INCOMING  TIMER 

OUTGOING  TIMER 

RETRANSMIT  FACTOR 


—  OVERLAYING  PSl  CALL  MASK  AND  CALL  VALUE  AREA 


CIRCUIT  NAME  (8  BYTES) 
ACCESS  NAME  (8  BYTES) 
PLU  NAME  (8  BYTES) 
MODE  TABLE  (8  BYTES) 
USER  ID  (8  BYTES) 
PASSWORD  (8  BYTES) 
4  SPARE  BYTES 


;  SLU  RANGE  COUNT  (1  WORD) 
;  SLU  LIST  (16  WORDS) 

SNA-PROTOCOL  OPTIONS  --  OVERLAYING  SVEC  TO  STNUM  INCLUSIVE 


I  16 

, Qc  n/  .  cc 


n,««  7_7 


NT!  JMR  CREATED  B^      MACRO 

SYMBOL    CROSS   REFERENCE 
SYMBOL      VALUE 


M.BFVH  000011 

M.BFVL  000012 

M.UMRA  000002 

M.UMRN  000004 

SNIUMR  000000  RG 


REFERENCES 

6-87 
6-86 
6-88 
6-89 
#6-8A 

ON  29-JUN-85  AT   03:28 


6-90 


I      1 

PAGE   1 

CREF       04.00 


N' 

m; 

M; 

Al 
C/ 
C/ 
Dl 

d: 

El 
El 
HI 
Nl 
Nl 
K 
01 
PI 
Rl 
Rl 
Rl 
Rl 
R' 
5- 
SI 
U^ 
V 


NTIUMR 


CREATED  BY  MACRO  ON  29-JUN-85  AT  03:28 


PAGE  2 


J  1 


NTIX25  CREATED  BY     MACRO     ON  29-JUN-85   AT   03:29 

MACRO   CROSS   REFERENCE 


I    2 

PAGE   3 

CREF       04.00 


MACRO  NAME 

REFERENCES 

ALUN$ 

*5-57 

6-S9 

CALL 

7-U7 

7-K8 

7-162 

CALLR 

7-185 

3CBDF$ 

#5-57 

5-63^ 

)IRS 

#5-56 

7-125 

7-156 

:MSG$ 

#5-56 

EMSGSR 

#5-56 

7-187 

7-188 

HDRDFS 

#5-57 

5-65 

NHWDFS 

#5-56 

5-59 

>JSFDF$ 

#5-5^ 

5-61 

NTLERS 

#5-56 

6-95 

6-96 

OFF$ 

#6-88 

#6-89 

PDVDFS 

#5-57 

5-60 

RESMAP 

#5-56 

RETC 

#5-56 

7-165 

RETURN 

7-151 

7-168 

7-175 

RUNS 

#5-56 

6-88 

R50$ 

#6-88 

6-88 

SAVMAP 

#5-56 

SWSTKS 

7-1. '.7 

7-162 

7-184 

UCBDFS 

#5-57 

5-64 

VCBDFS 

#5-5:- 

5-62 

7-163 


7-189 


6-97 


7-171 


7-184 


J     2 
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SYMBOL    CROSS   REFERENCE 
SYMBOL      VALUE 


I    3 

PAGE   1 

CREF       O'^.OO 


BUFUMP 

CMODE 

FC.PCT 

FNDPDV 

FS.INl 

INIFUN 

I$$AS 

KISARO 

KISAR6 

KSAR6 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LLCAL 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.lEN 

L.MPF 


=  17235A 

=  UOOOO 

=  000030 

=  ****** 

=  000000 
000000  R 

=  ****** 

=  172340 
=  172354 

=  ****** 

=  100000 
=  000400 
=  000007 
=  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 

-  ****** 

=  000000 

=  000005 

=  000004 

=  000003 

=  000003 

=  000001 

=  000000 

=  000004 

=  000001 

=:  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000015 

000012 

1 77776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 


GX 


GX 


GX 


REFERENCES 

#6-74 
#6-74 

6-94 

8-188 

6-94 
#6-94 

6-74 
#6-74 
#6-74 

8-228 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 

e-207 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 
#6-73 


8-205 
6-75 


NTlCEXns     CREATED  BY     MACRO     ON  29-JUN-85   AT   03:30  PAGE   2 


J    3 


L 


NTICSRi 

IS 

CREATED  BY 

M;,''R0     cm  29 

-JUN-85 

AT   03:30           PA 

SYMBOL 

CROSS  REFERENCE 

CR 

SYMBOL 

VALUE 

REFERENCES 

ZF.LLC 

- 

000004 

#6-63 

ZF.LMC 

~ 

000100 

#6-63 

ZF.MAN 

~ 

020000 

#6-63 

ZF.MFL 

- 

000010 

#6-63 

ZF.MTM 

r 

000400 

#6-63 

ZF.MUX 

- 

000040 

#6-63 

ZF.PSE 

- 

002000 

#6-63 

ZF.SLl 

~ 

010000 

#6-63 

ZF.TIM 

= 

000200 

#6-63 

ZF.X3P 

r 

000000 

#6-63 

ZS.ASN 

:z 

100000 

#6-63 

ZS.BSY 

:: 

140000 

#6-63 

Z.AVL 

000014 

#6-63 

Z.DAT 

000016 

#6-63 

Z.DSP 

000000 

#6-63 

6-63 

Z.FLG 

000010 

#6-63 

Z.LEN 

= 

000016 

#6-63 

Z.LLN 

000006 

#6-63 

Z.MAP 

000020 

#6-63 

Z.NAM 

000004 

#6-63 

7-165 

Z.PC8 

000012 

#6-63 

Z.SCH 

000007 

#6-63 

$ERR20 

000020 

RG 

#6-88 

7-189 

SNERDM 

- 

****** 

GX 

6-88 

SNICSR 

000000 

RG 

#7-117 

SNIERA 

^ 

****** 

GX 

*7-185 

*7-186 

•7-188 

$NIERR 

r. 

****** 

GX 

6-88 

$$$GLB 

- 

****** 

6-74 

6-75 

.BASEB 

140000 

#6-61 

7-121 

7-127 

I     4 


04.00 


Nl 


7-129 


7-130 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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51 
52 


.TITLE  NTILON  -  NTINIT  'EXECUTOR  ON'  ROUTINE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  "SET  EXECUTOR  STATE  ON"  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE6-78 

VERSION  2.0  RELEASE 

2.00     14-DEC-79 

DECNET-11i"1/S  V3.0 
DECNET-11M-PLUS   VI. 0 

3.00     16-APR-82 

DECNET-11M   V3.1 
DECNET-11M-PLUS   VI. 1 

4.00     07-NOV-83 

DECNET-HM  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 
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PAGE   1 

CREF        04.00 


Nl 
DL 


SYMBOL      VALUE 


REFERENCES 


ALOCB 

=    *.«♦**      GX 

9-254 

AREAMK 

=  176000 

#7-86 

ASSIGN 

000036  R 

#7-105 

A. LULU 

^  000002 

7-105 

3UFUMP 

=  172354 

#6-66 

CMODE 

=  140000 

#6-66 

)ECPT 

=   »*.*»»     GX 

9-157 

)$NBRA 

000054 

9-247 

)$NLN 

000030 

♦9-158 

E$NBR 

000014 

#6-71 

ESNBS 

000020 

#6-71 

:$NCR 

000034 

#6-71 

ESNCS 

000036 

#6-71 

E$NIC 

000044 

#6-71 

ESNLEN 

000050 

#6-71 

ESNLLA 

000012 

#6-71 

ESNLNK 

000000 

#6-71 

E$NML 

000040 

#6-71 

E$NMR 

000024 

#6-71 

E$NMS 

000030 

#6-71 

ESNNOD 

000002 

#6-71 

ESNRT 

000042 

#6-71 

ESNRTP 

000005 

#6-71 

ESNSEG 

000010 

#6-71 

ESNTIM 

000046 

#6-71 

ESNUSE 

000004 

#6-71 

ESSTRT 

000006 

#6-71 

FNDPDV 

=   »»♦»**      GX 

9-141 

HEADR 

=   *««»»♦     GX 

9-164 

H.LUN 

000076 

9-165 

I$$AS 

-      *t**** 

6-66 

KISARO 

=   172340 

#6-66 

KISAR6 

=   172354 

#6-66 

LONACP 

000010  R 

#7-104 

LVL1 

=  002000 

#7-87 

MPAR 

=   172100 

#6-66 

MPCSR 

=   177746 

#6-66 

M$$MGE 

=  000000 

6-66 

NFSMOU 

=  000040 

9-272 

NF.END 

=  000200 

9-175 

NF.LV2 

=  000100 

9-181 

N$FLG 

000005 

9-272 

NSPRI 

000076 

*9-262 

PDVTA 

r   *»»*.*      GX 

9-155 

PIRQ 

=    U777Z 

#6-66 

PMODE 

=  030000 

#6-66 

PRO 

=  000000 

#6-66 

PR1 

=  000040 

#6-66 

PR2 

=  000100 

#6-66 

PR  3 

:^  000140 

#6-66 

PR4 

=  000200 

#6-66 

PR  5 

=^  000240 

#6-66 

9-150 


9-246 
9-249 


6-70 
9-265 


_J 
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NTIMFE  - 
DLMSET  - 

367 
368 
369 
370 
371 
372 
373 
37^ 
375 
376 
377 
378 
379 


I     7 

DO  MARKED-F0R-ENA8LE    S  MACRO  V05.03b  Wednesday  2A-Jul-85   15:52 
SET   UP   COUNTER  BLOCK    FIELDS   FOR   DLM  CIRCUITS 


BNE 

40$ 

CMPB 

S$STA(R2),STANUM 

BNE 

40$ 

MOV 

aKSAR6,R3 

45$: 

RESMAP 

MOV 

R3,T$SVC(R0) 

MOV 

R2,T$SVC+2(R0)  ; 

50$: 

RESMAP 

60$: 

RETURN 

Page  9-1 


BR  IF  NO,  TRY  NEXT  ONE 
IS  THIS  THE  CORRECT  ONE? 
8R  IF  NO,  TRY  NEXT  ONE 
GET  APR  BIAS  OF  SVC  DESCRIPTOR  BLOCK 
RESTORE  PREVIOUS  MAPPING 
STORE  APR  BIAS  OF  SVC  DESCRIPTOR  BLOCK 
STORE  VIRTUAL  ADDRESS  OF  SVC  BLOCK 
RESTORE  PREVIOUS  MAPPING 


000001 


.ENDC 
.END 
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LOCAL  DATA 
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I  8 


8A 

85 

86 

87 

88  000000 

89 

90 

91 

92 

93 

94 

95 

96 

97  000000 

98  000002 

99  000004 
100  000006 
101 

102  000010 
103 

104  000016 

105  000026 

106  000032 
107 

108  000001 

109  000070 

110  000102 
111 

112  000120 

113  000122 
11A 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 


.SBTTL  LOCAL  DATA 


LOCAL  DATA 

.PSECT  DATA.D 

.IF  Df  R$$MPL 

.IF  NDF  R$$PR0 

TRNVEC:  GINS  GI . VEC,EXEVEC,VECLN 

VECLHD:  .WORD  0 

.ENDC 

.ENDC 


SNIECL: 
SNIXPT: 
SDBECL: 
SDBXPT: 

:.BLKW 
:.BLKW 
;.BLKW 
:.8LKW 

SNIERA: 

:.BLKW 

3 

NTIRCX: 
SNIRTN: 
SNIRDB: 

RCVXS 
:.8LKW 
:.BLKW 

•SNIRTN 
15. 

SNIMRK: 
SNIEVC: 

MRKTEF 
MRKTS 
:RQSTS 

=  1 
MRKTEF, 2, 2 
EVC... 

SNIAST: 
SNIPRM: 

.BLKW 
.BLKW 

1 
1 

NTIRCV: 

.IF  NDF 
RCVDS 

RSS11S 
.SNIRTN 

SNIRNL. 
SNISNL. 
SNTLFC. 

:RQSTS 
:SDAT$ 

:.blk;w 

NTL... 

NTL SNTLFC 

NTISEN 
SNIFNC 
NTIBSY 
NTIBSC 

:SDATS 

:.8LKW 

SDATS 

.WORD 

XXXXXX, SNIFNC 

3 

XXXXXX, NTIBSC 

IE. ACT 

SNIFLG 

:.W0RD 

0 

.IFF 

;NDF  RSS11S 

.IF  DF 

SSSBAS 

NTISEN 
SNIFNC 

SDATS 
:.BLKW 

XXXXXX, SNIFNC 
3 

.-HOLDS  PDV  INDEX  FOR  ECL 

; HOLDS  PDV  INDEX  FOR  XPT 

.-HOLDS  ADDRESS  OF  ECL'S  DDB 

.■HOLDS  ADDRESS  OF  XPT'S  DDB 

.-ERROR  REPORT  ROUTINE  ARGUMENT  WORDS 

.-DIRECTIVE  TO  RCV  INTO  "SNIRTN"  OR  EXIT 
.-REQUESTORS  TASK  NAME  tFOLLOW  BY  SNIRDB) 
;RCV  DATA  BLOCK  (PRECEED  BY  SNIRTN) 

.-EVENT  FLAG  FOR  MARK  TIME 
.-MARK  TIME  TO  WAIT  FOR  EVL 
.-DIRECTIVE  TO  REQUEST  EVENT  COLLECTOR 

/NOTIFICATION  AST  ADDRESS 
.-NOTIFICATION  AST  PARAMETER  TO  RETURN 


DIRECTIVE  TO  RCV  DATA  INTO  "SNIRTN" 

DIRECTIVE  TO  REQUEST  NTL 
DIRECTIVE  TO  SEND  "SNTLFC"  TO  NTL 
NTL  FUNCTION  CODE  AND  ANSWER 

DIRECTIVE  TO  SEND  DATA  FROM  "SNIFNC" 
FUNCTION  REQUEST  SAVE  WORD 
DIRECTIVE  TO  SEND  DATA  FROM  "NTIBSC" 
FAILURE  CODE.  NTI  ALREADY  BUSY 

FLAGS  WORD 

LOW  BYTE:   NON-ZERO  =  BUSY  W/  FUNCTION 

HIGH  BYTE:  FUNCTION-SPECIFIC  FLAGS 


.-DIRECTIVE  TO  SEND  DATA  FROM  "SNIFNC 
/FUNCTION  REQUEST  SAVE  WORD 


THIS  TABLE  MAPS  THE  NTINIT  ERROR  MESSAGES  TO  IHE  DECIMAL  NUMBER  TO 
BE  DISPLAYED  ON  THE  LEDS  FOR  SERVER  BASE  SYSTEMS 
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613 

61A 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 


.SBTTL  ERROR  MESSAGE  PROCESSOR 

SNIERR  -  FORMAT  AND  PRINT  AN  ERROR  MESSAGE 

THIS  ROUTINE  DOES  NOT  NOU  SUPPORT  SECOND  LINE  FORMATTING  AND/OR  PRINTING 

INPUTS; 

SNIERA  =  ARGUMENTS  FOR  ASTERISK  REPLACER  (IF  ONE  SPECIFIED) 
RO      =  ADDRESS  OF  SECOND  WORD  OF  ERROR  CONTROL  BLOCK 
BLOCK  FORMAT 


.UORD 
.WORD 
.WORD 
.UORD 
.ASCI2 


A 

0 

B  OR  0 

0 

/MESS/ 


ADDRESS  OF  ERROR  PROCESSOR  (SNIERR) 
ADDRESS  OF  FORMAT  STRING  (NOT  USED) 
ADDRESS  OF  ASTERISK  REPLACEMENT  ROUTINE 
ADDRESS  OF  SECOND  LINE  FORMATTER  (NOT  USED) 
ERROR  MESSAGE 


000332  010146 

000334  010246 

000336  010346 

000340  010446 

000342  010546 


OUTPUTS: 

MESSAGE  IS  PRINTED, 
RO  IS  DESTROYED 
CARRY  IS  SET 


$NIERR::MOV  R1,-(SP) 

MOV  R2,-(SP) 

MOV  R3,-(SP) 

MOV  R4,-(SP) 

MOV  R5,-(SP) 


.IF  DF   S$$BAS 


10$: 


TST 
MOV 
MOV 
CMP 
BEQ 
CMP 
BEQ 
TST 
BR 


-(RO) 

*ERRTAB,R1 

(R1)+,R2 

R2,#TABEND 

30i 

R2,R0 

20l 

(R1)  + 

10$ 


FOUND  CORRECT  ENTRY 
J0$:    MOV     (R1)+,R1 


000344  010005 

000346  012700  000137' 


SWSTK$ 
CALL 


END  OF  TABLE 
50$: 

.IFF 

MOV 
MOV 


30$ 
SHALT 


;DF  S$$BAS 

R0,R5 
*NTIERB,R0 


EXCEPT  FOR  SERVER  BASE  WHEN  EXEC  SHALT  ROUTINE  USED 


SAVE  R1 
SAVE  R2 
SAVE  R3 
SAVE  R4 
SAVE  R5 


POINT  TO  FIRST  WORD  IN  FORMAT  BLOCK 

POINT  TO  ERROR  TABLE 

GET  NEXT  ENTRY  IN  TABLE  (FORMAT  ADDRESS) 

END  OF  TABLE? 

BR   IF   END   OF    TABLE 

IS   THIS   THE   CORRECT   ENTRY? 

BR   IF    YES 

SKIP  LED  ERROR  CODE 

CONTINUE 


;GET  LED  ERROR  CODE 

ENTER  SYSTEM  STATE  TO  HALT  PROCESSOR 
JUMP  TO  ROUTINE  TO  HALT  PROCESSOR 
AND  DISPLAY  ERROR  -  NEVER  RETURNS! 1 


;END  OF  TABLE  -  IGNORE  ERROR 


;COPY  ADDRESS  IN  ERROR  BLOCK 
.-GET  ADDRESS  OF  MESSAGE  BUFFER 


NTINIT  MACRO  V05.03b  Thursday  05-SeD-85  11:09  Page  14-1 


J  9 


NTIN1T11S  CREATED  BY  MACRO  ON  5-SEP-85  AT  11:10 
SYMBOL  CROSS  REFERENCE 


I  10 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

SF.ENA 

=  000100 

#6- 

76 

SF.LPB 

=  000004 

#6- 

76 

SF.MFL 

=  000040 

#6- 

76 

SF.PAC 

=  000020 

#6- 

76 

SF.REA 

=  000010 

#6- 

76 

SF.SER 

=  000001 

#6- 

76 

SF.SVC 

=  000002 

#6- 

76 

SF.UNL 

=  000040 

#6- 

76 

SLTMA 

000464 

RG 

#8- 

232 

SLTNM 

000466 

RG 

#8- 

233 

SRSTD 

000434 

RG 

#8- 

215 

SWR 

=  177570 

#6- 

77 

S$$BAS 

=  ****** 

7- 

132     8-192 

8-192 

8-193 

8-193 

1C 

-407    10-452 

14-642 

15-711 

18-848 

S.COST 

000001 

#6- 

76 

S.FLG 

000000 

#6- 

76 

S.LEN 

000004 

#6- 

76 

S.NMST 

000002 

#6- 

76 

S.OUNR 

000003 

#6- 

76 

TKPS 

000454 

RG 

#8- 

-223 

TKTCB 

000446 

RG 

#8- 

■220     10-411 

TK100 

000500 

RG 

#8- 

■238 

TPS 

=  177564 

#6- 

■77 

T.NAM 

000006 

*10-413 

T.5T2 

000034 

*10-412 

T1SCL 

000512 

RG 

#8- 

■243 

T100C 

000474 

RG 

#8- 

-236 

T100Q 

000476 

RG 

#8- 

-237 

T2.FXD 

=  002000 

10-412 

UBMPR 

=  170200 

#6- 

■77 

UISARO 

=  177640 

#6- 

-77 

UISAR1 

=  177642 

#6- 

-77 

UMRPT 

000432 

RG 

#8- 

■2\l. 

VECLN 

=  000043 

G 

#8 

-252 

X$$MCB 

-   ****** 

6 

-75      6-75 

ZF.COU 

=  001000 

#6 

-75 

ZF.DDM 

=  000001 

#6 

-75 

ZF.DIA 

=  004000 

#6 

-75 

ZF.DLC 

=  000002 

*6 

-75 

ZF.DVP 

=  100000 

*6 

-75 

ZF.INI 

=  040000 

#6 

-75 

ZF.KMX 

=  000020 

#6 

-75 

ZF.LLC 

=  000004 

»6 

-75 

ZF.LMC 

=  000100 

#6 

-75 

ZF.MAN 

=  020000 

#6 

-75 

ZF.MFL 

=  000010 

#6 

-75 

ZF.MTM 

=  000400 

#6 

-75 

ZF.MUX 

=  000040 

#6 

-75 

ZF.PSE 

=  002000 

#6 

-75 

ZF.SLI 

=  010000 

#6 

-75 

ZF.TIM 

=  000200 

#6 

-75 

ZF.X3P 

=  000000 

#6 

-75 

8-194 


8-194 


9-312 


10-373 
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CREF   04.00 


SYMBOL  VALUE 


ABTIM 

BUFUMP 

CLINS 

CLKHD 

CMODE 

C.TIM 

I$$AS 

KISARO 

k;isar6 

MPAR 

MPCSR 

M$$MGE 

PIRO 

PMODE 

PRO 

PR1 

PR2 

PR3 

PRA 

PR5 

PR6 

PR7 

PS 

R$$MPL 

R$$11D 

R$$11S 

SWR 

TIFLG 

T<PS 


=  ****** 
=  172354 
000162  R 

=  140000 
000006 

-   1,  *♦*  »  t 

=  172340 
=  172354 
=  172100 
=  177746 
=  000000 
=  177772 
=  030000 
=  000000 
=  000040 
=  000100 
=  000140 
=  000200 
=  000240 
=  000300 
=  000340 
=  177776 
=  ****** 
=  ****** 
=  000001 
=  177570 
000000 
=  ****** 


GX 


GX 


GX 


REFERENCES 

9-178 
#6-62 

8-152 

7-94 
#6-62 

9-186 

6-62 
#6-62 
#6-62 
#6-62 
#6-62 

6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 
#6-62 

6-62 

6-62 
#4-2 
#6-62 
#6-72 

8-143 


#9-173 
9-182 

9-189 


7-98 

♦  7-98 

6-62 


»7-103 


*7-111 
6-62 


♦7-108 


10-198 

7-112  7-115 


TKIOO 

=    ******      GX 

8-149 

TPS 

=    177564 

#6-62 

T1 

=  000002 

#6-70 

7-108 

7-115 

T1SCL 

=    ******     GX 

7-106 

8-142 

TISIN 

000116  R 

7-117 

#8-141 

T100C 

=   ******      GX 

7-101 

8-148 

T100Q 

=    »**♦**      GX 

8-146 

T5 

=  000001 

#6-69 

7-103 

7-112 

T50IN 

000130  R 

7-114 

#8-145 

UBMPR 

=   170200 

#6-62 

UISARO 

=   177640 

#6-62 

UISARI 

=   177642 

#6-62 

SNITIM 

000002  RG 

#7-94 

.BA5EB 

=   140000 

#6-62 
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5-  109 

6-  172 


SCFCOM  -  GET  A  COMMAND  LINE 

SCLERR  -  CLEAR  ERROR  MESSAGE  ADDRESS 
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CFEDEF  -  PROCESS  DEFINE  COMMAND  MACRO  V05.03b  Saturday  29-Jun-85 


I  13 

0A:5 


110 

• 

111 

;  ERROR 

TEXT 

112 

113 

000002 

EXSERR 

=  2 

IK 

.NLIST 

BEX 

115  00003A 

002 

103 

106 

ERRIWC: 

.ASCJZ 

<EX$ERR;'/CfE 

116  000115 

002 

103 

106 

ERRIGR: 

.ASCIZ 

<EX$ERR>/CFE 

117  000170 

002 

103 

106 

ERRPSI: 

.ASCIZ 

<EX$ERR>/CFE 

118 

.EVEN 

119 

.LIST 

BEX 

120 

5  Page  1-1 


Parameter  illegal  for  wildcard  operation/ 
Parameter  illegal  for  circuit  type/ 
Parameter  applicable  to  PSI  systems  only/ 


rccrMir     _     DDnrccc     nCtlTMC     rnMMAMh     MArOn     \ir\^     rtXW     ^at-iirH:i\ 
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pa-  ii,n-R5    ni^SS 


Panp    S 
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CREf       04.00 


SYMBOL 

VALUE 

REFERENCES 

SW.SLT 

; 

****** 

GX 

9-345 

WC.CIR 

= 

****** 

GX 

8-276 

XP.CUG 

r 

****** 

GX 

12-440 

XP.DTE 

- 

****** 

GX 

12-437 

XP.KND 

= 

****** 

GX 

12-437 

XP.KNG 

- 

****** 

GX 

12-440 

XP.LV3 

= 

****** 

GX 

12-443 

XP.NNA 

r 

****** 

GX 

12-433 

SCFDEf 

000252 

RG 

#5-134 

tCFERR 

r 

****** 

GX 

6-230 

8-321 

8-324 

8-327 

12-448 

SCOMP 

- 

****** 

GX 

5-135 

tESUB 

- 

****** 

GX 

6-186 

6-187 

SFLAGS 

- 

****** 

GX 

8-298 

8-302 

*8-304 

8-307 

$NNAM 

- 

****** 

GX 

12-435 

12-436 

iOPRND 

- 

****** 

GX 

6-152 

6-159 

6-165 

6-169 

7-246 

7-249 

7-253 

7-256 

8-282 

•8-290 

8-315 

9-347 

9-350 

9-354 

10-385 

*10-386 

10-387 

10-390 

*10-393 

11-412 

11-415 

12-433 

12-437 

12-440 

12-443 

$0PRN2 

= 

****** 

GX 

6-154 

6-161 

SPSIPT 

r 

****** 

GX 

6-182 

8-300 

12-431 

SSEBUF 

r 

****** 

GX 

11-417 

SSECNT 

:: 

****** 

GX 

7-251 

9-352 

SSECUG 

= 

****** 

GX 

12-442 

SSEDTE 

- 

****** 

GX 

12-439 

SSELOG 

= 

****** 

GX 

4-101 

SSENOD 

= 

****** 

GX 

6-167 

SSENSP 

r 

****** 

GX 

6-163 

SSEOBJ 

= 

****** 

GX 

4-99 

SSEPAR 

- 

****** 

GX 

11-414 

SSEPRO 

~ 

****** 

GX 

4-96 

SSEPVC 

= 

****** 

GX 

10-375 

SSEREM 

= 

****** 

GX 

4-95 

SSEROU 

= 

****** 

GX 

6-156 

SSESLT 

- 

****** 

GX 

7-248 

9-349 

10-392 

SSESNA 

- 

****** 

GX 

4-108 

SSESVC 

- 

****** 

GX 

10-377 

SSEUNT 

- 

****** 

GX 

7-255 

9-356 

10-389 

SSEXAC 

~ 

****** 

GX 

4-106 

SSEXSV 

- 

****** 

GX 

4-105 

$SEX2P 

:r 

GX 

7-258 

$SEX29 

= 

****** 

GX 

4-107 

$SEX3P 

- 

*  ^*  *  +  * 

GX 

12-445 

SSWICH 

- 

****** 

GX 

9-345 

SWILD 

= 

****** 

GX 

8-276 

rDCATcrs  Qv 


iM-B";  AT  ni-';'; 
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._J 


CFEHLP  - 
SCFHLP  - 

105 
104 
105 
106 
107 
108 
109 
110 
111 
112 
11? 
IK 
115 
116 
117 
118 
119 
120 


HEIP  ROUIINE  FOR  CFE   MA'RO  V05.03b  Saturday  29-Jun-85 
PROCESS  HELP  COMMAND 


1  15 

W:5 


5  Page  5 


.SBTTL   SCFHLP  -  PROCESS  HELP  COMMAND 

**♦  -  SCFHLP  -  PROCESS  HELP  COMMAND 

INPUTS: 

NONE 

OUTPUTS: 

HELP  TEXT  PRINTED 


000220 

000220  016704  OOOOOOG 

000224 


000001 


SCFHLf-:: 


MOV     $CMDPr,R4 
CALLR   SHELP 


.END 


POINT  AT  LINE  AFTER  "HELP' 
PRINT  HELP  INFO 


nn  iiAC  r\Tl,     c ,  *. 
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«_Qc:  r\/.  .  c:c: 


CFEIMP  -  SYMBOL  DEFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85 
GLOBAL  DATA 


tsDAT   ==  SVEC 


iJt 


5  Page  7-3 


29^ 

295 

001550' 

296 

297 

298 

299 

00172A' 

300 

00173V 

301 

0017'.',' 

302 

001746' 

305 

001750' 

30A 

001754' 

305 

306 

307 

308 

309 

001552' 

310 

001554' 

311 

001556' 

312 

001562' 

313 

001564' 

3H 

001574' 

315 

001604' 

316 

001620' 

317 

001657' 

318 

001716' 

319 

001755- 

320 

002014' 

321 

002053' 

322 

323  002030 

324 

325 

USER  DATA  STRING  (33  BYTES  ASCIZ) 


SNA  PU  OPTIONS  ~  OVERLAYING  PSI  CALL  MASK  AND  VALUE  AREA 


iSPUNM 

SSPARE 

SSNLU 

SSNSID 

SSSERN 

SSSSCP 


$ClM-2 

$SPUNM+10 

$SPARE+10 

$SNLUt2 

$SNSlDt2 

$SSERNt4 

$SSSCP+20 


CIRCUIT  NAME  (8  BYTES)  -  SAME 
SPARE  -  FOR  FMTLIN  WORK  SPACE 
MAXIMUM  LU  COUNT  (1  WORD) 
SSCP  ID  COUNT  (1  WORD) 
SDLC  SERIAL  NUMBER  (2  WORDS) 
SSCP  IDENT  LIST  (8  WORDS) 
4  SPARE  WORDS 


AS  SSCIRC 
(8  BYTES) 


REMOTE  NODE  OPTIONS  -  OVERLAYS  EVERYTHING  FOLLOWING  $VEC 


iRNHOS 
SRNSDV 
SRNDPA 
SRNDCP 
$RNSCI 
SRNHAR 
$RNSPA 
SRNSLO 
SRNTLO 
SRNLOD 
$RNDIA 
SRNDMP 
SRNXXX 


$VEC+2 

$RNH0St2 

$RNSDV+2 

$RNDPAt4 

$RNDCP+2 

SRNSCI+IO 

SRNHAR* 10 

$RNSPA+U 

$RNSL0+31. 

$RNTL0+31. 

$RNL0D+31. 

$RNDIA*31. 

$RNDMPt31. 


;Host  node  address 

;Seruice  dei/ice 

;Dump  address 

;Dump  count 

.■Service  circuit 

.-Hardware  address 

.-Service  password 

.-Secondary  loader  file 

.-Tertiary  loader  file 

.-Load  file 

.-Diagnostics  file 

.-Dump  file 

.--end  of  remote  node  options- 


.IIF  LT  <.-$RNXXX>   .BLKB  <$RNXXX-.> 

.EVEN  ;  PHEW 


MA  rnn 


J  16 
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r 


NTIUMR  CREATED  BY     MACRO     ON  29-JUN-85  AT   03:28 

MACRO  CROSS  REFERENCE 
MACRO  NAME  REFERENCES 


J      1 

PAGE   2 

CREf       0^.00 


RETURN 
SCBDF$ 


6-100 


5-61 


•«FILE«*ID'«NT1X25 


K     1 


J     2 


NNN 

NNN 

ITTTTTT 

TTTTTTTT 

nil 

nn 

1 

ssssssssssss 

NNN 

NNN 

TTTTTTT 

TTTTTTTT 

nil 

nn 

ssssssssssss 

NNN 

NNN 

TTTTTTT 

TTTTTTT!" 

im 

jni 

ssssssssssss 

NNN 

NNN 

TT 

, 

J 

1111 

1111 

sss 

NNN 

NNN 

TT 

. 

1111 

1111 

sss 

NNN 

NNN 

TT 

1111 

nil 

sss 

NNNNNN 

NNN 

TT 

. 

sss 

NNNNNN 

NNN 

T 

. 

sss 

NNNNNN 

NNN 

T 

sss 

NNN   NNN 

NNN 

TT 

sssssssss 

NNN   NNN 

NNN 

TT 

I 

sssssssss 

NNN   NNN 

NNN 

TT 

I 

sssssssss 

NNN 

■JNNNNN 

TT 

J 

sss 

NNN 

NNNNNN 

TT 

I 

sss 

NNN 

MNNNNN 

TT 

1 

sss 

NNN 

NNN 

TT 

sss 

NNN 

NNN 

TT 

sss 

NNN 

NNN 

TT 

i 

SS" 

NNN 

NNN 

TT 

ini 

ini 

1111 

1111 

1111 

1111 

ssssssssssss 

NNN 

NNN 

TT 

nil 

ini 

1111 

nil 

1111 

nil 

ssssssssssss 

NNN 

NNN 

TT 

nn 

nni 

nil 

11111 

1111 

11111 

ssssssssssss 

K     2 
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NTKEX11S     CREATED  BY     MACRO     ON  29-JUN-85   AT  03:30 
SYMBOL    CROSS   REFERENCE 


J     3 

PAGE   2 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

L.NMST 

000020 

#6-73 

L.NSTA 

OOOOU 

#6-73 

L.OUNR 

000021 

#6-73 

L.UNT 

000013 

#6-73 

MPAR 

=  172100 

#6-74 

MPCSR 

=  177746 

#6-74 

M$$EXT 

=  000000 

G 

#6-78              8-23( 

M$$MGE 

=  000000 

6-74 

NTILIN 

000000 

RG 

#8-188 

NTLPT 

=   ****** 

GX 

8-228 

PDVID 

r  ****** 

GX 

8-204 

PDVNH 

-  ****** 

GX 

8-191 

POVTA 

=  ****** 

GX 

8-190 

PIRQ 

=   177772 

#6-74 

PMODE 

=  030000 

#6-74 

PRO 

=  000000 

#6-74 

PR1 

=  000040 

#6-74 

PR2 

=  000100 

#6-74 

PR3 

=  000140 

#6-74 

PR4 

=  000200 

#6-74 

PR5 

=  000240 

#6-74 

PR6 

=  000300 

#6-74 

PR7 

=  000340 

#6-74 

PS 

=  177776 

#6-74 

PUMR 

-   ****** 

GX 

8-260 

R$$MPL 

r  ****** 

6-67              6-74 
9-300 

R$$11D 

=  ****** 

6-74               6-75 

R$$11M 

=  000000 

6-75 

R$$11S 

=  000001 

#4-2                 6-75 

SF.ACT 

=  000200 

#6-73 

SF.ENA 

=  000100 

#6-73 

SF.LPB 

=  000004 

#6-73 

SF.MFL 

=  000040 

#6-73 

SF.PAC 

=  000020 

#6-73 

SF.REA 

=  000010 

#6-73 

SF.SER 

=  000001 

#6-73 

SF.SVC 

=  000002 

#6-73 

SF.UNL 

=  000040 

#6-73 

SWR 

=  177S70 

#6-74 

S.C05T 

000001 

#6-73 

S.FLG 

000000 

#6-73 

S.LEN 

000004 

#6-73 

S.NMST 

000002 

#6-73 

S.OWNR 

000003 

#6-73 

TP5 

=  177564 

#6-74 

HBMPR 

-  170200 

#6-74 

UISARO 

=   177640 

#6-74 

U I  SARI 

=   177642 

#6-74 

UMRPT 

-   ****** 

GX 

8-246 

X$$HCB 

z:     ****** 

6-75               6-75 

ZF.COU 

=  001000 

#6-75 

8-237 


6-74 


6-74 


6-96 


8-222 


8-242 


8-254 


8-273 


7-135  8-216 


NTlCEXllS      CREATED   BY      MACRO     ON   29-JUN-85    AT   03:30 


PAGE   3 


K     3 


L 


NTICSRllS 

CREATED  BY  MACRO  ON  29- 

-JUN-85  AT  03:30 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

CALL 

7-123 

7-189 

DIRS 

#6-59 

7-U9 

7-151 

EMSGS 

#6-59 

7-189 

NHWDFS 

#6-59 

6-61 

NTLERS 

#6-50 

6-88 

OFF$ 

#6-74 

#6-75 

PDVDFS 

#6-59 

6-63 

RESRG 

#6-59 

7-190 

7-198 

RETURN 

7-143 

7-199 

SAVRG 

#6-59 

7-119 

7-161 

SLTDFS 

#6-59 

6-62 

SVTKS 

#6-59 

6-74 

6-75 

SWST<$ 

7-123 

J   1^ 

PAGE  4 

CREF       04.00 


M/ 


♦♦F1LE*«ID»»NTIDLI 


K     4 


[ 


NTILON  - 

NTINIT 

MACROS 

54 

55 

56 

57 

58 

59 

60 

61 

62 

61 

6A 

65 

000000 

66 

000000 

67 

000000 

68 

000000 

69 

000000 

70 

000000 

71 

000000 

72 

000000 

73 

000000 

74 

oooooc 

75 

000000 

76 

000000 

77 

000000 

78 

000000 

79 

000000 

'EXECUTOR  ON'  R  MACRO  V05.O3b  Saturday  29-Jun-85  03:31  Page  6 

.SBTTL  MACROS 


LIBRARY  MACROS 

.MCALL  DIRS. RUNS, EHSG$,EMSG$R,NTLER$,NHWDF$,RETC,WSIG$S 

.MCALL  ALUNS,PLBDFS,XPDDB$,ECDD8S,PDVDFS,CTRDFS, MAP, BIAS 

.MCALL  RESMAP,SAVHAP,ADJDF$,NSFDFS,CALLX,CACDF$,DHBDFS 

.MCALL  DVBDFS,[)CBDF$,UCBDF$,HDRDFS,CCBDF$ 

CCBDFS  ;DEFINE  FUNCTION  CODE  SYMBOLS 

NHWDFS  .-HARDWARE  REGISTER  DEFINITIONS 

PLBDFS  .-DEFINE  PLB  OFFSETS 

XPDDBS  .-DEFINE  TRANSPORT  DATABASE  OFFSETS 

ECDDBS  .-DEFINE  ECL  DATABASE  OFFSETS 

PDVDFS  .-DEFINE  PDV  TABLE  OFFSETS 

CTRDFS  ,-DEFINE  NSP  COUNTER  OFFSETS 

NSFDFS  .-DEFINE  NETWORK  FLAGS 

ADJDFS  .-DEFINE  ADJACENCY  DATA  BASE  OFFSETS 

CACDFS  .-DEFINE  NI  CACHE  DATA  BASE  OFFSETS 

DH8DFS  .-DEFINE  DECNET  HOME  BLOCK  OFFSETS 

DVBDFS  ;VCB  DEFINITIONS 

DCBDFS  .-DCB  DEFINITIONS 

UC8DFS  ,-UCB  DEFINITIONS 

HDRDFS  .-TASK  HEADER  OFFSETS 


K  5 
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NTILONHS     CREATED  BY     MACRO     ON  29-JUN-85   AT   03:31 
SYMBOL    CROSS  REFERENCE 


J    6 

PAGE   2 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

PR6 

=  000300 

#6-66 

PR7 

=  000340 

#6-66 

PS 

=   177776 

ttb-bb 

RCPINM 

000000  R 

#7-101 

9-177 

RCP2NM 

OOOOOA  R 

#7-102 

9-184 

R$$MPL 

=   ****** 

6-66 

6-66 

6-66 

9-163 

R$$11D 

=  ****** 

6-66 

6-70 

R$S11M 

=  000000 

6-70 

R$$11S 

=  000001 

#4-2 

6-70 

7-96 

9-198 

R.UNTN 

=  000002 

7-104 

SRSTD 

=  **>««*     GX 

9-178 

9-185 

SWR 

=    177570 

#6-66 

S$$BAS 

r     ****** 

8-112 
8-116 

8-112 

8-113 

8-113 

TPS 

=  177564 

#6-66 

TSFLAG 

000044 

#6-71 

TSLIF 

000013 

#6-71 

TSLIFL 

000013 

#6-71 

TSLIFO 

000013 

#6-71 

TSLIFS 

000013 

#6-71 

T$LIN 

000000 

#6-71 

T$LIPS 

000006 

#6-71 

TSLLD 

000012 

#6-71 

TSLLDC 

000045 

#6-71 

TSLLDL 

000012 

#6-71 

TSLLDO 

000012 

#6-71 

TSLLDS 

000012 

#6-71 

TSLLEN 

000046 

#6-71 

TSLOPR 

000002 

#6-71 

TILTCL 

000024 

#6-71 

TSLTIM 

000026 

#6-71 

T$LTPR 

000014 

#6-71 

TSLTPS 

000020 

#6-71 

TSNAPL 

000004 

#6-71 

TSNFE 

000000 

#6-71 

TSNLEN 

000010 

#6-71 

TSNNUL 

000002 

#6-71 

TSNOPL 

000006 

#6-71 

TSNRNI 

000042 

#6-71 

TSNRPL 

000005 

#6-71 

TSNRUL 

000007 

#6-71 

T$NVR 

000001 

#6-71 

r 

TSRPRI 

000040 

#6-71 

T$SVC 

000034 

#6-71 

T$T5 

000030 

#6-71 

T$T6 

000032 

#6-71 

UBMPR 

=  170200 

#6-66 

UISARO 

=   177640 

#6-66 

UISAR1 

=--   177642 

#6-66 

U.CW3 

000014 

9-174 

X$$MCB 

-      *♦♦*** 

6-70 

6-70 

ZF.COU 

=  001000 

#6-70 

9-283 


8-114 


10-313 


8-114 


8-115 


8-115 


8-116 


MTU  ONUS      CREATED   BY      MACRO      ON   29-JUN-85    AT   03:31 
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NTlMfE  -  DO  MARKED-FOR-ENABLE  S  MACRO  V05.03b  Wednesday  24-JuL-85  15:52 
Symbol  table 
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ACTCIR 

AT$ACL= 

AT$ADN= 

AT$AUP= 

ATSCYC= 

AT$LV1= 

AT$LV2= 

AT$NEX= 

AT$UP  = 

AtCIR 

ASLEN 

ASNID 

A$TM 

A$TMI 

A$TSZ 

ASTVP 

A$$CHK= 

A$$CPS= 

At$PRI= 

A$$TRP= 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBGT  = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CMN= 

CF.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CM.CIR= 

CM.FMT= 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO- 


OOOOOAR 

000100 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

**»*♦*  GX 

000200 
100362 
100346 
100566 
100370 
100350 
100356 
100372 
100361 
100376 
100364 
100352 
100354 
100374 
100344 
000001 
000004 
000020 
100000 
000002 
000010 
000040 
000100 
000002 
100000 
000002 
000000 
000001 
000004 


CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PSI= 
CP.XCF= 
CP.2FR= 
C5.A80= 
CS.BRO= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 
CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 
CS.ROV= 
CS.RSN= 
CS.SHU= 
CS.SID= 
CS.STR= 

rs.suc= 

CS.TM0= 

CS.XUR= 

CTLNUM 

C$$CKP= 

C$$aRE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 

c.auFi 

C.BUF2 

C.CNT 

C.CNT1 

C.CNT2 

C.FLG 

C.FLG1 

C.FLG2 

C.FNC 

C.LIN 

C.LNK 

C.MOD 

C.NSP 

C.PRO 

C.R5V 

C.STA 

C.STS 


000040 

C.URM 

177776 

000007 

C.XACP 

000004 

177400 

C.XID 

000035 

000200 

C.XLEN 

000044 

000100 

C.XPLI 

000040 

000030 

C.XPT 

000034 

000100 

C.XSVC 

000042 

000002 

C.XTC 

000037 

000200 

C.X25 

000036 

000002 

DECPT  = 

*»»***  GX 

000010 

DSAMXC 

000072 

000200 

DSAMXH 

000074 

000400 

D$ANN 

000000 

000004 

DSBRPR 

000102 

000002 

DSBRTM 

000100 

000040 

DSDELF 

000045 

000001 

DSDELW 

000046 

000020 

D$END  = 

000104 

100000 

D$FNB 

000034 

001000 

DSHIOR 

000024 

000001 

DSHOST 

000022 

002000 

DSINAC 

000044 

040000 

D$INCT 

000042 

004000 

D$IPL 

000051 

000010 

DSLID 

000020 

000004 

DSLNAM 

000006 

010000 

DSLNUM 

000014 

000001 

D$LST 

000047 

000002 

DSMAXC 

000064 

000004 

DSMAXH 

000066 

000001 

DSMAXV 

000070 

020000 

D$MLL 

000040 

000004 

DSMNOD 

000041 

000003R 

D$NA 

000062 

000000 

DSNBEA 

000056 

000400 

DSNBRA 

000054 

177564 

D$NEND= 

000054 

000034 

D$NLN 

000030 

000003 

DSNN 

000060 

000014 

D$OUTT 

000043 

000014 

DSRETF 

000050 

000024 

DSRNN 

000002 

000020 

DSRTMR 

000076 

000020 

D$SEG 

000036 

000030 

D$SER 

000032 

000022 

DSSQRL 

000052 

000022 

D$$BUG= 

177514 

000032 

D$$ISIC= 

000000 

000010 

D$$L11= 

000001 

000006 

D$$YNC= 

000000 

000000 

D$$VNM= 

000000 

000011 

ENAC 

000074R 

000004 

ENALIN 

000610R 

000042 

E$NBR 

000014 

000002 

ESNBS 

000020 

000007 

E$NCR 

000034 

000012 

ESNCS 

000036 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNK 

E$NML 

E$NMR 

ESNHS 

E$NN0D 

ESNRT 

ESNRTP 

ESNSEG 

ESNTJM 

ESNUSE 

ESSTRT 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.HLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FNDPDV= 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.ENB= 

FS.EX]= 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

FS.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.SPW= 

FS.STM= 


000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 

000000 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

******  GX 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 


FS.STP= 
FS.STR= 
FS.TRM= 
FS.WLB= 
FS.XKL= 
FS.XOF= 
FS.XON= 
FS.ZER= 
F$$LVL= 
G$$TPP= 
G$$TSS= 

g$$ttk;= 

G$$WRD= 

HF$DLM= 

HF$GWY= 

HF$HOS= 

HF$XDF= 

HSCUG 

HSDST 

H$D29 

H$FLG 

HSGLEN 

H$GLT 

HSGNAM 

H$GNML= 

HSGPT 

HSHITS 

HSHLEN 

HSLBDA 

HSLBDN 

HSLDTE 

HSLEN 

HSLOTS 

HSNETW 

H$NML  = 

H$NPT 

H$PTB 

H$PVC 

HSRDTE 

H$RNW 

H$SVC 

H$TRB 

HSXAVL 

H$XBIA 

H$X29C 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.ENA= 

LF.LPB= 


002000 
001000 
003000 
001000 
002000 
010000 
007000 
002000 
000001 
000000 
000000 
000000 
000000 
000002 
000010 
000004 
000020 
000010 
000012 
000014 
000000 
000104 
000044 
000050 
000020 
000046 
000034 
000044 
000070 
000072 
000002 
000042 
000032 
000024 
000006 
000022 
000020 
000006 
000004 
000042 
000036 
000016 
000100 
000074 
000040 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
100000 
000400 
000007 
002000 
001000 
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NTINl!  MACRO  V05.03b  Thursday  05-Sep-85  11:09  Page  7-1 
LOCAL  DATA 

U1 
U2 
K3 
U4 

H6 

U7 

H8 

U9 

150 

151 

152 

153  000032' 

15A 

155 

156 

157 
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RRTAB: 

.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

$ERR04,20. 

$ERR11,21. 

$ERR15,24.                            ; 

$ERR17,25. 

$ERR19,26. 

$ERR20,27. 

TABEND 

TABEND 

=  -1 

.IFF 

NIFNC 

==  $NIRD8 

.ENDC 

;DF  S$$BAS 

.ENDC 

;NDF  R$$11S 

COMM  EXEC  NOT  LOADED 

ROUTER  PRJ  DATA  BASE  ALLOCATION  FAILURE 

NS;  ASSIGNMENT  FAILURE 

NETACP  NOT  INSTALLED 

RCP  NOT  INSTALLED 

DEVICE  OFFLINE 

END  OF  TABLE 

END  OF  TABLE  CONSTANT  DEFINITION 


MTIUIT       MAfDn    un";    fl^h    Th,,rcrtav    flS-^lBn-RS     11:09       PflQP    8 
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NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:09 
ERROR  MESSAGE  PROCESSOR 


Page  H-1 
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670  000352 

671  000554 

672  000356 
673 

674  000360 

675  000362 

676  000364 

677  000370 

678  000372 

679  000374 

680  000376 

681  000400 
682 

683  000402 

684  000404 

685  000406 
686 

687  000410 

688  000412 

689  000416 
690 

691  000466 

692  000470 

693  000472 

694  000474 

695  000476 

696  000500 

697  000502 
698 

699 
700 
701 


000052 


005725 
010504 
022424 

112410 
001412 
122720 
001373 
005715 
001402 
005300 


112420 
001376 
005300 

010005 

162705  000124' 


012605 
012604 
012603 
012602 
012601 
000261 


TST 

(R5)  + 

MOV 

R5,R4 

CMP 

(Ri)+,(R4)+ 

10$: 

MOVB 

(R4)+,(R0) 

BEQ 

20$ 

CMPB 

#'*,(R0)+ 

BNE 

10$ 

TST 

(R5) 

BEQ 

15$ 

DEC 

RO 

CALL 

a(R5)+ 

15$: 

MOVB 

(R4)+,(R0)+ 

BNE 

15$ 

DEC 

RO 

20$: 

MOV 

R0,R5 

SUB 

#NTJERN,R5 

QIOW$S 

#I0.UVB,*1,/I'2 

MOV 

CSP)+,R5 

MOV 

(SP)+,R4 

MOV 

(SP)+,R3 

MOV 

(SP)+,R2 

MOV 

(SP)+,R1 

SEC 

RETURN 

.ENDC 

;DF  S$$BAS 

SKIP  ADDRESS  OF  FORMAT  STRING 
COPV  ADDRESS  AGAIN 
POINT  AT  ERROR  MESSAGE 

copy  A  BYTE  INTO  BUFFER 

BR  IF  END  OF  MESSAGE 

FOUND  AN  ASTERISK? 

BR  IF  NO 

IS  THERE  AN  ASTERISK  REPLACER? 

BR  IF  NO 

OVERWRITE  THE  ASTERISK 

CALL  THE  REPLACER 

COPY  REST  OF  MESSAGE 
UNTIL  A  NULL  BYTE 
BACK  UP  TO  NULL 

;COPY  ADDRESS  OF  END  OF  BUFFER 
.-GET  LENGTH  OF  MESSAGE 
,<#NTIERN,R5,#40> 


RECOVER  R5 
RECOVER  R4 
RECOVER  R3 
RECOVER  R2 
RECOVER  Rl 


UTIWIT       Miron    un";    nXh    Th.ircrtav    OS-spn-RS     11:09       PflQP     15 
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NTINITHS     CREATED  BY     MACRO     ON  5-SEP-85   AT   ITilO  PAGE   5 

SYMBOL   CROSS  REFERENCE  CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

ZS.ASN 

=  100000 

#6-75 

ZS.BSY 

=  140000 

#6-75 

Z.AVL 

0000 1A 

#6-75 

Z.DAT 

000016 

#6-75 

13-599 

13-609 

Z.DSP 

000000 

#6-75 

6-75 

Z.FLG 

000010 

#6-75 

Z.LEN 

=  000016 

#6-75 

Z.LLN 

000006 

#6-75 

Z.MAP 

000020 

#6-75 

Z.NAM 

000004 

#6-75 

Z.PCB 

000012 

#6-75 

13-597 

13-607 

Z.SCH 

000007 

#6-75 

SABTIM 

=  **t*** 

GX 

8-224 

SALOCB 

-  ****** 

GX 

8-216 

SCALLX 

=  ****** 

GX 

8-235 

SCBDMG 

=  ****** 

GX 

15-730 

15-742 

SCCBGT 

=  ****** 

GX 

8-239 

SCEACC 

=  ****** 

GX 

8-242 

SCLKHD 

=  ****** 

GX 

8-222 

SC5TA 

=  ****** 

GX 

15-716 

SDBECL 

000004 

RG 

#7-99 

♦13-587 

♦13-599 

SDBXPT 

000006 

RG 

#7-100 

♦13-588 

♦13-609 

SDEACB 

=      ***•*♦ 

GX 

8-217 

SDECPT 

=      ****** 

GX 

8-245 

SDEVHD 

~      ****** 

GX 

8-225 

$ERR03 

0002';6 

R 

#8-192 

io-^J§ 

SERROA 

000300 

R 

#8-193 

10-380 

$ERR12 

000336 

RG 

*8-1?4 

SFMASK 

=  ****** 

GX 

8-203 

SHEADR 

=  ****** 

GX 

8-219 

SLDPWF 

=  ****** 

GX 

8-226 

SLGSTT 

r  ****** 

GX 

8-244 

SLLCAL 

=    ****** 

GX 

8-248 

SLLCRS 

=    ****** 

GX 

8-240 

SLLCTA 

=  ****** 

GX 

8-249 

SNERDD 

000550 

RG 

#15-737 

SNERDN 

000526 

RG 

#15-726 

15-737 

$NER50 

000504 

RG 

#15-715 

15-726 

SNiAST 

000120 

R 

#7-112 

SNICEX 

r  ****** 

GX 

10-387 

SNIECL 

000000 

RG 

#7-97 

♦13-585 

♦13-594 

SNIERA 

000010 

RG 

#7-102 

15-715 

15-728 

15-738 

SNIERR 

000332 

RG 

8-192 

8-193 

8-194 

#14-636 

SNIEVC 

000102 

RG 

#7-110 

10-403 

SNIFNC 

=  000032 

RG 

#7-153 

10-361 

10-389 

10-409 

SNILON 

-  ****** 

GX 

10-404 

SNIMRK 

000070 

R 

#7-109 

10-401 

SNIPRM 

000122 

R 

#7-113 

SNIRDB 

000032 

RG 

#7-106 

7-153 

SNIRTN 

000026 

RG 

7-104 

#7-105 

SNIXPT 

000002 

RG 

#7-98 

♦13-586 

♦13-604 

SNTLPT 

-   ****** 

GX 

8-234 

♦10-434 


♦10-436 


MTrMTTIIC         TDCATCh     QV         MArDR         flM     ^-CPP-RS     AT      11-10 
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NT1T1M11S      CREATED   BY 
MACRO  CROSS   REFERENCE 


MACRO   NiAME 

REFERENCES 

CALL 

7-96 

7-1U 

CALLR 

8-15? 

CLKDfS 

#6-60 

6-63 

MIPS 

7-98 

7-111 

NHWDF$ 

#6-60 

6-62 

RETURN 

7-119 

8-153 

swstks 

?-96 

MACRO     ON  ?9-JUN-85   AT   03:33 


7-117 


J   11 
PAGE   2 

CREF       OA.OO 


9-194 
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CFECOM  -  GET  A  COMMAND  LINE     MACRO  V05.03b  Saturday  29-Jun-85  0^1:54  Page  3 


1 
? 
3 

5 

6 

7 

8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^, 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  CFECOM  -  GET  A  COMMAND  LINE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  GET  A  COMMAND  LINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-PIus  V3.0 
DECnet-Micro/RSX  Vl.O 


(Ht;  n7k  c^i-i 
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CFEDEF  - 
tCFDEF  - 

122 
12? 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13^ 
135 
136 
137 


i   13 

PROCESS  DEFINE  COMMAND  MACRO  VO5.03b  Saturday  29-Jun-85  0A:55  Page  5 
PROCESS  DEFINE  COMMAND 

.SBTTL  SCFDEF  -  PROCESS  DEFINE  COMMAND 

•♦  -  SCFDEF  -  PROCESS  DEFINE  COMMAND 


INPUT: 


SCOMP  =  THE  COMPONENT  CODES 


OUTPUT: 


CONTROL  IS  PASSED  TO  THE  PROPER  ROUTINE 


000252 

000252  016700  OOOOOOG 

000256  006300 

000260  000170  177776' 


SCFDEF: 


MOV 
ASL 
JMP 


SCOMP, RO 

RO 

aDSPTBL-2(R0) 


GET  THE  COMPONENT  CODE 
CONVERT  TO  A  WORD  INDEX 
DISPATCH  TO  PROPER  ROUTINE 


K  13 

0Q_  I. ,«•»■;  n/.  .c"; 
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CFEDEF     CREATED  BY  MACRO  ON  29-JUN-85  AT  04:55 
MACRO  CROSS  REFERENCE 
MACRO  NAME     REFERENCES 


J  H 

PAGE  3 

CREF   04.00 


CALLR 

#4-83 

8-317 

EPRINT 

#4-73 

ERROR$ 

#4-62 

6-230 

PRINT 

#4-57 

8-521 


8-324 


8-327 


12-448 
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CFEHLP  -  HELP  ROUTINE  FOR  CFE 
Symbol  table 


J  15 

MACRO  V05.03b  Saturday  29-Jun-85  0^:55  Page  5-1 


DATSET 
DEVA 
DEVI.   = 
f  ILA 
FILL   = 
N 
S.ANM1= 

.  ABS. 


000160R 

0001 /'.R 

000005 

000206R 

000012 

000003 

0000  K 


S.ANM2=  000005 

S.FDB  =  OOOUO 

S.FNAM=  000006 

S.FNB  =  000036 

S.FNBW=  " 

S.FNTY= 


000017 
000004 


S.FTYP= 

000002 

$HDFN8 

000156RG 

$HLUN2- 

000002  G 

S.NfEN= 

000020 

$HDSP 

0001 50RG 

SHMOO 

OOOOOORG 

UICA 

000201 R 

SHEFN  = 

000002  G 

SHNAME 

0001 52RG 

UICL   = 

0002§ORG 

SHELP  = 

»••♦••  GX 

$$$   = 

0000°OR 

SCFHLP 

SHFDB 

OOOOO^RG 

...PC1= 

$CMDPT= 

•*•••«  GX 

$HLUN1= 

000006  G 

...TPC= 

OOOUO 

000000 
000230 
Errors  detected: 


000 
001 
0 


(RW,l,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


••»  Assembler  statistics 

Work  tile  reads:  0 

Work   tile  writes:  0 

Size   of  work  file:  9920  Words  (  39  Pages) 

Size  of  core  pool:  U440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SyfcFEHLp!v2;[132,13A]CFEHLP/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETLI6/ML,[132,10]CFEHLP 


J 
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CfElMP 
BIT  OFF 

177 
328 
529 
330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
3A0 
3A-' 
3A2 
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•  SrMBOl  DFFINHIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85  04:55  Page  8 
IMIIONS  AND  FUNCTION  CODES 

.SBTTL  BIT  DEFINITIONS  AND  FUNCTION  CODES 

•  BIT  DEFINITIONS  AND  FUNCTION  CODES 


000000 

000000 
000002 
OOOOOA 
000006 
00205A 


000000 


•**»** 

;  LINE 

DESCRIPTOR  BLOCK 

• 

.ASECT 

.=0 

LSNAM: 

.BLKW   1 

LSCNT: 

.8LKW   1 

L$UNT: 

.BLKW   1 

L$TRI: 

.BLKW   T 

.PSECT 

DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 
TRIBUTARr  NUMBER 
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L 


•  *F1LE««ID>->NTIX25 
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NN      NN 

TTTTTTTTTT 

III 

n 

XX      XX 

222222 

5555555555 

NN      NN 

TTTTTTTTTT 

HI 

11 

XX      XX 

222222^ 

5555555555 

NN      NN 

XX      XX 

22     22 

55 

NN      NN 

XX      XX 

22     22 

55 

NNNN    NN 

XX  XX 

22 

555555 

NNNN    NN 

XX  XX 

22 

555555 

NN  NN  NN 

XX 

22 

55 

NN  NN  NN 

XX 

22 

55 

NN    NNNN 

XX   XX 

11 

55 

NN    NNNN 

XX  XX 

22 

55 

NN      NN 

XX      XX 

22 

55     55 

NN      NN 

XX      XX 

22 

55     55 

NN      NN 

I] 

II 

XX      XX 

2222222222 

555555 

NN      NN 

III 

11 

XX      XX 

2222222222 

555555 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

.)i25   -  NTINl'    'MODULE   X25-5ER  MACRO   \/C5.03b   Saturday  29-Jun-85  03:29 


[ 


•»'ILE««!D'»NT!CEX 
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NN      NN 

TTTTTTTTTT 

III 

HI 

cccccccc 

EEEEEEEEEE 

XX      XX 

NN      NN 

TTTTTTTTTT 

III 

111 

cccccccc 

EEEEEEEEEE 

XX      XX 

NN      NN 

cc 

EE 

XX      XX 

NN      NN 

cc 

EE 

XX      XX 

NNNN    NN 

cc 

EE 

XX  XX 

NNNN    NN 

cc 

EE 

XX  XX 

NN   NN  NN 

cc 

EEEEEEEE 

XX 

NN   NN  NN 

cc 

EEEEEEEE 

XX 

NN    NNNN 

cc 

EE 

XX  XX 

NN    NNNN 

cc 

EE 

XX  XX 

NN      NN 

cc 

EE 

XX      XX 

NN      NN 

cc 

EE 

XX      XX 

NN      NN 

II 

HI 

cccccccc 

EEEEEEEEEE 

XX      XX 

NN      NN 

III 

III 

cccccccc 

EEEEEEEEEE 

XX      XX 

ssssssss 

ssssssss 

in 

111 

ss 

111 

111 

ss 
ss 
ss 
ss   s 
:sssss 
ss 
ss 
ss 
ss 

111 

111 

111 

1  "  l 

ssssssss 

m 

111 

111 

111 

ssssssss 

NTKEX     MACRO  V05.03b   Saturday  29-Jun-85   03:29 
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NTICEX11S  CREATED  BY  MACRO  ON  29-JUN-85  AT  03:30 
SYMBOL  CROSS  REFERENCE 


K  3 

PAGE  3 

CREF   Ci.OO 


SYMBOL 

VALUE 

REFERENCES 

ZF.DOM 

=  000001 

#6-75 

ZF.DIA 

=  004000 

#6-75 

ZF.DLC 

=  000002 

#6-75 

ZF.DVP 

=  100000 

#6-75 

ZF.INI 

=  O'iiOOOO 

#6-75 

8-193 

ZF.KMX 

=  000020 

#6-75 

ZF.LLC 

=  000004 

#6-75 

ZF.LMC 

=  000100 

#6-75 

ZF.MAN 

^  020000 

#6-75 

ZF.MFL 

=  000010 

#6-75 

ZF.MTM 

=  000400 

#6-75 

ZF.MUX 

=  000040 

#6-75 

ZF.P5E 

=  002000 

#6-75 

ZF.SLl 

=  010000 

#6-75 

ZF.TIM 

=  000200 

#6-75 

ZF.X3P 

=  000000 

#6-75 

ZS.ASN 

=  100000 

#6-75 

ZS.BSY 

=  140000 

#6-75 

Z.AVL 

000014 

#6-75 

Z .  DAT 

000016 

#6-75 

8-197 

Z.DSP 

000000 

#6-75 

6-75, 

Z.FLG 

000010 

#6-75 

8-193 

Z.LEN 

=  000016 

#6-75 

Z.LLN 

000006 

#6-75 

Z.MAP 

000020 

#6-75 

Z.NAM 

000004 

#6-75 

8-203 

Z.PCB 

000012 

#6-75 

8-195 

Z.SCH 

000007 

#6-75 

SNICEX 

000000 

RG 

#7-135 

$NICSR 

r  ****** 

GX 

8-268 

SNIDLI 

-  ****** 

GX 

8-217 

SNITIM 

-  ****** 

GX 

8-279 

SNIUMR 

z:  ****** 

GX 

8-250 

.BASEB 

=  140000 

#6-74 

8-231 

.CXCSR 

-   ****** 

GX 

8-234 

8-234 


NTKEXllS  CREATED  BY  MACRO  ON  29-JUN-S5  AT  03:30 
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L 
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,.FILE*«ID«'NTIDLI 


N 
LI 


NN      NN 

TTTTTTTTTT 

III 

III 

DDDDDDDD 

LL 

II 

III 

NN      NN 

TTTTTTTTTT 

III 

III 

DDDDDDDD 

LL 

II 

111 

NN      NN 

DD 

DD 

LL 

I 

NN      NN 

DD 

DD 

LL 

I 

NNNN    NN 

DD 

DD 

LL 

1 

NNNN    NN 

DD 

DD 

LL 

i 

NN  NN  NN 

DD 

DD 

LL 

i 

NN  NN  NN 

DD 

DD 

LL 

J 

NN    NNNN 

DD 

DD 

LL 

1 

NN    NNNN 

DD 

DD 

LL 

1 

NN      NN 

DD 

DD 

LL 

I 

NN      NN 

DD 

DD 

LL 

1 

NN      NN 

III 

III 

DDDDDDDD 

LLLLLLLLLL 
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NTILON  -  NTINIT 
LOCAL   DATA 

81 
82 
83 
84 
85 
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.S8TTL  LOCAL  DATA 


87 

88 

89 

90 

91  000000 

92 

93 

9'!| 

95 
96 
97 
98 
99 
100 

101  000000 

102  OOOOOA 
103 

10A  000010 
105  000036 


176000 
002000 


CONSTANT  DEFINITIONS 


AREAMK 
LVLI 


=  176000 
=  2000 


LOCAL  DATA  (I/^PURE) 
.PSECT  DATA.D 


070410 
070410 


143074 
146174 


;  LOCAL 

STORAGE 

PLDADR: 
PLDLEN: 

.IF  NDF 
.BLKW 
.BLKU 
.ENDC 

R$$11S 

1 

1 

;  NDF  R$$11S 

RCP1NM: 
RCP2NM: 

.RAD50 
.RAD50 

/RCP1../ 
/fiCP2../ 

LONACP: 
ASSIGN: 

RUNS 
ALUNS 

NETACP 1 

2,NS,0 

AREA  BITS  MASK 
LEVEL  1  AREA 


PLD  DATA  BASE  ADDRESS 
LENGTH  OF  THE  PLD  DATA  BASE 


;  ROUTING  CONTROL  PROGRAM  (LEVEL  1) 
;  ROUTING  CONTROL  PROGRAM  (LEVEL  2) 

;DIRECTIVE  TO  REQUEST  NETACP 
.■ASSIGN  LUN  2  TO  NS: 
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CREf       04.00 


SYMBOL 

VALUE 

REFERENCES 

ZF.DDM 

=  000001 

#6-70 

ZF.DIA 

=  004000 

#6-70 

ZF.DLC 

=  000002 

#6-70 

2F.DVP 

=  100000 

#6-70 

ZF.INI 

=  040000 

#6-70 

ZF.KMX 

=  000020 

#6-70 

ZF.LLC 

=  000004 

#6-70 

ZF.LMC 

=  000100 

#6-70 

ZF.MAN 

=  020000 

#6-70 

ZF.MFL 

=  000010 

#6-70 

ZF.MTM 

=  000400 

#6-70 

ZF.MUX 

=  000040 

#6-70 

ZF.PSE 

=  002000 

#6-70 

ZF.SLI 

=  010000 

#6-70 

ZF.TIM 

=  000200 

#6-70 

ZF.X3P 

=  000000 

#6-70 

ZS.ASN 

=  100000 

#6-70 

ZS.BSY 

=  140000 

#6-70 

Z.AVL 

oooou 

#6-70 

Z.DAT 

000016 

#6-70 

Z.DSP 

000000 

#6-70 

6-70 

Z.FLG 

000010 

#6-70 

Z.LEN 

=  000016 

#6-70 

Z.LLN 

000006 

#6-70 

9-158 

Z.MAP 

000020 

#6-70 

Z.NAM 

000004 

#6-70 

Z.PCB 

000012 

#6-70 

Z.SCH 

000007 

#6-70 

SDBECL 

-  ****** 

GX 

9-144 

9-270 

SDSXPT 

=  ****** 

GX 

9-142 

9-196 

SERRII 

000046 

RG 

#8-112 

9-297 

$ERR15 

000136 

RG 

#8-113 

9-152 

$ERR17 

000176 

RG 

#8-114 

9-295 

$ERR18 

000252 

R 

#8-115 

9-296 

$ERR19 

000312 

RG 

#8-116 

9-195 

SNIERR 

=      **•***■* 

GX 

8-112 

8-113 

SNILON 

000000 

RG 

#9-140 

SNIMFE 

r  ****** 

GX 

9-276 

SNIXPT 

r  ****** 

GX 

9-154 

$$$GLS 

-  ****** 

7-104 

7-105 

$$$T1 

=  000002 

#7-104 

7-104 

$JST2 

=  000042 

R 

#7-105 

7-105 

.BASFB 

=  140000 

#6-66 

9-192  9-294 


8-114  8-115  8-116 


7-104  7-104  #7-105 


N 
S 

L 
L 
L 
L 
L 
L 
L 
L 
L 
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L 
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L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
I 

L 
L 
L 
L 
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L 
L 
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L 
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L 
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Symbol  table 


LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LLCRS  = 

LLCTA  = 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$CRB= 

M$$CRX= 

M$$EXT= 

M$SFCS= 

M$$MGE= 

l>1$$NET  = 

M$$OVR= 

NF$BLK= 

NF$DMO= 

NF$MOU= 

NF$R5T= 


000100 
004000 
000020 
000200 
OAOOOO 
010000 
000040 
000010 
020000 
000000 


000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000124 

000000 

000000 

000000 

000000 

000000 

000000 

000100 

000010 

000040 

000002 


GX 
GX 


NF$SCN= 

000020 

NF$SHU= 

000004 

NF$TIM= 

000200 

N$ACQ 

000000 

NSACTL 

000032 

NSADJI 

000072 

N$ADJ2 

000074 

NSCACH 

000062 

N$CIR 

000034 

NSCRC 

000120 

N$DLA 

000020 

NSDLY 

000014 

NSELEN 

000054 

NSENC 

000042 

NSERRC 

000022 

N$FLG 

000005 

N$FNC 

000006 

NSGENQ 

000052 

NSGTM 

000015 

N$HC1 

000052 

N$HC2 

000056 

NSHIGH 

000033 

NSLLT 

000026 

NSLLTM 

000024 

N$LVC 

000036 

N$LV1 

000002 

N$LV2 

000010 

NSMBXQ 

000050 

NSMHCI 

000036 

N$MHC2 

000044 

NSPLD 

000016 

NSPLLT 

000030 

N$PRI 

000076 

NSROAI 

000022 

N$R0A2 

000030 

NSRTMX 

000014 

NSRTMI 

000014 

N$RTM2 

000015 

NSRTI 

000000 

N$RT2 

000006 

N$SLA 

000016 

NSSNOD 

000012 

NSTCTL 

000112 

N$TIM 

000004 

NSTLC 

000100 

N$TNC 

000114 

N$TRC 

000106 

NSTTCB 

000110 

N$VC8 

000010 

N$VER 

000066 

NSXLEN 

000124 

N$$ACC= 

000001 

N$$BUF= 

000001 

N$$LDV= 

000001 

N$$MCP= 

000001 

N$$MLL= 

000001 

N$$MOV= 

000010 

N$$NCr= 

N$$PEM= 

PDVTA  = 

PF$BLK= 

PF$CLC= 

PF$DLM= 

PF$E]P= 

PF$ENB= 

PF$FA]= 

PF$FM1= 

PF$FM2= 

PF$OFF= 

PF$RM1= 

PF$RM2= 

PF$RVR= 

PF$S7A= 

PF$SVC= 

PFSUP  = 

PR$BED= 

PR$BEU= 

PR$BRD= 

PR$BRU= 

PR$DWN= 

PR$LCC= 

PR$P10P= 

PR$UP  = 

PS$CHR= 

PS$FAJ= 

PS$NTI= 

PS$OFF= 

PS$STR= 

PS$UP  = 

PS$VER= 

PSSUT  = 

Pr$BRO= 

PT$DRT= 

PT$END= 

PT$LV1= 

PT$LV2= 

PT$PH3= 

PT$XAR= 

PX$BLK= 

PX$DL.«1= 

PX$SVC= 

P$CHN 

P$CNT 

P$CTR 

PSDRCT 

PSDRTR 

PSFLG 

PSFWD 

PSICCB 

P$IPL 

P$LCD 

P$LEN 

P$LST 

PSNRrjI 


000001 

000001 

******  GX 

020000 

010000 

100000 

000002 

000001 

004000 

000100 

000200 

000000 

000020 

000040 

000010 

000004 

040000 

000004 

000200 

000100 

000040 

000020 

000002 

000010 

000004 

000001 

000016 

000014 

000006 

000000 

000002 

000012 

000010 

000004 

000200 

000100 

000004 

000002 

000001 

000010 

000020 

000040 

000200 

000100 

000004 

000005 

000034 

000015 

000036 

000012 

000030 

000046 

000014 

000002 

000052 

000000 

000040 


PSOCCB 

P$PFQ 

PSPKSZ 

PSRMXI 

P$RMX2 

PSRPRI 

PSRTIM 

PSSTAI 

P$STA2 

P$TIM 

PSISCT 

PSTSIZ 

P$TYP 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RF.CTL= 

RF.LD1= 

RF.LD2= 

RF.TIM= 

RF.TMO= 

RF.UFC= 

RF.WTD= 

RF.WTM= 

RF.UTS= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R$$11S= 

SF$8LK= 

SF$INC= 

SF.ACT= 

5F.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SLTNM  = 

STAADD 

STANUM 

STRT  = 

SSADSZ 

S$CTL 

S$DTE 

S$FLG 

SSLEN 

SSLFT 

SSLNK 

SSOWNR 

SSPKSZ 

S$RCL 

S$STA 


000050 

000006 

000044 

000016 

000020 

000042 

000003 

000022 

000023 

000010 

000026 

000024 

000001 

000000 

000000 

000010 

000003 

000040 

000100 

177400 

000400 

000200 

000020 

000030 

000010 

000000 

000001 

000000 

000000 

000001 

000001 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

******  GX 

OOOOOOR 

000002R 

000004 

000007 

000002 

000020 

000010 

000032 

000012 

000000 

000030 

000004 

000013 

000003 


SSTIM 

SSTMR 

S$UND 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NHST 

S.OWNR 

TMEFN  = 

TSFLAG 

T$LIF 

TSLIFL 

TtLIFO 

TSLIFS 

TSLIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNI 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

T$SVC 

T$T5 

T$T6 

T$$KMG= 

T$$M1N= 

VF$RCV= 

VF$XMT= 

V$FLG 

VSLEN 

V$RCV 

V$XMT 

V$$CTR= 

X$$DBT= 

ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 


000014 
000016 
000006 
000000 
007600 
000001 
000000 
000004 
000002 
000003 
000001 
000044 
000013 
000013 
000013 
000013 
000000 
000006 
000012 
000045 
000012 
000012 
000012 
000046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
100000 
040000 
000000 
000022 
000002 
000012 
001000 
000000 
001000 
000001 
004000 
000002 
100000 
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159 
160 
161 
162 
165 
164 


165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18^; 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19A 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 


0001 2A 
000127 
000132 
000135 
000137 


015 
111 
124 
055 


116 
116 
040 
040 


000246 
000300 
000336 


000424  000000 
000426  OOOOOOG 
000430  172354 


.S8TTL  ERROR  MESSAGES 


ERROR  MESSAGE  BUFFER 


124  NTIERN:  .ASCII  <15>/NTINIT  --  / 

111 

055 

NTIERB:  .BLKB   70. 
.EVEN 


.-MESSAGE  PREFIX  (NAME  OF  NTINIT) 


.-MESSAGE  BODY 


ERROR  MESSAGES 

MESSAGES  IN  THIS  MODULE  SHOULD  BE  NUMBERED  01  TO  09 

MESSAGES  10-11  ARE  IN  NTICEX 

MESSAGES  11-19  ARE  IN  NTILON 

MESSAGES  20-24  ARE  IN  NTICSR 

MESSAGES  25-29  ARE  IN  NTIKPN  OR  NTIKLC 

MESSAGES  30-34  ARE  IN  NTIMFL 

MESSAGES  35-39  ARE  IN  NTIMFE 

MESSAGES  40-44  ARE  IN  NTIX25 

THE  MAIN  ERROR  PROCESSOR  IS  "SNIERR" 

ASTERISK  REPLACERS  ARE: 

$NER50  -  INSERT  RAD50  STRING  FROM  SNIERA 

SNERDN  -  INSERT  RAD50  STRING  FROM  SNIERA  AND  DECIMAL  NUMBER  FROM  $NIERA+2 
SNERDD  -  INSERT  RAD50  STRING  FROM  SNIERA,  DECIMAL  NUMBER  FROM  $NIERAt2, 
AND  DECIMAL  NUMBER  FROM  SNIERA+4 

SECOND  LINE  FORMATTING  AND  PRINTING  IS  NOT  SUPPORTED 

.ENABL  LC 

.If  NDF  RSS11S 
NTLERS  ,02.N0NE,SNIERR.,,<Network  Loader  (NTL...)  Not  InstaUed> 

.ENDC 
NTLERS  .03, NONE, SNIERR, ,,<IUegal  Function> 
NTLERS  ,04,N0NE.SNIERP,,,<Comm  Exec  Not  Loaded> 
NTLERS  <:>, 12. NONE, SNIERR, .,<Line  in  Wrong  State.  Only  First  Line  EnabLed> 

.DSA8L  LC 


VECTORED  EXEC  TABLE 


EXEVEC 
FMASK: 
KSAR6: 


HFMSK 
SAHDB 
SAHPT 
URMST 
NCPU: 


.WORD   0 

SFMASK 

KISAR6 

.IF  DF  RSSMPL 

SHFMS< 

SSAHDB 

SSAHPT 

SURMST 

SNCPU 

.ENDC 


;  RSX-11M+  VECTORED  SYMBOLS 
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:05 

704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
71A 

715  000504 

716  000510 

717  0005U 

718  000520 

719  000522 

720  000524 
721 

722 
723 
724 
725 

726  000526 

727  000532 

728  000536 

729  000542 

730  000544 
731 

732 
733 
734 
735 
736 

737  000550 

738  000554 

739  000560 

740  000562 

741  000566 

742  000570 

743  000574 
744 

745 


.SBTTL  ERROR  SUBROUTINES 


$NER50 
SNERDN 
SNERDD 


INSERT 
INSERT 
INSERT 


RAD50  STRING 
RAD50  STRING  AND 


A  DECIMAL  NUMBER 


RA050  STRING  AND  TWO  DECIMAL  NUMBERS 


016701  000010' 

122740  000040 

001775 

005200 


112720  000055 
016701  000012' 
005002 


.IF  NDF  S$$6AS 
SNIERA       =  RAD50  WORD 


016701  000014' 

100405 

112720  000055 

005u02 


$NER50::MOV 
CALL 

10$:  CMPB 

BEQ 
INC 
RETURN 


SNIERA 
$NIERAt2 

SNERDN:: CALL 
H0V8 
MOV 
CLR 
CALLfi 


SNIERA 

SNIERA+2 

$NIERA+4 

SNERDD::CALL 
MOV 
BMI 
MOVB 
CLR 
CALLR 

10S:  RETURN 

.ENDC 


SNIERA, R1 

$C5TA 

#'    ,-(R0) 

10S 

RO 


=  RAD50  WORD 

=  DECIMAL   NUMBER 

SNER50 
#'-,(RO)t 
SNIERA+2, Rl 
R2 
SCBDMG 


=  RAD50  WORD 

=  DECIMAL  NUMBER 

=  DECIMAL  NUMBER  (If  MI, 

SNERDN 

SNIERA+4,R1 

lOS 

*'-,(R0)+ 

R2 

SCBDMG 


GET  RAD50  NAME 

INSERT  RAD50 

SKIP  TRAILING  BLANKS 

ADJUST  FOR  AUTO-DECREMENT 


INSERT  RAD50  STRING 
PUT  IN  THE  SEPARATOR 
GET  OCTAL  NUMBER 
ZERO  SUPPRESS 
PUT  IN  DECIMAL  NUMBER 


DON'T  PRINT) 

PUT  IN  RAD50  AND  FIRST  OCTAL 

GET  SECOND  NUMBER 

IF  MI,  DON'T  PRINT 

PUT  IN  SECOND  SEPARATOR 

ZERO  SUPPRESS 

PUT  IN  DECIMAL  NUMBER 


f^';_cor^_s=:  1 1  -no  Par 
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SYMBOL 

VALUE 

REFERENCES 

tPDVlD 

=  »«»»«♦ 

GX 

8-247 

SPDVNM 

-  ***»♦♦ 

GX 

8-246 

SPDVTA 

r  ****** 

GX 

8-250 

SPSIPT 

=  ****** 

GX 

8-241 

SPUMR 

=  ****** 

GX 

8-218 

SQASTT 

=  ****** 

GX 

8-221 

SSLTMA 

=  ****** 

GX 

8-232 

ISLTNM 

r  ****** 

GX 

8-233 

SSRSTD 

=  ****** 

GX 

8-215 

STKPS 

-  ****** 

GX 

8-223 

STKTCB 

=  ****** 

GX 

8-220 

STKIOO 

r  ****** 

GX 

8-238 

STISCL 

~     ****** 

GX 

8-243 

STIOOC 

=  ****** 

GX 

8-236 

tTIOOQ 

-  ****** 

GX 

8-237 

SUMRPT 

:;  ****** 

GX 

8-214 

$$SARG 

=  000002 

#14-689 

#14-689 

14-689 

14-689 

14-689 

$$$GLB 

=      ****** 

7-104 

$$$T1 

=  000006 

#7-104 

$$$$ 

=  000001 

#18-846 

.BASES 

=  140000 

#6-77 

.CXALL 

000062 

G 

#6-72 

.CXCSR 

000004 

G 

#6-72 

.CXLBR 

000060 

G 

#6-72 

.CXLB1 

000030 

G 

#6-72 

.CXLB2 

000044 

G 

#6-72 

.CXLEN 

000064 

G 

#6-72 

.CXPCB 

000006 

G 

#6-72 

.CXSYM 

000010 

(i 

#6-72 

.CXUNL 

000024 

G 

#6-72 

.CXVEC 

000026 

G 

#6-72 

.CXVSM 

000016 

G 

#6-72 

.NTGCD 

000000 

#6-72 

.NTPCB 

000000 

G 

#6-72 

.NTUMR 

000002 

G 

#6-72 

.SBPCB 

000066 

G 

#6-72 

14-689 
14-689 
14-689 
14-689 
14-689 
7-109 
7-104 
#18-847 


#14-689 
14-689 

#14-689 
14-689 
14-689 
7-110 

#7-110 
18-851 


14-689 

#14-689 

14-689 

#14-689 

14-689 

U-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

#14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 

14-689 
14-689 
14-689 
14-689 


7-110 


7-110 


7-110 


rDC  A  Tcr\     DV 
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5A 
55 
56 
57 
58 
59 
60 
61 
6? 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
71 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92  000002 

93  000000    002    103 

94  000044     002     103 

95  000113    002    103 

96  000162    002    103 

97  000220    002    103 

98  000270    002    103 

99  000341    002    103 

100  000401    002    103 

101  000433    002    103 

102  000473     012     040 

103  000501    015    200 

104  000503     076     076 
105 

106  000506 
107 


106 
106 
106 
106 
106 
106 
106 
106 
106 
040 

200 


•  LOCAL  MACROS 
;  *  «  »  ♦ 


.MACRO  PRINT   TEXT 


MOV 

CALL 

.ENDM 


TEXT.RO 

SPRINT 

PRINT 


Page  4 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFEfil 

.ENDM  EPRINT 

LOCAL  DATA 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


;  ERROR  MESSAGES 


ERRLID 

ERRCID 

ERRPRO 

ERRCHN 

ERRLTY 

ERRCAL 

ERRWLD 

ERRFSP 

ERRIPV 

CRLF: 

CR: 

ARROWS 

SERROR 


.NLIST 

.ENA8L 

EXSERR 

.-.ASCIZ 

:. ASCIZ 

:. ASCIZ 

:. ASCIZ 

:. ASCIZ 

.-.ASCIZ 

.-.ASCIZ 

:. ASCIZ 

:. ASCIZ 

.ASCII 

.ASCII 

.ASCII 

.EVEN 

.-.BLKW 


BEX 
LC 

<EX$ERR>/CFE  —  Invalid  Line  identification/ 
<EX$ERR>/CFE  —  Invalid  circuit  identification/ 
<EX$ERR>/CFE  —  Invalid  process  identification/ 
<EXSERR>/CFE  —  Error  in  channel  list/ 
<EXSERR>/CFE  —  Operation  invalid  for  line  type/ 
<EX$ERR>/CFE  --  Error  in  call  mask  or  call  value/ 
<EXSERR>/CFE  —  Invalid  wildcard  syntax/ 
Error  in  filespec/ 
Invalid  parameter  value/ 

;  HEADER  FOR  BAD  COMMAND  LINE 

;  SINGLE  CARRAIGE  RETURN 

;  MARKER  FOR  SAD  PART  OF  COMMAND  LINE 


<EXSERR>/CFE  — 
<EX$ERR>/CFE  — 
<12>"    "<200> 
<15><200> 
">>"<200> 

1 


;  ADDRESS  OF  ERROR  MESSAGE 

;  RETURN  FROM  ACTION  ROUTINES  IF  C  SET 


inc  r\7u 
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139 
UO 
U1 
U2 
K3 
U4 
U5 
H6 

K8 
H9 
150 

151  00026A 

152  000264 

153  000272 

154  000274 

155  000302 

156  000304 

157  000310 
158 

159  000312 

160  000320 

161  000322 

162  000330 

163  000332 
164 

165  000336 

166  000344 

167  000346 
168 

169  000352 

170  000360 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182  000362 

183  000366 

184  000370 

185  000374 

186  000400 

187  000404 

188  000410 
189 

190 
191 
192 

193  000412 

194  000416 

195  000420 


032767 
001004 
032767 
001403 
004767 
103504 

032767 
001004 
032767 
001402 
004767 

032767 
001402 
004767 

032767 
001460 


.SBTTL  SETEXE  -  SET  EXECUTOR  PARAMETERS 

'»**  -  SETEXE  -  SET  EXECUTOR  PARAMETERS 

INPUTS: 

SOPRND  :  OPERANDS  WORD 

OUTPUT: 

CONTROL  DISPATCHED  TO  PROPER  ROUTINE 


SETEXE: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  5$: 

OOOOOOG  OOOOOOG   10$: 

OOOOOOG  OOOOOOG 

OOOOOOG  15$: 

OOOOOOG  OOOOOOG  20$: 

OOOOOOG 

OOOOOOG  OOOOOOG  30$: 


BIT 

BNE 

BIT 

BED 

CALL 

BCS 

BIT 
BNE 
BIT 
BEQ 
CALL 

BIT 
BEQ 
CALL 

BIT 
BEQ 


#OE.ROU,$OPRND 

5$ 

#E2.R0U,$0PRN2 

10$ 

$SER0U 

90$ 

#OE.NSP,$OPRND 

15$ 

#E2.NSP,$OPRN2 

20$ 

$SENSP 

#0E.N0D,$0PRND 

30$ 

$SENOD 

#OE.SUB,$OPRND 
90$ 


NEED  TO  MODIFY  THE  ROUTING  PARAMETERS 

IF  NE,  VES 

REALLY  NO  CHANGES  ? 

IF  EQ,  NO 

CHANGE  THE  ROUTING  PARAMETERS 

IF  CS,  END  NODE  -  ABORT  COMMAND 

DID  ANY  NSP  PARAMETERS  CHANGE  ? 

IF  NE,  YES 

REALLY  NONE  ? 

IF  EQ  NO  NSP  PARAMETERS 

MODIFY  NSP 

NEED  TO  MODIFY  THE  NODE  DEFINITION  ? 
IF  EQ,  NO 
ELSE,  DO  IT 

TRANSPORT  SUBADDRESS  SPECIFIED  ? 
IF  EQ,  NOPE 


SET  EXECUTOR  TRANSPORT  SUBADDRESSES: 
IF  A  RANGE  IS  SPECIFIED  AND  IS  NOT  0-0  SET  IT  UP 
IF  A  RANGE  IS  SPECIFIED  AND  IS  0-0  CLEAR  BOTH  SUBADDRESSES 
IF  ONE  VALUE  IS  SPECIFIED: 
IF  THERE  ARE  NO  SUBADDRESSES  IN  TEMPLATE  SETUP  LOW  SUBADDRESS 
IF  ONE  SUBADDRESS  IS  PRESENT  IN  TEMPLATE  UPDATE  THAT  SUBADDRESS 
IF  BOTH  SUBADDRESSES  ARE  PRESENT: 

IF  VALUE  IS  <  LOW  SUBADDRESS,  UPDATE  LOW  SUBADDRESS 
IF  VALUE  IS  >  LOW  SUBADDRESS,  UPDATE  HIGH  SUBADDRESS 


016700 
001456 
016046 
042716 
016701 
016702 
100015 


OOOOOOG 

OOOOOOG 
OOOOOOC 
OOOOOOG 
000002G 


MOV 
BEQ 

m 

MOV 
HOV 
BPL 


$PSIPT,R0  ;  POINT  TO  PSN$DF 

100$  ;  IF  EQ,  NO  PSN$Df  -  ERROR 

C.STS(RO),-(SP)  ;  GET  FLAGS 

#»C<CS.THI!CS.TLO>,(SP)  ;  CLEAR  DON'T  CARE  BITS 

$ESUB,R1  ;  GET  LOW  VALUE 

$ESUB+2,R2  ;  GET  HI  VALUE 

50$  ;  IF  PL,  USER  SPECIFIED  HIGH  AND  LOW 


022715  OOOOOOG 
001410 

022716  OOOOOOG 


ONE  VALUE  SPECIFIED  ON  COMMAND  LINE.  IF  ONLY  ONE  SUBADDRESS  IN  TEMPLATE 
UPDATE  THAT  ONE,  ELSE  FIND  THE  BEST  FIT  AND  UPDATE  THAT  SUBADDRESS. 


CMP 
BEQ 
CMP 


#CS.THI,(SP) 

40$ 

#CS.TLO,(SP) 


ONLY  HIGH  PRESENT 

IF  EQ,  YES 

ONLY   LOW  PRESENT    ? 


r-.i-i      \,r\c 
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•♦F1LE«MD«'CFEDSP 


CCCCCCCC   F 

FFfFFFFFF 

EEEEEEEEEE 

DDDDDDDD 

ssssssss 

pppppppp 

CCCCCCCC    F 

FFFFFFFFF 

EEEEEEEEEE 

DDDDDDDD 

ssssssss 

pppppppp 

CC           F 

EE 

DD 

DD 

ss 

pp    pp 

CC           F 

EE 

DD 

DD 

ss 

pp    pp 

CC           F 

EE 

DD 

DD 

ss 

pp    pp 

CC           F 

EE 

DD 

DD 

ss 

pp    pp 

CC          F 

FFFFFFF 

EEEEEEEE 

DD 

DD 

ssssss 

pppppppp 

CC          F 

FFFFFFF 

EEEEEEEE 

DD 

DD 

ssssss 

pppppppp 

CC          F 

EE 

DD 

DD 

ss 

pp 

CC           F 

EE 

>D 

11 

ss 

pp 

CC          F 

EE 

11 

ss 

pp 

CC          F 

EE 

DD 

ss 

pp 

CCCCCCCC    F 

EEEEEEEEEE 

DDDDDDDD 

ssssssss 

pp 

CCCCCCCC   F 

EEEEEEEEEE 

DDDDDDDD 

ssssssss 

pp 

ssssssss 

TTFTT 

niT 

ssssssss 

TTTTT 

1  III 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CFEHLP 

CREATED  BY 

MACRO  ON 

29-JUN-85  AT  04:55 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

DATSET 

000160 

R 

^-88 

#4-90 

DEVA 

0001 7A 

R 

4-90 

#4-92 

4-93 

DEVL 

=  000005 

-^-90 

#4-93 

FILA 

000206 

R 

4-90 

#4-98 

4-99 

FILL 

=  000012 

4-90 

#4-99 

N 

=  000003 

#4-88 

4-88 

S.FDB 

=  OOOUO 

4-88 

4-88 

UICA 

000201 

R 

4-90 

#4-95 

4-96 

UICL 

=  000005 

4-90 

#4-96 

SCFHLP 

000220 

RC, 

#5-115 

SCMDPT 

::  ****** 

GX 

5-116 

SHDFNB 

000156 

RG 

#4-88 

SHDSP 

000150 

RG 

#4-88 

$HEfN 

=  000002 

G 

#4-88, 

$HELP 

=      **♦*♦« 

GX 

5-117 

$HFDB 

OOOOOA 

RG 

#4-88 

IHLUNI 

=  000006 

G 

#4-88 

$HLUN2 

=  000002 

G 

#4-88 

$HMOD 

000000 

RG 

#4-88 

SHNAME 

000152 

RG 

#4-88 

$$$ 

=  000005 

#4-88 

4-88 

...PCI 

=  000010 

R 

#4-88 
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34A 
!45 
3'.6 

5A8 

3^9  000010 

3S0 

351  000000 

352  000002 

353  000004 

354  000006 
555  000010 
356  000011 
557  000012 
358  OOOOK 

559  000015 

560  000016 

361  000020 

362  000022 
565 

564  002054 

565 

566 

567 

568 

569  000024 

570 

371  000000 

372  000002 
573  000004 

374  000006 

375  000010 


000000 


000024 


000000 


.S8TTL   DEFINE  TEMPLATES  GLOBALLY 


3'0  UUUUliT 

577  000015 

[ 

578 

000014 

379  002054 

380 

381 

382 

585 

584 

385  000014 

586 

000000 

587  000000 

588  000002 

589  000004 

390  000006 

591  000010 

592  000012 

393  000014 

394 

000016 

395  002054 

396 

397 

398 

399 

400 

•  ***** 

;  DEFINE  THE  SLT 

TEMPLATE 

.ASECT 

.=0 

.8LKW 

.BLKW   ' 

SSLNAM: 

:.8LKW 

SSLFLG: 

:.BLKW 

SSICNT: 

:.8LKB 

SSLUNT: 

:.BLKB 

SSLCTT: 

:.BLKW 

SSLTYP: 

:.BLK8 

.BLKB 

SSLHTM: 

:.8LKW 

SSLRPR: 

:.BLKW 

SSLBRA: 

.-.BLKW 

S$LLEN==. 

.PSECT 

•  ***** 

;  DEFINE  DDM  TEMPLATE 

.ASECT 

.=0 

.BLKU 

.BLKW 

DSDNAM. 

:.BLKW 

DSDFLG. 

:.BLKW 

DSDPRl. 

i.BLKU 

DSDNLT. 

:.eLKB 

DSDNCT 

.-.BLKB 

D$DLEN==. 

.PSECT 

■♦**** 

;  DEFINE  CONTROLLER  TEMPLATE 

.ASECT 

.=0 

.BLKW 

.BLKW 

CSNCNT 

:.6LKW 

CSNVEC 

:.8LKW 

CSNCSR 

.-.BLKW 

CSNPRI 

:.8LKW 

CSNURM 

:.BLKW 

C$NLEN= 

=  . 

.PSECT 


DEFINE  UNIT  TEMPLATE 


C.LNK 

C.STS 

THE  DDM  PROCESS  ASSOCIATED  WITH  THIS  LINE 

FLAGS  WORD 

CONTROLLER  NUMBER  OF  THE  ASSOCIATED  DDM 

THE  UNIT  NUMBER  OF  THE  ASSOCIATED  DDM 

THE  COUNTER  TIMER  VALUE  (LAPB  LINES  ONLY) 

0=SLAVE,  1=MASTER 

(UNUSED) 

HELLO  TIMER 

ROUTING  PRIORITY 

BROADCAST  ROUTER  ADJACENCIES 


C.LNK 

C.STS 

DDM  PROCESS  NAME 

DDM  FLAGS  WORD 

DDM  PROCESS  PRIORITY 

NUMBER  OF  LINE  TABLES  IN  PROCESS  SPACE 

NUMBER  OF  CONTROLLER  TABLES  IN  PROCESS  SPACE 


CSNLNK 
CINSTS 

CONTROLLER  NUMBER 
VECTOR  ADDRESS 
CSR  ADDRESS 
CONTROLLER  PRIORITY 
UNIBUS  RUN  MASK 
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'T:»25  -  NTiNi^  'MODULE  X25-SER  MACRO  >/05.05b  Saturday  29-Jun-85  03:29 

able  of  contents 

5-   50    MACRO  DEFINITIONS 

t-        68    LOCAL  DATA 

■'-  105    SET  MODULE  X25  SERVER 


n  1 
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NTKEX     "lACRO  V05.03b  Saturday   29-Jun-85   03:29 
Table  of   contents 

6-  53    DATA 

7-  106    SET  CEX  FUNCTION 

8-  160    LOCAL  INITIALIZATION 
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NTICEX  MACRO  V05.05b  Saturday  29-Jun-85  03:29  Page  5 


n   2 
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NTKEXilS     CREATED  BY     MACRO     ON  29-JUN-S5   AT  03:30  PAGE   4 

MACRO  CROSS  RE>^ERENCE  CREF        04.00 

8-204  8-207  8-219  8-227  8-250  8-270  8-279 


MACRO  NAME 

REFERENCES 

CALL 

8-188 

8-202 

CCBDFS 

#6-65 

6-72 

CLEFSS 

#6-64 

DHBDF$ 

#6-65 

6-76 

DIRS 

#6-64 

EMSGSR 

#6-64 

NHWDFS 

#6-65 

6-74 

NTLERt 

#6-64 

PDVDFS 

#6-65 

6-75 

RETURN 

8-210 

8-235 

RQSTS 

#6-64 

SDATS 

#6-64 

SLTDFS 

#6-65 

6-73 

SWST<$ 

8-202 

8-227 

WTSESS 

#6-64 

8-281 


M    3 
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NTIDLI  -  MTINIT  DOWN 
Table  ot  contents 


LINE  LOAD  MACRO  VO5.03b  Saturday  29-Jun-85  03:30 


6- 

7- 


55 
7? 


DATA 

NODE    INFO    INITIALIZATION 
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107 
108 
109 
110 
111 

112  0000^6 

113  000136 

114  000176 

115  000252 

116  000312 
117 

118 
119 
120 
121 
122  000000 


.SBTTL  ERROR  MESSAGES 
ERROR  MESSAGES 

.ENABL  LC  .     ., 

NTLER*  <:>,11,N0NE,$NIERR,,,<Router  Priorities  Data  Base  Allocation  Faiture> 
NTLERS  <:>,15,N0NE,$NIERR,,,<NS:  Assignment  Failure> 
NTLERS  <:>,17,N0NE,$NlERi),,,<Network  ACP  (NETACP)  Not  Instaaed> 
NTLERS  ,18,N0NE,$N]ERR,, ,<PL8  Allocation  Failure> 
NTLERS  <:>,19,N0NE,$NIERR,,,<Routing  Control  Task  Not  Installed) 

.DSABL  LC 

START  OF    PURE    CODE 
.PSECT 
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NTIL0N11S  CREATED  BY  MACRO  ON  29-JUN-85  AT  03:31 
MAC"0  CROSS  REFERENCE 


MACRO  NAME 

REFERENCES 

ADJDFI 

#6-62 

6-73 

ALUN$ 

#6-61 

7-105 

BIAS 

#6-61 

CACDFS 

#6-62 

6-74 

CALL 

9-U1 

9-160 

CALLX 

#6-62 

CCBDFS 

#6-63 

6-65 

CTRDFS 

#6-61 

6-71 

DCBDFS 

#6-63 

6-77 

DHBDFS 

#6-62 

6-75 

DIRS 

#6-60 

9-150 

DVBDFS 

#6-63 

6-76 

ECDDBJ 

#6-61 

6-69 

EMSGS 

#6-60 

EMSGSR 

#6-60 

9-152 

HDRDFS 

#6-63 

6-79 

MAP 

#6-61 

NHWDFS 

#6-60 

6-66 

NSFDFS 

#6-62 

6-72 

NTLERS 

#6-60 

8-112 

OFF$ 

#7-104 

#7-105 

PDVDFS 

#6-61 

6-70 

PLBDFS 

#6-61 

6-67 

RE  SWAP 

#6-62 

RETC 

#6-60 

RETURN 

9-U8 

9-188 

RUNS 

#6-60 

7-104 

R50$ 

#7-10A 

7-104 

SAVMAP 

#6-62 

SOB 

9-259 

SWSTKS 

9-160 

9-253 

UCBDFS 

#6-63 

6-78 

WSIGSS 

#6-60 

9-274 

XPDDBS 

#6-61 

6-68 

L  6 
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9-178  9-185  9-253 


9-265  #9-274  9-274 


9-192  9-195  9-294 


-113  8-114  8-115 


9-260  9-278 


9-254 


9-276 


9-295 


8-116 


9-296 


9-297 


♦  *F  n  F««ID»«NTIMFF 
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S>mbol  table 
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ZF.1NI=  040000 
ZF.KMX=  000020 
ZF.LLC=  000004 
ZF.LMC=  000100 
ZF.MAN=  020000 
ZF.MFL=  000010 
ZF.MTM=  000400 

ZF.MUX=  000040 
ZF.PSE=  002000 
ZF.SLI=  010000 
ZF.TIM=  000200 
ZF.X3P=  000000 
ZS.ASN=  100000 
ZS.BSV=  140000 

AVL 

DAT 

DSP 

FL6 

LEN  - 

LLN 

000014 
000016 
000000 
000010 
=  000016 
000006 

.  ABS.  177776 
000756 
Errors  detected: 

000 
001 
0 

(RW,I,GBL,ABS,OVR) 
(RW,!,LCL,REL,CON) 

♦♦•  Assembler  statistics 

Work   file  reads 
Work   f i  le  writes 
Size  of  work  f i  Le 
^^'e  of  core  pool 
L'uerating  system 

113 

106 

27005  Words  (  106  Pages) 

17608  Words  (  67  Pages) 

RSX-11M/PLUS 

Z.MAP  000020 
Z.NAM  000004 
Z.PCB  1)00012 
Z.SCH  000007 
$D8ECL=  ******  GX 
$ERR12=   »♦•**«   GX 


$HEADR=   *♦*•*♦   GX 
SNIMFE     000006RG 
$SAVAL=   ****♦•   GX 
$$$ARG=  000004 
$$$R     =  000010 
.$$$$.=  000034 


DB2;Nf?MFnfLT34?[13k?34]NTIMFE11S/CR/-SP=D82:[1  J]RSXMCI*I.SML/ML,[150J10:nETLIS/ML,[130J0]RSXMCM/PA:1,[132J0K 
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ERROR  MESSAGES 
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213 

2U  000432 

215  000434 

216  000436 

217  000440 

218  000442 

219  000444 

220  000446 

221  000450 

222  000452 

223  000454 

224  000456 

225  000460 

226  000462 
227 

228 
229 
230 
231 

232  000464 

233  000466 

234  000470 

235  000472 

236  000474 

237  000476 

238  000500 

239  000502 

240  000504 

241  000506 

242  000510 

243  000512 

244  000514 

245  000516 

246  000520 

247  000522 

248  000524 

249  000526 

250  000530 
251 

252 
253 
254 
255 
256 
257  000000 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000043 


UMRPT: 

:  SUMRPT 

SRSTD: 

:  SSRSTD 

ALOCB: 

:  SALOCB 

DEACB: 

:  $DEAC8 

PUMR : : 

$PUMR 

HE ADR: 

:  SHEADR 

TKTCB: 

:  STKTCB 

QASTT: 

:  SQASTT 

CLKHD: 

:  SCLKHD 

TKPS:: 

$TKPS 

ABTIM: 

:  SABTIM 

DEVHD: 

:  SDEVHD 

LDPUF: 

:  SLDPWF 

.IF  DF  R$$M 

MPPRO: 

:  SMPPRO 

.ENDC 

SLTMA. 

:  SSLTMA 

SL7NM 

:  SSLTNM 

NTLPT 

:  SNTLPT 

CALLX 

:  SCALLX 

T100C 

:  $nooc 

T100Q 

:  STIOOQ 

TK100 

:  STKIOO 

CCBGT 

:  SCCBGT 

LLCRS 

:  SLLCRS 

PSIPT 

:  SPSIPT 

CEACC 

:  SCEACC 

nscL 

:  STISCL 

LGSTT 

:  $L6STT 

DECPT 

:  SDECPT 

PDVNM 

:  SPDVNM 

PDVID 

:  SPDVID 

LLCAL 

:  SLLCAL 

LLCTA 

:  SLLCTA 

PDVTA 

:  SPDVTA 

VECLN  ==  «. 

;  STAf 

U   OF  PURE  CORE 

.PSECT 

;  COMM  EXEC  VECTORED  VALUES 


MATDn  unt;  n7h  ThMrcHa^/  nS-Con-HS  ^^■r,Q       Psne  9 
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NTINIT  MAC 
RCV  DATA  AS 

lUl 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
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.SBTTL  RCV  DATA  AST 


NTIRM  -  NTINIT  RCV  DATA  AST 

INPUTS: 

NONE 

OUTPUTS: 

THE  RCV  DATA  SUBROUTINE  IS  CALLED  UNTIL  THE  RCV  DATA  QUEUE 
IS  EMPTIED. 


SAVE  RO 
RECEIVE  DATA 

..  NONE 
PROCESS  THE  DATA 
TRY  FOR  SOME  MORE 
RESTORE  RO 
EXIT  FROM  AST 


.IF  NDF 

R$$11S 

NTIRDA: 

MOV 

RO,-(SP) 

10$: 

DIR$ 

#NTIRCV 

BCS 

20$ 

CALL 

NTIRDT 

BR 

10$ 

20$: 

MOV 
ASTX$S 

.ENDC 

(SP)+,RO 

i/r\t;  n'?k  Tk, 
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CREF        OA.OD 


MACRO  NAME 


REFERENCES 


ASTXSS 

#6-59 

CALL 

10-378 

15-737 

CALLR 

#6-61 

CALLX 

#6-61 

CCBDFS 

#6-61 

CLEFSS 

#6-59 

)IRS 

#6-60 

OSARSS 

#6-60 

EMSGt 

#6-59 

EMSGSR 

#6-62 

ENARSS 

#6-60 

EXITSS 

#6-59 

*1AP 

#6-61 

TOV$ 

#10-A02 

U-689 

MRKT$ 

#6-62 

MVB$ 

#14-689 

NHWOFS 

#6-61 

NTLDFS 

#6-61 

NTLERS 

#6-59 

OFF$ 

#7-104 

OPTDFS 

#6-61 

PCBDFS 

#6-63 

PDVDFS 

#6-61 

QDPBtS 

#14-689 

OIOWSS 

#6-59 

RCVD$ 

#6-60 

RCVX$ 

#6-62 

RE  SWAP 

#6-63 

RETC 

#6-62 

RETURN 

13-611 

RQST$ 

#6-60 

RVP$ 

#14-689 

R50S 

#7-104 

SAVMAP 

#6-63 

SCBDFS 

#6-63 

SDATS 

#6-60 

SDATSS 

#6-62 

SETFSS 

#6-60 

SLTDFS 

#6-61 

SRDASS 

#6-60 

SWSTICS 

13-590 

TCBDFS 

#6-63 

VECDFS 

#6-62 

WSIGSS 

#6-59 

WTSESS 

#6-59 

10-580 

15-730 

6-73 
#6-60 
9-309 

10-378 

10-463 

10-402 
14-689 
7-109 
14-689 
6-77 
6-72 
8-192 
#7-109 
6-74 
6-78 
6-75 
14-689 
14-689 

7-104 


14-697 
7-110 
14-689 
7-104 

6-79 


6-76 


6-80 
6-81 

10-402 


10-387 
15-742 

10-401 
10-380 

#14-689 


8-193 
#7-110 


10-404 


#10-402 


14-689 


8-194 


15-590  13-592  13-602  14-681 


10-402  10-403        #10-463  10-463 


14-689  14-689        #1^-689  14-689 


15-716  15-726 


#14-689  14-689 


14-689         #14-689 


15-720 

14-689 
#7-110 


15-743 

U-689 
7-110 


i  j.r  I  1   r  ^  »  t 
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L  11 


54 
69 


DATA 

LOAD  UMR'S 


_  Q  C   (^  7  .  7  7 


n  11 


CfECOM  -  GET  A  COMMAND  LINE 
SCFCOM  -  GET  A  COMMAND  LINE 


109 
110 
111 
112 

in 
iu 

115 
116 
117 
118 
119 
120 
121 

122  000510 

123  000510 
12'.  0005U 

125  000520 

126  000524 

127  000530 

128  000534 

129  000540 

130  000544 

131  000550 

132  000554 

133  000562 

134  000566 

135  000572 
136 

137  000576 

138  000602 

139  000606 

140  000612 

141  000620 

142  000624 

143  000626 
144 

145 
146 

147  000630 

148  000640 

149  000642 

150  000646 

151  000656 

152  000660 

153  000670 

154  000672 

155  000674 

156  000676 

157  000702 

158  000706 

159  000710 

160  000720 

161  000730 
162 

163 
164 
165  000732 
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005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
005067 
012767 
005067 
005067 
005067 

012701 
012702 
012705 
012767 
004767 
103054 
102441 


.SBTTL 

♦**  -  SCFCOM 

INPUTS: 

NONE. 


SCFCOM  -  GET  A  COMMAND  LINE 
-  GET  A  COMMAND  LINE 


OUTPUTS: 

C-8IT  -   SUCCESS/FAILURE  INDICATOR 
ALL  REGISTERS  =  DESTROYED 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

177777  OOOOOOG 

OOOOOOG 

000002G 

OOOOOOG 

001400 
OOOOOOG 
OOOOOOG 

OOOOOOG  177666 
OOOOOOG 


SCFCOM: 
lOS: 


CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
CLR 
CLR 
CLR 

MOV 
MOV 

MOV 

MOV 

CALL 

BCC 

BVS 


TPARS  ERROR 


111446 
112714 

112614 

010400 
105724 
001376 
112744 

105014 
000667 


000200 


000200 


15$: 


EPRJNT 
M0V8 

Move 

EPRINT 

M0V8 

EPRJNT 

MOV 

TST8 

BNE 

HOVB 

EPPINT 

CLRB 

EPRINT 

ERRORS 

BR 


SCMAND 

SOPRND 

$0PRN2 

SCOMP 

SSWICH 

SFLAGS 

SUILD 

SCIRCT 

SINFO 

#-1,$TNUM 

SNODNA 

$N0DNA+2 

SVLVL 

#<3»400>,R1 

#PRSKTB,R2 

#PRSSTB,R5 

#ERRJLC,$ERROR 

SGTPLN 

30$ 

20$ 


#CRLF 

(R4),-(SP) 

#200, (R4) 

#SBUFF 

(SP)+,(R4) 

♦ARROWS 

R4,R0 

(R4)  + 

15$ 

#200, -(R4) 

RO 

(R4) 

#CR 

$ERROR 

10$ 


CHECK  GCL  ERROR 
122777  OOOOOOG  OOOOOOG  JOS:    CMP8    #IE.EOF  ,SSCLIOS 


INITIALIZE  SYMBOLS 


ASSUME  "KNOWN  OBJECTS" 
ASSUME  "KNOWN  REMOTES" 

ZERO  THE'OBJECT  TASK  VERIFICATION  LEVEL 

3  CHARS  MUST  MATCH 
POINT  R2  AT  KEYWORD  TABLE 
POINT  R5  AT  STATE  TABLE 
ASSUME  ILLEGAL  COMMAND 
PARSE  THE  COMMAND  LINE 
IF  CC,  ALL  OKAY 
IF  VS,  GCL  ERROR 


TERMINATE  LINE  AND  INDENT 

SAVE  BYTE  AFTER  LAST 

TERMINATE  LINE 

PRINT  GOOD  PART  OF  LINE 

RESTORE  REMAINDER 

ARROWS... 

COPY  POINTER 

LOOK  FOR  NULL 

IF  NE,  CONTINUE 

SUPPRESS  CARRAIGE  CONTROL 

PRINT  BAD  PART  OF  LINE 

RESTORE  NUL  BYTE 

END  LINE 

PRINT  ERROR  MESSAGE 

GET   NEXT   LINE 


JUST   AN   END-OF-FIlE 


M  12 


n^«„     c_ 
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SETEXE  -  SET  EXECUTOR  PARAMETERS 


196  000424 

001421 

BEQ 

60S 

IF  EO,  GO  UPDATE  LOW  SUBADDRESS 

197  000426 

005716 

TST 

(SP) 

ANYTHING  PRESENT  ? 

198  000430 

001417 

BEQ 

60$ 

IF  EQ,  NO  -  SET  UP  LOW 

199  000432 

020160 

OOOOOOG 

CMP 

R1,P$STLO(RO) 
60i 

ELSE  LOOK  FOR  BEST  FIT 

200  000436 

101414 

BLOS 

IF  LOS,  CLOSEST  TO  LOW 

201  000440 

010102 

40$: 

MOV 

R1.R2 
70i 

UPDATE  HIGH  SUBADDRESS 

202  000442 

203 

204 

000417 

BR 

;  USER 

SPECIFIED  RANGE  ON  COMMAND  LINE 

205 

206  000444 

042760 

OOOOOOC 

OOOOOOG 

50$: 

BIC 

#CS.THI1CS.TL0,C 

STS(RO)  ;  ASSUME  CLEARING  SUBADDRESSES 

207  000452 

020102 

CMP 

Rl.fi2 

boi 

IN  CORRECT  ORDER  ? 

208  000454 

103405 

BLO 

IF  LO,  YES 

209  000456 

010146 

MOV 

R1,-(SP) 

ELSE  PUT  THEM 

210  000460 

010201 

MOV 

R2,R1  ^ 

IN  ORDER 

211  000462 

011602 

MOV 

(SP),R2 

,  , 

212  000464 

060126 

ADD 

RI.(SP)*- 
80i 

WERE  THEY  BOTH  ZERO  ? 

213  000466 

214 

215 

216 

217  000470 

001414 

BEO 

IF  EQ,  YES  -  ALL  CLEARED 

;  SET 

NEW  SUBADDRESS(ES) 

010160 

OOOOOOG 

60$: 

MOV 

R1,PSSTLO{R0) 

•  STUFF  LOW  SUBADDRESS 

218  000474 

052760 

OOOOOOG 

OOOOOOG 

BIS 

#CS.TLO,C.STS(R0)  ;  REMEMBER  IT 

219  000502 

005702 

70$: 

TST 

R2 

•  GOT  PART  2  ? 

220  000504 

100405 

BMI 

80$ 

•  IF  MI,  WASN'T  ONE 

221  000506 

010260 

OOOOOOG 

MOV 

R2,PSSTHI(R0) 

;  STUFF  HIGH  SUBADDRESS 

222  000512 

223 

224  000520 

225 

226  000522 

052760 

OOOOOOG 

OOOOOOG 

BIS 

#CS.THI,C.STS(R0 

5  ;  ELSE  REMEMBER  IT 

005726 

80$: 

TST 

(SP)  + 

;  CLEAN  EL  STACKO 

000207 

90$: 

RETURN 

227 

228 
229 

230  000524 

;  ERRORS 

100$: 

ERRORS 

#ERRPSI 

;  PSI  ONLY  PARAMETER 

231  000534 

000207 

RETURN 

"1?. 
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MACRO  NAME 

REFERENCES 

CALLR 

#A-79 

5- 

)1R$ 

#A-79 

ERRORS 

#A-6^ 

FDBDFS 

#^-88 

^- 

FDBS?$ 

*4-88 

4- 

HLPDFt 

#A-73 

4- 

PRINT 

*A-5<3 
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CfEIMP  -  SYMBOL  DEFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85  O'.iSS 
DEFINE  TEMPLATES  GLOBALLY 


^.% 


Am 

000016 

w? 

A01 

000000 

AOA 

000002 

AOS 

OOOOOA 

AOfi 

000006 

AO/ 

000010 

AOR 

000012 

Aoy 

00001 A 

AlO 

000016 

All 

000020 

AV 

000022 

AH 

00002A 

A1A 

AIS 

00205A 

Alft 

Al/ 

A18 

Aiy 

A^'O 

a;)! 

000026 

A,J^ 

',?', 

000000 

W?t, 

000002 

u?s 

OOOOOA 

A?ft 

000005 

A^/ 

000006 

a;'H 

000007 

A?9 

000010 

A'iO 

000011 

A^l 

000012 

AV 

00001 A 

A1^ 

AiA 

00205A 

A^S 

A^6 

AV 

A'fW 

A^9 

AAO 

000016 

AA1 

aa;' 

000000 

AA^ 

000002 

AAA 

OOOOOA 

AAS 

000006 

AA6 

00001 0 

AA/ 

000011 

AA8 

000012 

AA9 

00001 A 

ASO 

000015 

AS' 

000016 

AS^' 

AS^ 

002C5A 

ASA 

ASS 

ASfi 

AS/ 

000000 


000026 


000000 


000016 


000000 


000020 


USNUNT 
USNCWO 
USNCWl 
USNCSR 
U$NCST 
USNDPR 


USNPCH: 
U$NLEN= 


.ASECT 

.=0 

.BLKW 

.BLKU 

.BLKW 

.8LKW 

.8LKW 

.8LKW 

.8LKW 

.8LKW 

.BLKU 

.BLKW 

.BLKW 

!psect 


DEFINE  STATION  TEMPLATE 


.ASECT 

.=0 

.8LKW   1 

.BLKU   1 

SSTSTA:: 

.8LK8   1 

SSTADD:: 

.8LKB   1 

SSTFLG:: 

.8LKB   1 

SSTCST:: 

.BLKB   1 

SSTAPR:: 

.BLK8   1 

.BLKB   1 

SSTHTM:: 

.BLKW   1 

.BLKW   1 

S$TLEN== 

.PSECT 

DEFINE  LLC  TEMPLATE 


.ASECT 

.=0 

.8LKW   1 

.BLKU   1 

LSLNAM:. 

.BLKU   1 

LSLFLG: 

.BLKW   1 

LSLPRI: 

.8LKB   1 

LSLLIN: 

.BLKB   1 

LSLDEV: 

.BLKU   1 

LSLNLT: 

.BLKB   1 

LSLEXT: 

.BLKB   1 

LSLCTM: 

.BLKW   1 

L$LLEN== 

.PSECT 

DEFINE  THE  PSN  BLOCK 
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C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  UORD  1 

SECONDARY  CSR  ADDRESS 

LINE  COST 

DEAD  POLLING  RATIO 

UNUSED 

UNUSED 

EMULATOR  CHARACTERISTICS  UORD 


S$TLNK 

SSTSTS 

STATION  NUMBER 

STATION  ADDRESS 

STATION  FLAGS 

STATION  COST 

ACTIVE  POLLING  RATIO 

AVAILABLE 

HELLO  TIMER 

UNUSED 


C.LNK 

C.STS 

LLC  PROCESS  NAME 

LLC  FLAGS  UORD 

LLC  PROCESS  PRIORITY 

NUMBER  OF  LINES  ASSIGNED  TO  THIS  LLC 

PSEUDO  DEVICE  NAME  FOR  THIS  LLC 

NUMBER  OF  LINE  TABLE  TO  ALLOCATE 

PROCESS  EXIENSION  IN  BLOCKS 

COUNTER  TIMER 
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9 

10 
11 
"2 
■I 
'4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
?'• 
25 
26 
27 
28 
29 
30 
31 
32 
3^ 
34 
35 
36 
37 
38 
39 
40 

41 

42 
43 
44 

45 

46 
4^ 
4« 


.TITLE   NTIX25  -  NTINIT  'MODULE  X25-SERVER  ON"  ROUTINE 
.IDENT  /V05.00/ 
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DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
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MODULE  DESCRIPTION: 

NTINIT  -  "SET  MODULE  X25-SERVER"  pf'OCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  11-MAR-81 

VERSION  3.1  RELEASE 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLU5  VI. 1 

4.00  07-N0V-83 
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n  2 


) 

2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
U 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
1.9 
50 
51 


.TITLE  NTICEX 
.IDENT   /V05.00/ 
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MODULE  DESCRIPTION: 

NTINIT  -  "SET  CEX"  PROCESSING 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 
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VERSION  2.0  RELEASE 
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DECNET-11M/S  V3.0 
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.TITLE  NTIDLl  -  NTINIT  DOWN  LINE  LOAD 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HERESY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  COPY  DOWN-LINE  SYSTEM  LOAD  INFORMATION  INTO  LOW  CORE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-11M  V4.0 
OECNET-llM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 
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NTILON  -  NTINIT 
SET  EXECUTOR  m 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO  000000 

HI  000000 

142  000004 

143  000010 

144  000012 

145  000016 
146 

147  000020 

148  000022 
149 

150  000024 

151  000032 

152  000034 
153 

154  000042 

155  000046 

156  000052 

157  000054 

158  000060 
159 

160  000066 

161  000072 
162 
163 

164  000076 

165  000102 
166 
167 
168 
169 
170 
171 
172 
173 

174  000106 

175  000112 

176  000116 

177  000120 

178  000124 

179  000130 
180 
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.SBTTL  SET  EXECUTOR  Onl 

'SNILON  -  SET  STATE  EXECUTOR  ON 

REQUEST  THE  NETACP  TO  START 

INPUTS: 

NETACP  INSTALLED 


OUTPUTS: 

THE  DEVICE  LIST  IS  SCANNED  TO  FIND  THE  NETACP.   If  IT  IS  FOUND, 
A  VCe  IS  ALLOCATED  FOR  IT,  AND  IT  IS  REQUESTED  TO  RUN. 
SNIRDS  IS  SET  TO  INDICATE  SUCCESS  (+)  OR  FAILURE  (-)  OR  NO-OP  (0). 
CARRY  IS  SET  ON  FAILURE. 


005767  OOOOOOG 

001403 

005767  OOOOOOG 

001002 

000261 


103003 


016700  OOOOOOG 

067700  OOOOOOG 

011000 

017701  OOOOOOG 

116061  000006  000030 


005066  000004 


017703  OOOOOOG 
016303  000102 


InILON: 

10$: 
20$: 

30$: 


016301  000014 

052701  000200 
001020 

012705  000000' 

105407 


CALL 

TST 

BEQ 

TST 

BNE 

SEC 
RETURN 

DIR$ 

8CC 

EMSG$R 

MOV 
ADD 
MOV 
MOV 
M0V8 

SWSTK$ 
CLR 

.IF 

MOV 

MOV 

.IFF 

SAVMAP 

MAP 

MOV 

MOV 

RE  SWAP 

.ENDC 

MOV 

SIT 

BNE 

MOV 

CALL 

BCS 


FNDPDV 

$D6XPT 

10$ 

$D8ECL 

20$ 


#ASSIGN 

30$ 

15 

$NIXPT,RO 

aPDVTA.RO 

(RO),RO 

aDECPT,R1 

Z.LLN(R0),D$NLNtR1) 

60$ 
4(SP) 

NDF,R$$MPL 

aHEADR,R3 

H.LUN+4(R3),R5 


aSAHDB 

aSAHPT,R3 

H.LUN+4(R3),R3 


U.CW3(R3),R1 

#NF.END,R1 

50$ 

*RCP1NM,R3 

aSRSTD 

40$ 


FIND  NSP  PROCESSES  fECL  8  XPT) 
BOTH  TRANSPORT  (XPT) 
AND  ECL  MUST  BE 

PRESENT  IN  THE  SYSTEM 
AND  BE  LOADED 


ASSIGN  LUN  2  TO  NS: 

IF  CS,  ERROR 
ALUN$  FAILURE  OR  NS: 


LOAD  FAILURE 


GET  PDV  INDEX  OF  XPT 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  XPT'S  PDV 

GET  DECNET  HOME  BLOCK  ADDRESS 

INITIALIZE  THE  NUMBER  OF  ROUTIN 

*  ENTER  SYSTEM  STATE 

*  CLEAR  USER  R1 


GET  TASK  HEADER 
ADDRESS  Of  NS:  UCB 

SAVE  APR6  CONTENTS 

MAP  TO  HEADER  IN  SECONDARY  PO 

GET  THE  HEADER  POINTER 

ADDRESS  OF  NS:  UCB 

RESTORE  APR6 


GET  FEATURES  WORD  FOR  THIS  NODE 

IS  THIS  A  FULL  ROUTING  NODE? 

IF  NE,  NO 

POINT  TO  TASK  NAME 

IS  ROUTING  CONTROL  PROGRAM  IN 

IF  CS,  NOT  INSTALLED 
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NT1MFE11S  CREATED  BY 

MACRO  ON  24 

-JUL-85  AT 

15:52 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ACTCIR 

OOOOOA  R 

#6-93 

♦7-119 

7-190 

CCBGT 

=  *.««»♦  Gx 

8-289 

CTLNUM 

000003  R 

#6-92 

♦7-166 

C.BUF1 

OOOOK 

•8-291 

C.FNC 

000010 

♦8-296 

C.LIN 

000006 

*8-293 

C.NSP 

OOOOOA 

♦8-294 

C.STA 

000007 

♦8-292 

C.STS 

000012 

♦8-295 

DECPT 

=  »*»»»*  GX 

7-187 

7-231 

D$NN 

000060 

7-188 

7-232 

ENAC 

00007A  R 

#7-123 

7-249 

ENALIN 

000610  R 

7-198 

7-241 

#8-269 

ESNBR 

000C14 

#6-72 

E$NBS 

000020 

#6-72 

E$NCR 

00003^ 

#6-72 

ESNCS 

000036 

#6-72 

E$NIC 

000044 

#6-72 

ESNLEN 

000050 

#6-72 

ESNLLA 

000012 

#6-72 

ESNLNK 

000000 

#6-72 

ESNML 

000040 

#6-72 

ESNMR 

000024 

#6-72 

E$NMS 

000030 

#6-72 

ESNNDD 

000002 

#6-72 

E$NRT 

000042 

#6-72 

ESNRTP 

000005 

#6-72 

ESNSFG 

000010 

#6-72 

ESNTIM 

000046 

#6-72 

ESNUSE 

000004 

#6-72 

ESSTRT 

000006 

#6-72 

M     7 

PAGE   1 

CREF       04.00 


♦7-196 


7-234 


♦7-240 


FC.CTL 

- 

000006 

8-296 

FNDPDV 

= 

****** 

(iX 

7-118 

FS.STR 

- 

001000 

8-296 

I$$AS 

r 

****** 

6-77 

LF.ACT 

n 

100000 

#6-74 

7-132 

7-200 

LF.BRO 

= 

000400 

#6-74 

7-135 

LF.BWT 

r 

000007 

#6-74 

LF.ENA 

- 

002000 

#6-74 

7-214 

7-236 

LF.LPB 

= 

001000 

#6-74 

LF.MDC 

r 

000100 

#6-74 

LF.MFL 

= 

004000 

#6-74 

LF.MTP 

r 

000020 

#6-74 

LF.PAC 

= 

000200 

#6-74 

LF.RDY 

= 

040000 

#6-74 

7-125 

LF.REA 

- 

010000 

#6-74 

LF.SER 

- 

000040 

#6-74 

LF.TIM 

- 

000010 

#6-74 

1  F.UNL 

~ 

020000 

#6-74 

LF.X2P 

r 

oooooc 

#6-74 

LLCRS 

- 

****** 

GX 

8-297 

LLCTA 

****** 

ox 

7-121 

7-243 


uTiMtcm;      rDCATFn  nv     Msron     nw  Pd-iiil-HS   AT    15:5? 


PAGF   ? 


N     7 


NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:09 
NETWORK  INITIALIZATION  COLD  START 


Page  9 


M  8 


259 

260 
261 
262 

?'^ 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284  000000 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

293 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309  000000 

310 

311 

312 

313 

314 

315 


.S8TTL  NETWORK  INITIALIZATION  COLD  START 


NTINIT  -  ENTER  THE  NTINIT  TASK 

THIS  ENTRY  SHOULD  ONLY  BE  TAKEN  ONCE,  AS  IT  WILL  STAY  ACTIVE, 
WAITING  FOR  MORE  INSTRUCTIONS  VIA  "SEND  DATA  '. 

INPUTS: 

NTINIT  GET  INPUT  VIA  "RCV  DATA"  AND  RETURNS  COMPLETION  VIA 

"SEND  DATA" 
THE  FIRST  WORD  OF  THE  RCV  DATA  PACKET  ON  RCV  INDICATES  THE 

FUNCTION  TO  BE  PERFORMED 
THE  FIRST  WORD  OF  THE  SEND  DATA  PACKET  ON  COMPLETION  INDICATES 

SUCCESS  (+),  FAILURE  (-)  OR  NO-OP  (0) 
WHEN  SENDING  A  FUNCTION  REQUEST  TO  NTINIT,  THE  REQUEST  SHOULD 

BE  QUEUED  FIRST  (VIA  SEND  DATA  TO  NTINIT)  AND  NTINIT  SHOULD 

THEN  BE  REQUESTED 
EVENT  FLAGS  START  OFF  "CLEAR" 

OUTPUTS: 

CHECK  COMPATIBILITY  OF  RSX  SYSTEM 
START  MAIN  CONTROL  LOOP 


NTINIT: 


1$: 


5$: 


10$: 


.IF  DF  R$$MPL 
.IF  NDF  R$$PRO 


#TRNVEC 
1$ 

#FE.CEX,SFMASK 

5$ 

VECSET 


DIRS 

BCC 

lOT 

BIT 

BEQ 

CALL 

.ENDC 
.ENDC 


.IF  NDF  R$$11S 

CLEFSS  *15. 

CALL  NTIRDX 

SRDASS  #NTIRDA 


CLR 
BIT 
BEQ 
MOV 
MOV 

.IFF 
DIRS 
.ENDC 


.IF  DF  SSSBAS 


SNIAST 

#LS.AST,SNIFNC 

10S 

LR.AST+SNIRDB, SNIAST 

LR.PRM*-SNIRDB,SNIPRM 


#NTIRCX 


INITIALIZE  VECTOR  TABLE 

IF  SUCCESS  -  BRANCH 

THIS  SOULD  NEVER  OCCUR 

COMM  EXEC  LOADED  ? 

IF  NOT  -  BRANCH 

IF  YES  -  INITIALIZE  PROCESS  VECTOR  TABLES 


CLEAR  EVENT  FLAG 

GET  FIRST  RECEIVE  DATA  OR  EXIT 

SET  THE  RCV  DATA  AST  ENTRY 

ASSUME  CALLER  NOT  NOTIFIED  VIA  AST 

NOTIFY  CALLER  VIA  AST? 

BR  IF  NO 

STORE  ADDRESS  OF  NOTIFICATION  AST 

STORE  NOTIFICATION  AST  PARAMETER 


.-RECEIVE  DATA  OR  EXIT 


FOR  THE  SERVER  BASE,  WE  NEED  TO 

DO  SOME  OF  THE  THINGS  WE  WOUL'^ 

DO  FOR  11M  -  THIS  IS  CODE  COPIED  FROM 


lyAC   A7k   TU, ,..,.- 


n<;-c<»r,_fi';  1 1  .no 
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772 

773 

77^ 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

78t 

787 

788 

789 

790 

791 

792 

793 

79A 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 


.SBTTL  RCV  DATA  SUBROUTINE 

NTIRDX  -  RCV  DATA  AND  RETURN  OR  EXIT 
NTIRDT  -  PROCESS  THE  RECEIVED  DATA 

THESE  ROUTINES  GET  A  RCV  DATA  PACKET  FROM  EITHER  A  FUNCTION  REQUESTOR 
OR  FROM  NTL. 

INPUTS: 

LOW  BVTE  OF  SNIFLG  IS  EITHER  ZERO  (RCV  FUNCTION  REQUEST)  OR 
NON-ZERO  (BUSY  UITH  FUNCTION  REQUEST,  RCV  ONLV  FROM  NTL) 

OUTPUTS: 

THE  DATA  IS  RECEIVED  INTO  "SNIRTN.SNIRDB  . 

IF  THE  LOU  BYTE  OF  SNIFLG  IS  ZERO,  THE  SENDERS  NAME  IS  SAVED 

IN  THE  "NTISEN"  DIRECTIVE,  THE  FUNCTIO''  CODE  IS  SAVED 

IN  'SNIFNC". 
IF  THE  LOU  BYTE  OF  SNIFLG  IS  NON-ZERO,  A-   THE  SENDER  IS  NTL, 

NIL'S  ANSUER  IS  SAVED  IN  "SNTLFC"  AND  EVENT  FLAG  15.  IS 

SET,  ELSE  A  "BUSY"  RESPONSE  IS  SENT  TO  THE  REQUESTOR. 


10$: 
20$: 


30$: 


40$: 


.IF  NDF  R$$11S 


NTIRDX:  DIR$ 

NTIRDT:  MOV 
TST8 
BEQ 

CMP 

BNE 

CMP 

BNE 

MOV 

SETF$S 

BR 


TST 

MOV 

MOV 

DIRS 

BR 


MOV 
MOV 
MOV 
MOV 
MOV 
INCB 


#NTIRCX 

#SNIRTN,R0 

SNIFLG 

30$ 

#*RNTL,(RO)+ 
20$ 

#*R (R0)  + 

10$ 

(R0),$NTLFC 

*15. 

40$ 

-(RO) 

(R0),NTIBSY+S.DATN*2 

-(RO),NTIBSY+S.DATN 

"NTI8SY 

40$ 


(RO)+,NTISEN+S.DATN 

(R0)+,NTISENtS.DATN+2 

(RO)+,$NIFNC 

(R0)+,$NIFNCt2 

(R0),SNIFNCt4 

$NIFLG 


RETURN 


.-RECEIVE  DATA  OR  EXIT 

POINT  AT  SENDING  TASK'S  NAME 

ARE  UE  ALREADY  ACTIVE  ? 

BR  IF  NO,  RCV  FUNCTION  REQUEST 

IS  DATA  FROM  NTL  ? 

BR  IF  NO,  ERROR 

MAYBE  ? 

BR  IF  NO,  STILL  AN  ERROR 

SAVE  NTL'S  ANSUER 

SET  THE  EVENT  FLAG 

AND  LEAVE 


RESET  THE  POINTER 

SET  THE  REQUESTORS  TASK  NAME  INTO 

THE  BUSY  RESPONSE  DIRECTIVE 
TELL  REQUESTOR  UE  ARE  BUSY 
EXIT  UITH  CARRY  CLEAR 

(NOTE  THE  FOLLOWING  5  LINES  ARE 
DUPLICATED  IN  SERVER  BASE  CODE 
AFTER  NTINIT  -  PLEASE  MAKE  CHANGES 
TO  BOTH  PLACES) 

SAVF  SENDER'S  NAME  IN 
RETURN  DIRECTIVE 

SAVE  FUNCTION  CODE 
SAVE  TWO  WORDS  OF  SENDER'S  DATA 
(USED  FOR  POUERFAIL  RECOVERY) 

WE  ARE  NOW  BUSY 


r oc  11.  nn 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3-!. 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 

50 
51 
52 


.TITLE 
.IDENT 


NTIUMR 
/V05.00/ 


COPYRIGHT  (C)  1978,1979,1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTINIT  -  LOAD  UNIBUS  MAPPING  REGISTERS  FOR  NETWORK  BUFFER  POOL 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  7-N0V-83 

DECNET-lIM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-11M-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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CfECOM  -  GET  A  COMMAND  LINE 
SCFCOM  -  GET  A  COMMAND  LINE 
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166  0007A0 

167  0007A2 

168  000744 

169  000754 

170  000756 


000261 
001405 

000655 
000207 


SEC 

BEQ    30t 
ERRORS  *ERRGCL 
BR      10$ 
30$;    RETURN 


ASSUME  SO 
IF  EQ,  YES 
ELSE,  COMMAND  L",: 
AND  GET  NEXT  lINt 


ERROR 
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CFFDEF  - 
SETLIN  - 

?i5 

235 
236 
237 
258 
239 
2A0 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
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SET   LINE    PARAMETERS 

.SBTTL      SETLIN  -   SET  LINE   PARAMETERS 
♦•   -  SETLIN  -   SET   LINE   PARAMETERS 


INPUT: 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT: 


CONTROL  PASSED  TO  PROPER  ROUTINE 


000536  SETLIN: 

000536  032767  OOOOOOG  OOOOOOG 

000544  001402 

000546  004767  OOOOOOG 

000552  032767  OOOOOOG  OOOOOOG  10$: 

000560  001403 

00056:    ''767  OOOOOOG 

000566      '16 

000570  Oi^.o7  OOOOOOG  OOOOOOG  20$: 

000576  001402 

000600  004767  OOOOOOG 

000604  032767  OOOOOOG  OOOOOOG  40$: 

000612  001402 

000614  004767  OOOOOOG 

000620  000207  50$: 


BIT 

#0L.SLT 

$OPRND 

BEQ 

10$ 

CALL 

$SESLT 

BIT 

#OL.CNT 

$OPRND 

BEQ 

20$ 

CALL 

$SECNT 

BCS 

40$ 

BIT 

#OL.UNT 

$OPRND 

BEQ 

40$ 

CALL 

$SEUNT 

BIT 

#OL.X25 

$OPRND 

BEQ 

50$ 

CALL 

$SEX2P 

RETURN 

CHANGE  THE  SLT/STATION  DEFINITION  ? 
IF  EQ,  NO 

CHANGE  THE  SLT  DEFINITION 
CHANGE  THE  CONTROLLER  DEFINITION  ? 
IF  EQ,  NO 

ELSE,  CHANGE  THE  CONTROLLER  DEFINITION 
IF  CS  ERROR 
CHANGE'tHE  UNIT/STATION  DEFINITION  7 
IF  EQ,  NO 

ELSE,  CHANGE  THE  UNIT  DEFINITION 
ANY  X.25  LEVEL  2  PARAMETERS  ? 
IF  EQ,  NO 
ELSE  UPDATE  X2P$DF 
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CFEDSP  -  DlPA'fM  ROUTINE 


1 
2 
I 
i, 
5 
6 

7 

8 
9 
10 
11 
12 
15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
25 
2A 
25 
26 
27 
28 
29 
30 
51 
52 
35 
54 
55 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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.TITLE   CFEDSP  -  DIPATCH  ROUTINE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  B^  DIGITAL. 


MODULE  DESCRIPTION: 
CFE  -  DISPATCH  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

5.00  16-APR-82 

DECNET-lIM  V5.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


1 


N  K 


••F1lE««1D««CFE1MP 


K  15 


CCCCCCCC   F 

FFfFFfFFF 

EEEEEEEEEE 

MI 

11 

m 

MM 

PPPPPPPP 

ccccccc:  F 

FFFFF^Ff F 

EEEEEEEEEE 

II 

11 

MM 

MM 

PPPPPPPP 

CC          F 

EE 

1 

MMMM 

'IMMM 

PP      PP 

^^           F 

EE 

MMMM 

^MMM 

PP      PP 

EE 

MM  M^ 

MM 

PP      PP 

EE 

MM  M^ 

MM 

PP      PP 

FFFFfFF 

EEEEEEEE 

MM 

MM 

PPPPPPPP 

CC          F 

FFFFFFF 

EEEEEEEE 

MM 

MM 

PPPPPPPP 

CC         F 

EE 

MM 

MM 

PP 

n        f 

EE 
EE 

: 

MM 
MM 

PP 
PP 

CC          F 

EE 

MM 

MM 

PP 

CCCCCCCC   F 

EEEEEEEEEE 

mill 

MM 

MM 

PP 

CCCCCCCC   F 

EEEEEEEEEE 

IIIIII 

MM 

MM 

PP 

5SSSSSSS 

TTTTT 

TTTTT 

SSSSSSS5 

TTTTT 

TTTTT 

SS 

ss 

SS 

ss 

SSSSS5 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

JL.15. 
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r^FlMP   -   SYMBOL   DEFINITIONS   AND  MACRO   V05.05b   Saturday   29-,Jun-85   OA;55 
DFFINE    TEMPLATES   GLOBALLY 


458 

459  000020 

460 

461  000000 

462  000002 

463  000004 

464  000010 

465  000012 

466  000014 

467  000016 
468 

469  002054 

470 

471 

472 

473 

474 

475  000020 

476 

477  000000 

478  000002 

479  000004 

480  000006 

481  000012 

482  000014 

483  000016 

484  000020 

485  000022 
486 

487  002054 

488 

489 

490 

491 

492 

493  000024 

494 

495  000000 

496  000002 

497  000004 

498  000010 

499  000012 

500  000014 

501  000016 

502  000020 

503  000022 

504  000023 
505 

506  002054 

507 

508 

509 

510 

511 

512  000024 

513 

514  000000 


000000 


OO0C20 


000000 


000024 


000000 


000024 


000000 


.A^Ecr 

.8LKW   1 

.BLKW   1 

PSSNAM: 

i.SLKW   2 

PSSPOR: 

:.8LKW   1 

PtSFLG: 

.-.BLKW   1 

PSSTLO: 

.•.SLKW   1 

PSSTHI: 

r.BLKW   1 

PSSLEN^ 

.PSECT 


Page  9-2 


C.LNK 

C.STS 

RAD50  NETWORK  NAME 

NUMBER  OF  PORTS  SUPPORTED  (1-256) 

FLAGS 

TRANSPORT  SU8ADDRESS  LOW 

TRANSPORT  SUBADDRESS  HIGH 

;  LENGTH  OF  THE  BLOCK 


X.25  LEVEL  2  DESCRIPTOR  BLOCK 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

BLKW 

BLKW 

BLKW 


X$2LIN: 

X$2WSZ 
X$28SZ 
X$2RTC 
X$2RTT 
X$2H8T 
X$2LEN== 


.PSECT 


DEFINE  THE  PVC  PARAMETER  BLOCK 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.8LKW 

.BLKB 

.BLKB 


PSVNAM 
PSVLCN 
P$VCT: 
PSVPSZ 
PSVWSZ 
PSVOWN 
PSVFLG 
PSVSTA 
PSVLEN 


.PSECT 


C.LNK 

C.STS 

LINE  ID:  RAD50  PROCESS  NAME 

CONTROLLER,  UNIT  NUMBERS 

WINDOW  SIZE  (0-7) 

BLOCK  SIZE 

RETRANSMIT  COUNT 

RETRANSMIT  TIMER  VALUE 

HOLDBACK  TIMER  VALUE 


C.LNK 

C.STS 

RAD50  NAME 

LOGICAL  CHANNEL  NUMBER 

COUNTER  TIMER 

MAXIMUM  BLOCK  SIZE 

WINDOW  SIZE 

RAD50  OWNER  PROCESS 

FLAGS  BYTE 

=0  ~>  OFF,  >0  — >  ON 


DEFINE  THE  LOCAL  DTE  PARAMETER  BLOCK 


.ASECT 

.=0 

.BLKW 


C.LNK 
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MACRO  DEf INI'IONS 


50 
5' 
52 
53 
5^ 
55 
56 
57 
58 

59  000000 

60  000000 

61  000000 

62  000000 

63  COOOOO 

64  000000 

65  000000 
66 


.S8TIL  MACRO  DEFINITIONS 


L18RARV  MACROS 


.IF  NDF  I$$AS 

.MCALL  DIR$,RUNt,EMSG$,EMSG$R,NTLQR$,NHWDF$,RETC,SAVMAP,RESMAP 

.HCALL  ALUNi,VCBDF$,HDRDF$,DC8DF$,UCBDF$,NSFDF$,PDVDF$ 


NHWDFS. 
PD>'"F$ 
NS.  A% 
VCBDFS 
DCBDFS 
UCBOFS 
HDRDFS 


HARDWARE  REGISTER  DEFINITIONS 
DEFINE  PDV  TABLE  OFFSETS 
DEFINE  NETWORK  FLAGS 
DEFINE  VCB  OFFSETS 
DCB  DEFINITIONS 
UCB  DEFINITIONS 
TASK  HEADER  OFFSETS 


NTICEX 
DATA 


MACRO  V05.03b  Saturday 


53 
5^ 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
n   000000 

73  000000 

74  000000 

75  000000 

76  000000 
77 

78        000000 

79 

80 

81 

82 

83  000000 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94  000000  000030 

95 

96 

97 

98 

99 
100 
101 
102 

io: 

104  000000 
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.SBTTL  DATA 


N  2 


AT  THE  MOMENT,  ASSUME  THAT  IF  MEMORY  MANAGEMENT  IS  IN  EFFECT,  THAT 
THE  MACHINE  IS  AN  11/70  (ONLV  AFFECTS  UMR  LOADING  CODE). 


LIBRARY  MACROS 

.MCALL 
.MCALL 


DIfi$,CLEF$S,WTSE$S,RQST$,SDAT$,EMSG$R,NTLER$ 
NHWDF$,PDVDF$,DHBDF$,SLTDF$,CCBDF$ 


.IF  DF  R$$MPL 

.MCALL  0LRDF$,Q10U$S,ALUN$S 

OLRDFS 

.ENDC 

CCBDFS 
SLTDFS 
NHWDFS 
PDVDFS 
DHBDFS 


[HP01] 
EMPOn 
CMP01J 
CMP01] 


M$$EXT  ==  0 

LOCAL  (IMPURE)  DATA 
.PSECT  DATA,D 


ERROR  MESSAGE" 

.IF     NDF,R$$11S 
.ENA8L  LC 
NTLERS  ,10,N0NE,$NIERR,.,<Cliaring  System) 
.DSA8L  LC 
.ENDC 


DEFINE  CCB  OFFSETS 

DEFINE  SLT  OFFSETS 

HARDWARE  REGISTER  DEFINITIONS 

DEFINE  PDV  OFFSETS 

DEFINE  DECNET  HOME  BLOCK  OFFSETS 

ASSUME  UMR  SUPPORT 


INIFUN:  .WORD   FS.JNl:.  l.PCT 


;  PROCESS  INIT  FUNCTION  CODE 
INIT 


.IF  DF  R$$MPL 
STATUS:  .BLKW   2  ;  I/O  STATUS  FOR  HRC 

NTLERS  ,11,N0NE,$NJERR,,,<HRC. . .  Reconfiguration  Failure) 

.ENDC 


START  OF  PURE  CODE 
.PSECT 


CMP01] 
CMP01] 
[MP01] 
CMP01] 


NTKSR  MACRO  V05.03b  Saturday  29-Jun-85  03:30 
Table  of  contents 


N  3 


54 
96 


DA'A 

CSR  CHECK 


NTIDLI  - 
DATA 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
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.SBTTL  DATA 
•  LIBRARY  MACROS 


000000 
000000 


.MCALL  DHeDF$,NHWDF$ 

DHBDFS 

NHUDFS 


176000 


000000 


;  LOCAL  EQUIV'S 
AREA    =  176000 

':    START  OF  PURE  CODE 
.PSECT 


.-DEFINE  DECNET  HOME  BLOCK  OFFSETS 
.-DEFINE  THE  HARDWARE  REGISTERS 


;AREA  MASK 


NTILON  -  NTINIT  'EXECUTOR  ON'  R  MACRO  V05. 
SET  EXECUTOR  ON 


.3b  Saturday  29-Jun-85  03:j1  Page  9-1 


181  000132 

182  000136 
183 

184  OOOHO 

185  OOOUA 

186  000150 

187  0001 5A 

188  000160 
189 

190  000162 

191  000164 

192  000166 

193  000174 

194  000176 

195  000200 

196  000206 
197 

198  000212 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 


032701  000100 
001404 

012703  000004' 

006166  000004 

006366  000004 


006001 
103003 

006001 
103003 

016702  OOOOOOG 


BIT 

#NF.LV2,R1 

BEQ 

40$ 

MOV 

#RCP2NM,R3 

CALL 

aSRSTD 

40$: 

ROL 

4(SP) 

ASL 

4(SP) 

50$: 

RETURN 

60$: 

ROR 

R1 

BCC 

70$ 

EMSG$R 

15 

70$: 

ROR 

Rl 

BCC 

80$ 

EMSG$R 

19 

80$: 

MOV 

$DeXPT,R2 

90$: 

.IF  NDF 

R$$11S 

TST 

N$PLD+2(R2) 

BNE 

150$ 

MOV 

SDECPT.RI 

MOV 

D$NLN(R1),R0 

MOV 

R0,N$PLD(R2) 

MOV 

#PiLEN,Rl 

CALL 

$MUL 

MOV 

N$PLD(R2),R0 

ASL 

RO 

ADD 

R0,R1 

CLR 

RO 

SUSTK$ 

120$ 

CALL 

aALOCB 

BCS 

110$ 

MOV 

R0,2(SP) 

MOV 

aDECPT,R1 

MOV 

D$NLN(R1),R4 

MOV 

R4,R1 

ASL 

Rl 

MOV 

R0,R3 

ADD 

R1,R0 

100$: 

MOV 

R0,(R3)* 

ADD 

#P$LEN,R0 

DEC 

R4 

BGT 

^00$ 

110$:   RETURN 

120$:   MOV     R0,N$PLDt2(R2) 
BNE     130$ 
EMSG$R  18 

130$: 


MOV 

RO.PLDADR 

MOV 

RI.PLDLEN 

ASR 

Rl 

MOV 

NfPLD(R2), 

-(SP) 

SUB 

(SP)  .Rl 

;*  LEVEL  2  ROUTER  ? 
;*  IF  NO  -  BRANCH 

>  POINT    TO   TASK  NAME 

'    IS   LEVEL   2  ROUTING   CONTROL    PR 

>  SAVE  CARRY  ... 

>  IN  2ND  BIT 

*  LEAVE  SYSTEM  STATE 

SET  CARRY  IF  NS  IS  NOT  INSTALLED 
IF  NOT  SET  -  CONTINUE 

NS NOT  INSTALLED 

SET  CARRY  IF  RCPd  OR  2)  IS  NOT  INSTALLED 
IF  NOT  SET  -  CONTINUE 
RCPd  OR  2)  NOT  INSTALLED 
GET  ADDRESS  OF  XPT'S  DDB 


IS  THPRE  A  PLD  DATA  BASE  ? 

IF  NE,  YES 

GET   DECNET  HOME   BLOCK  ADDRESS 

NUMBER   OF   NSP  CHANNELS 

STORE   #  OF    CHANNELS   IN  NSP'S   DB 

GET   SIZE   OF   EACH   PLD 

CALCULATE   SIZE   OF    PLD'S 

GET  NUMBER  OF    CHANNELS   ♦   2 

UPDATE   *'UMBER  OF   BYTES   NEEDED 
ASSUME    FAILURE 

»   ENTER   KERNEL  MODE 

»   TRY    TO  ALLOCATE    THE   PLD   DB 

*  IF  CS,  FAILURE 

»  ELSE,  RETURN  ADDRESS  IN  USER  RO 

t  GET  DECNET  HOME  BLOCK  ADDRESS 

►  GET  NUMBER  OF  CHANNELS 

*  GET  NUMBER  OF  CHANNELS  *  2 

k 

»  POINT  TO  PLD  ALLOCATION 
»  POINT  PAST  PLD  VECTOR 

*  SET  UP  PLD  VECTOR 

»  POINT  TO  NEXT  ENTRY  IN  PLD 

*  ALL  CHANNELS  PROCESSED? 
»  BR  IF  NO 

;*  BACK   TO  USER  MODE 


SAVE   PLD  ADDRESS 

IF    SUCCESFUL  ALLOCATION 

PLB  ALLOCATION   FAILURE 


BRANCH 


SAVE  PLB  ADDRESS  AGAIN 

AND  LENGTH  OF  THE  PLD  DATA  BASE 

CONVERT  BYTES  TO  WORDS 

GET  NUMBER  OF  CHANNELS  *  2 

DON'T  ZERO  PLD  VECTOR 


_J 


NTIMFE  -  DO  MARKED-FOR-ENABLE 
Table  of  content- 


N  6 

S  MACRO  V05.05b  Wednesday  2i.-JuL-85  15:52 


6-  54  DATA 

7-  98  MARKED  FOR  ENABLE  SCAN 

8-  255  ENABLE  A  LINE 

9-  ?10  DLM5ET  -  SET  UP  COUNTER  BLOCK  FIELDS  FOR  DLM  CIRCUITS 


NTlMFEllS  CREATED  BY  MACRO  ON  24-JUL-85  AT  15:52 
SYMBOL  CROSS  REFERENCE 


N  7 

PAGE  2 

CREF   OA.OO 


SYMBOL  VALUE 


LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRl 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$EXT 

M$$MGE 


000000 
000005 
OOOOOA 
000005 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
C00022 
000022 
000020 
OOOOU 
000021 
000013 
000000 
000000 


REFERENCES 

«6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-74 
#6-60 
6-60 


7-202 


7-244 


7-166 

7-129 
7-125 


7-137 

»7-244 

7-158 


7-132 
7-168 


7-135 


'7-210 


7-214 


♦7-236 


*7-243 


NFSMOU 

_ 

000040 

7-183 

7-227 

NSFLG 

000005 

7-183 

7-227 

N$$VCT 

- 

****** 

8-299 

PDVTA 

- 

****** 

GX 

7-130 

7-177 

7-221 

8-275 

R$$MPL 

- 

****** 

7-143 

R$$11D 

~ 

****** 

6-77 

R$$11M 

- 

000000 

6-77 

R$$11S 

- 

000001 

#4-2 

6-77 

8-279 

9-327 

SF.ACT 

~ 

000200 

#6-74 

7-137 

7-201 

SF.ENA 

~ 

000100 

#6-74 

7-169 

7-192 

SF.LPB 

- 

000004 

#6-74 

SF.MFL 

- 

000040 

#6-74 

SF.PAC 

~ 

000020 

#6-74 

SF.REA 

- 

000010 

#6-74 

SF.SER 

- 

000001 

#6-74 

SF.SVC 

- 

000002 

#6-74 

SF.UNL 

- 

OOOO'.O 

#6-74 

SLTMA 

- 

****** 

GX 

7-122 

SLTNM 

- 

****** 

GX 

7-120 

STAADD 

000000 

R 

#6-90 

»7-124 

♦7-197 

NTINIT  MACRO  V05.03b  Thursday  05-Sep-85  11:09  Page  9-1 
NETWORK  INITIALIZATION  COLD  START 


N  8 


316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 
327 
328 
529 
530 
351 
332 


20$; 


MOV  i»$NIRTN,RO 

MOV  (RO)+,NTISEN+S.DATN 

MOV  (R0)  +  ,NTISEN<-i.DATNt2 

MOV  (R0)+,$NIFNC 

MOV  (R0)+,$NIFNC+2 

MOV  (R0),$NIFNCtA 

CLR  SNIAST 

BIT  #LS.AST,$NIFNC 

BEQ  20$ 

MOV  LR.ASTt$NIRDB,$NIAST 

MOV  Lfi.PRM+$NIRD8,$NIPRM 

.ENDC  ;DF  S$$BAS 


THE  ROUTINE  NTIR^X  AND  FROM  ABOVE 
POINT  AT  SENDING  TASK'S  NAME 
SAVE  SENDER'S  NAME  IN 

RETURN  DIRECTIVE 
SAVE  FUNCTION  CODE 
SAVE  TWO  WORDS  OF  SENDER'S  DATA 
(USED  FOR  POWERFAIL  RECOVERY) 

ASSUME  CALLER  NOT  NOTIFIED  VIA  AST 

NOTIFY  CALLER  VIA  AST? 

BR  IF  NO 

STORE  ADDRESS  OF  NOTIFICATION  AST 

STORE  NOTIFICATION  AST  PARAMETER 


.•FALL  THROUGH 
;INTO  MAIN  LOOP 


N  9 

NTINIT  MAfRO  V05.03b  Thursday  05-Sep-85  11:09  Page  17-1 
RCV  DATA  SUBROUTINF 

829  .ENDC 


NUTIM     iflftCRO  V05.05b  Saturday  29-Jun-85   03:53 
Table  ot   contents 


DATA 

START  CEX  TIMERS 

T1SIN  -  INSERT  1  SECOND  TIMER  FORK  BLOCK 

T50IN  -  INSERT  50  MSEC  TIMER  FORK  BLOCK 

CLINS  -  INSERT  ENTRY  ON  CLOCK  QUEUE 


N  10 


6- 
7- 

RO 

8- 

VI 

R- 

^?■? 

9- 

1S6 

NTluMR  MACRO  V05.05b  Saturday  29-Jun-85  03:35  Page  6 
DATA 


N  11 


S4 

55 

56 

57 

58 

59 

60 

61  000000 

62 

63 

64 

65 

66 

67  000000 


.S8TIL  DATA 

LIBRARY  MACROS 

.MCALL  SCBDfS 
SCBDFS 

START  OF  PURE  CODE 
.PSECr 


UMR  BLOCK  OFFSETS 


N  12 

CFECOM  -  GET  A  COMMAND  LINE     MACRO  V05.03b  Saturday  29-Jun-85  0A;54  Page  6 
SCLERR  -  CLEAR  ERROR  MESSAGE  ADDRESS 


172 
173 
174 
175 
176 
177 

178  000760 

179  000760 

180  00076A 
181 

182 


005067 
000207 

000C01 


177522 


;  INPUTS; 
■  OUTPUT: 
icLERR:: 


SBTTL     SCLERR   -  CLEAR   ERROR  MESSAGE  ADDRESS 
NONE 


CLR 
RETURN 

.END 


SERROR 
$ERROR 


0 


NO  MORE  ERRiR 
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CFEDEF  -  PROCESS  DEFINE  COMMAND  MACRO  V05.05b  Saturday  ?9-Jun-o5  04:55 
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261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 

276  000622 

277  000630 
278 

279 
280 

281  000632 

282  000632 

283  000640 

284  000642 

285  000646 
286 

287 
288 
289 

290  000652 

291  000660 

292  000664 
293 

294 
295 

296  000666 

297  000672 

298  000676 

299  000704 

300  000706 

301  000712 

302  000714 

303  000722 

304  000724 

305  000732 

306  000736 

307  000742 

308  000750 

309  000752 

310  000756 
311 

312 
313 
314 

315  000762 

316  000766 

317  000770 


032767 
001416 


032767 
001054 
004767 
004767 


042767 
004767 
000460 


012700 
012701 
032767 
001426 
005767 
001441 
J32767 
001403 
052767 
012700 
0-;2701 
032767 
001004 
012700 
012701 


.SBTTL 
.S8TTL 


SETCIR  -  SET  CIRCUIT  PARAMETERS 
SETKNC  -  SET  KNOWN  CIRCUIT  PARAMETERS 


••»  -  SETCIR  -  SET  CIRCUIT  PARAMETERS 

»••  -  SETKNC  -  SET  KNOWN  CIRCUIT  PARAMETERS 


INPUT: 

SOPRND  =  OPERANDS  PRESENT 

OUTPUT: 

CONTROL  PASSED  TO  PROPER  ROUTINE 


.ENA8L  LSe 


OOOOOOG  OOOOOOG   SETCIR 


BIT 
BEQ 


#WC.CIR,$WILD 
30$ 


ANY  WILDCARDS  ? 

IF  EQ,  NO  -  ELSE  APPLY 


OOOOOOG  OOOOO'iG 

000242 
000244 


OOOOOOC  OOOOOOG 
000144 


'KNOWN"  CHECKS 

WILDCARD  CIRCUIT  ID:  ONLY  ALLOW  PARAMETERS  COMMON  TO  ALL  CIRCUITS 
SETKNC: 


BIT 
BNE 
CALL 
CALL 


#OC.NWC, SOPRND 

60$ 

SETPVC 

SETSVC 


CHECK  FOR  BAD  WILDCARD  PARAMS 

IF  NE,  ERROR 

SET  PVC  PARAMETERS 

APPLY  CHANGES  TO  SVCS 


CLEAR  OPTION  VALUES  WHICH  ARE  SHARED  BETWEEN  PSI  CIRCUIT 
AND  LINES  (UNTSDF  AND  SLTSDF). 

BIC     #''C<0C.CSTIOC.HTMI0C.STAI0C.APR!OC.MXRI0C.RPR>,$OPRND 
CALL    SETTRN         ;  LIKEWISE  FOR  TRANSPORT  CIRCUITS 
BR     90$  ;  EXIT  ROUTINE 

CIRCUIT  ID  SPECIFIED:  DETERMINE  CIRCUIT  TYPE 


OOOOOOC 
001030' 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOC 
001110' 
OOOOOOG  O'jOOOOG 

OOOOOOC 
001116' 


lO$: 


35$: 


MOV 
MOV 
BIT 
BEQ 

BEQ 

BIT 
BEQ 
BIS 
MOV 
MOV 
BIT 
BNE 
MOV 
MOV 


#OC.SVC!OC.PVCIOC.CTMIOC.DTEIOC.MBL!OC.MWI,RO  ;  ASSUME  TRANSPORT  CIRCUIT 


#SETTRN,R1 

#FL.X25,$FLAGS 

40$ 

SPSIPT 

80$ 

#FL.CRE,$FLAGS 

35$ 

#FL.PVC,$FLAGS 

#OC.SVC!OC.APRIOC.TRI,RO 

#SETPVC,R1 

#FL.PVC,$FLAGS 

40$ 


POINT  TO  TRANSPORT  ROUTINE 
PARSED  CIRCUIT  AN  X.25  CIRCUIT 
IF  EO,  OWNER  =  TRANSPORT 
PSI  IN  SYSTEM  ? 
IF  EQ,  NOT  A  PSI  SYSTEM 
CREATE  A  VIRTUAL  CIRCUIT  ? 
IF  EQ,  NO 
CREATE  A  PVC 

ASSUME  PVC 


PARSED  CIRCUIT  A  PVC 
.  IF  NE,  YES 
#OC.PVC10C.APR:OC.TRI,RO  ;  ASSUME  SVC 
*SETSVC,R1      ;  ... 


030067  OOOOOOG 
001006 


CHECK  FOR  ILLEGAL  PARAMETER  GROUPING  AND  DISPATCH  TO  OPERATE  ROUTINE 


40$: 


BIT 
BNE 
CALLR 


R0,$OPRND 

70i 

(R1) 


CHECK  FOR  ILLEGAL  GROUPING 

IF  NE,  ILLEGAL  PARAMETER  GROUPING 

DISPATCH  TO  ROUTINE 


IT 


CfEDSP  -  DIPAICH  ROUTINE 


55 
56 
57 
58 
59 
60 
61 

62  000000  OOOOOOG 

63  000002  OOOOOOG 

64  OOOOOA  OOOOOOG 

65  000006  OOOOOOG 

66  000010  OOOOOOG 

67  000012  OOOOOOG 
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•  **** 

;  LOCAL  DATA 

***** 

;  DEFINE  DISPATCH  TABLE 

6sPrSL:  .WORD 

SCFDEF 

.WORD 

$CFU5 

.WORD 

SCFHLP 

.WORD 

tFIN 

.WORD 

.EXIT 

.WORD 

$IFPRG 

"DEFINE"  COMMAND 
"LIST"  COMMAND 
"HELP"  COMMAND 
"EXIT"  COMMAND 
"KILL"  COMMAND 
"PURGE"  COMMAND 
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